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)

0 bình luận về “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)”

1. 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.

   Bình luận