Viết chương trình nhập vào xâu kí tự và đưa ra xâu ngược lại ( Tin 11/Pascal) Gợi ý: sử dụng copy , delete,...
2 câu trả lời
uses crt;
var d:text; s:string; i,m:longint;
a:array[1..1000000]of string;
begin
clrscr;
write('S=');readln(s);
s:=' '+s+' ';
m:=1;
for i:=2 to length(S) do
if(s[i]=' ')and(s[i-1]<>' ')then inc(m) else
if s[i]<>' ' then a[m]:=a[m]+s[i];
for i:=m-1 downto 1 do write(a[i],' ');
readln;
end.
program xaudao;
uses crt;
var st,st2,s:string;
i,j,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
s:=''; i:=length(st); d:=1;
while i>0 do
begin
st2:=st[i]; j:=i-1;
while (st[j]<>#32) and (j>0) do
begin
st2:=st[j]+st2;
dec(j);
end;
s:=s+st2;
if d=1 then s:=s+' ';
i:=j;
inc(d);
end;
write('Xau dao la: ',s);
readln
end.