Viết chương trình nhập xâu. In ra màn hình xâu đảo ngược từ xâu vừa tạo sử dụng hàm tạo xâu đảo ngược

0 bình luận về “Viết chương trình nhập xâu. In ra màn hình xâu đảo ngược từ xâu vừa tạo sử dụng hàm tạo xâu đảo ngược”

1. program xau_dao_nguoc;

   uses crt;

   var s:string;

   function dao(st:string):string;

   var i:byte;

   begin

          dao:=”;

          for i:=length(st) downto 1 do

                 dao:=dao+st[i];

   end;

   BEGIN

          clrscr;

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

          write(dao(s));

          readln;

   end.

   Bình luận

2. var s: string;

       i: byte;

   Procedure dao(a: string);

       Begin

           For i:=length(a) downto 1 do

               write(a[i]);

       End;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       Writeln(‘xau sau khi dao: ‘);

       Dao(s);

       Readln

   End.

   Bình luận