Câu hỏi:

14/06/2023 5,554 Lưu

Viết chương trình nhập vào một xâu ký tự từ bàn phím. Tìm xâu đảo ngược của xâu đó rồi in kết quả ra màn hình theo 2 cách: Đệ qui và không đệ qui.

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

Ý tưởng:

     - Nếu xâu St có 1 ký tự thì xâu đảo = St.

     - Ngược lại: Xâu đảo = Ký tự cuối + Đệ qui(Phần còn lại của xâu St).

 

Uses Crt;

Var  St:String;

 

{Giải thuật không đệ qui}

Function XauDao(St:String):String;

Var  S:String;

        i:Byte;

Begin

    S:=’’;

    For i:=Length(St) DowTo 1 Do S:=S+St[i];

    XauDao:=S;

End;

 

{Giải thuật đệ qui}

Function DeQui(St:String):String;

Begin

    If Length(St)<=1 Then DeQui:=St

    Else DeQui:=St[Length(St)] + DeQui(Copy(St,1,Length(St)-1));

End;

 

Begin

    Write(‘Nhap xau St: ‘); Readln(St);

    Write(‘Xau dao nguoc: ‘, XauDao(St));

    Readln;

End.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Lời giải

Một Hệ CSDL gồm CSDL và hệ quản trị CSDL và khai thác CSDL đó. Ngoài ra, còn có các phần mềm ứng dụng được xây dựng dựa trên hệ quản trị CSDL để việc khai thác CSDL trở lên thuận tiện hơn, đáp ứng các yêu cầu đa dạng của người dùng.

Đáp án: D.

Câu 2

Lời giải

Sau khi thực hiện việc tìm kiếm thông tin trong 1 tệp hồ sơ học sinh thì trình tự các hồ sơ trong tệp không thay đổi. => Đáp án đúng là A.

Câu 3

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP