Cho xâu St. Hãy xuất ra xâu đối xứng của St bằng Pascal

0 bình luận về “Cho xâu St. Hãy xuất ra xâu đối xứng của St bằng Pascal”

1. var st:string;

        i:byte;

   begin

   write(‘Nhap xau: ‘); readln(st);

   write(‘Xau doi xung la: ‘); 

   for i:=length(st) downto 1 do write(s[i]);

   readln

   end.

   Bình luận

2. Const Fi=’Xaudoixung.INP’;
         Fo=’Xaudoixung.OUT’;

   Var f,g: text;
       St: String;

   Function DX(S:String):String;
   Var S1: String;
       i: longint;
   Begin
           S1:=”;
           For i:= Length(S) downto 1 do
                   S1:=S1+St[i];
           DX:=S1;

   End;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);

           Readln(f,St);
           Write(g,DX(St));
           Close(f);
           Close(g);
   End.

   Bình luận