Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
New wibu

Cho tệp bài tập .txt chứa 1 xâu bất kì không quá 100 kí tự. viết chương trình đọc dữ liệu từ tệp bài tập.txt

Kiểm tra xem nếu là chữ số thì ghi ra màn hình, các kí tự còn lại ghi vào tệp.txt

Minh Lệ
16 tháng 6 2020 lúc 21:13

Program HOC24;

const fi='baitap.txt';

fo='tep.txt';

var s: string[100];

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to length(s) do if not(s[i] in ['0'..'9']) then write(f,s[i]);

close(f);

end;

begin

ip;

for i:=1 to n do if s[i] in ['0'..'9'] then write(s[i]);

out;

readln

end.


Các câu hỏi tương tự
New wibu
Xem chi tiết
Anh Em Song Sinh
Xem chi tiết
Vũ văn huy
Xem chi tiết
duc tran
Xem chi tiết
Hoàng Long
Xem chi tiết
An Hạ
Xem chi tiết
Đào Xuân Trọng
Xem chi tiết
Enter Until
Xem chi tiết
Miner Đức
Xem chi tiết