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

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

Viết một bình luận