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,…

0 bình luận về “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,…”

1. 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.

   Bình luận

2. 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.

   Bình luận