Câu hỏi:

14/06/2023 3,270

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.

Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa... kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 70k).

Tổng ôn Toán-lý hóa Văn-sử-đia Tiếng anh & các môn khác

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:

Một Hệ CSDL gồm:

Xem đáp án » 14/06/2023 54,288

Câu 2:

Sau khi thực hiện việc tìm kiếm thông tin trong 1 tệp hồ sơ học sinh, khẳng định nào sau đây là đúng?

Xem đáp án » 14/06/2023 44,548

Câu 3:

Xét tệp lưu trữ hồ sơ học bạ của học sinh, trong đó lưu trữ điểm tổng kết của các môn Văn, Toán, Lí, Sinh, Sử, Địa. Những việc nào sau đây không thuộc thao tác tìm kiếm?

Xem đáp án » 14/06/2023 37,093

Câu 4:

Tên của CSDL trong Access bắt buộc phải đặt trước hay sau khi tạo CSDL?

Xem đáp án » 14/06/2023 30,264

Câu 5:

Người nào đã tạo ra các phần mềm ứng dụng đáp ứng nhu cầu khai thác thông tin từ CSDL?

Xem đáp án » 14/06/2023 28,889

Câu 6:

Chế độ trang dữ liệu được dùng để:

Xem đáp án » 14/06/2023 28,565

Câu 7:

Xét tệp hồ sơ học bạ của một lớp. Các hồ sơ được sắp xếp giảm dần theo điểm trung bình của học sinh. Việc nào dưới đây đòi hỏi phải duyệt tất cả các hồ sơ trong tệp?

Xem đáp án » 14/06/2023 25,218

Bình luận


Bình luận