viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng rồi ( sử dụng thao tác ghép xâu , coppy ) rồi in ra màn hình

0 bình luận về “viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng rồi ( sử dụng thao tác ghép xâu , coppy ) rồi in ra màn hình”

1. program Tin_hoc;

   uses crt;

   var i:integer;

         s1,s2:string;

   begin

   clrscr;

   writeln(‘Nhap xau:’);readln(s1);

   s2:=”;

   for i:= 1 to length(s1) do if ord(s1[i]) <> 32 then s2:=s2+s1[i];

   writeln(‘Xau da loai bo dau cach la:’);writeln(s2);

   readln;

   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var St,S: String;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           s:=”;
           For i:=1 to length(St) do
                   If St[i]<>#32 then s:=s+St[i];
           Write(‘St = ‘,s);
           Readln
   End.

   Bình luận