Câu hỏi:

14/06/2023 2,921

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: Bộ 20 đề minh họa Toán, Lí, Hóa, Văn, Sử, Địa…. form chuẩn 2025 của Bộ giáo dục (chỉ từ 69k).

20 đề Toán 20 đề Văn 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 53,792

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,475

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 36,986

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,198

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,697

Câu 6:

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

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

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,135

Bình luận


Bình luận