Cho tệp dữ liệu B.INP gồm 1 dòng chứa xâu ký tự a,tạo tệp B.OUT gồm 2 dòng: + Dòng 1 chứa xâu b được tạo từ xâu a bỏ các dấu cách. + Dòng 2 chứa xâu c

Bởi

Cho tệp dữ liệu B.INP gồm 1 dòng chứa xâu ký tự a,tạo tệp B.OUT gồm 2 dòng:
+ Dòng 1 chứa xâu b được tạo từ xâu a bỏ các dấu cách.
+ Dòng 2 chứa xâu c được tạo từ xâu a chỉ dùng các ký tự số.

0 bình luận về “Cho tệp dữ liệu B.INP gồm 1 dòng chứa xâu ký tự a,tạo tệp B.OUT gồm 2 dòng: + Dòng 1 chứa xâu b được tạo từ xâu a bỏ các dấu cách. + Dòng 2 chứa xâu c”

  1. Program Nhap_Xuat_File;
    Uses crt;
    var i,m:integer;
    a,b,c:string;
    Procedure Nhap;
    var f:text;
    begin
         Assign(f,’B.INP’);
         Reset(f);
         Readln(f,a);
         Close(f);
    end;
    Procedure Xuat;
    var f:text;
    begin
         Assign(f,’B.OUT’);
         Rewrite(f);
         Writeln(f,b);
         Writeln(f,c);
         Close(f);
    end;
    Procedure Xoa_Cach(m:integer);
    begin
         for i:=1 to m do
         if(a[i] <> ‘ ‘) then
                  b:=b+a[i];
    end;
    Procedure Ky_Tu_So(m:integer);
    begin
         for i:=1 to m do
         if(a[i] in [‘0’..’9′]) then
                 c:=c+a[i];
    end;

     begin
         Nhap;
         m:=Length(a);
         Xoa_Cach(m);
         Ky_Tu_So(m);
         Xuat;
    end .

     

    Bình luận

Viết một bình luận