Câu hỏi:
14/06/2023 1,731Viế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.
Siêu phẩm 30 đề thi thử THPT quốc gia 2024 do thầy cô VietJack biên soạn, chỉ từ 100k trên Shopee Mall.
Quảng cáo
Trả lời:
Ý 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.
Quảng cáo
CÂU HỎI HOT CÙNG CHỦ ĐỀ
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?
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?
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?
Câu 6:
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?
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?
về câu hỏi!