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
By Arianna
By Arianna
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
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.
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.