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. uses crt;
   var s:string;
   function dao(s:string):string;
   var i:longint;
   begin
      dao:=”;
      for i:=length(s) downto 1 do dao:=dao+s[i];
   end;
   begin
   clrscr;
      write(‘Nhap 1 xau: ‘);readln(s);
      writeln(dao(s));
   readln
   end.

   Bình luận

2. program xau_dao;

   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(‘Xau dao la: ‘,dao(s));

          readln;

   end.

   Bình luận