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.

Câu hỏi trong lớp Xem thêm