Vct nhập 1 xâu và thông báo xâu đó có phải đối xứng hay không theo 2 cách: đệ quy và không đệ quy (VD: abba, abcba là các xâu đối xứng)

Tin học 8 – Bài tập về xâu

BÀI TẬP VỀ XÂU

Bài tập 6.1: Viết chương trình liệt kê các từ của một xâu ký tự được nhập vào từ bàn phím, mỗi từ phải được viết trên một dòng.

Uses Crt;

Var St:String;

Procedure XoaTrangThua(Var St:String);

Begin

 {Xóa các ký tự trắng ở đầu xâu}

 While St[1]=#32 Do Delete(St,1,1);

 {Xóa các ký tự trắng ở cuối xâu}

 While St[Length(St)]=#32 Do Delete(St,Length(St),1);

 {Xóa các ký tự trắng ở giữa xâu}

 While POS(#32#32,St)0 Do Delete(St,POS(#32#32,St),1);

End;

Begin

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

 XoaTrangThua(St);

 St:=St+#32;

 Writeln(‘Liet ke cac tu trong xau: ‘); 

 While POS(#32,St)0 Do

 Begin

 Writeln(Copy(St,1,POS(#32,St)));

 Delete(St,1,POS(#32,St));

 End;

 Readln;

End.