Bài 16: Ví dụ làm việc với tệp

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

mọi người giải giúp em bài này với ạ :

Cho tệp VANBAN.TXT mỗi dòng ghi không quá 255 kí tự

a) Hãy đếm xem trong tệp có bao nhiêu chữ số và đưa kết quả ra màn hình

b) Tạo tệp KQ.TXT chứa tất cả các kí tự là số xuất hiện trong tệp VANBAN.TXT

Nguyễn Lê Phước Thịnh
29 tháng 10 2019 lúc 13:06

uses crt;
const fi='vanban.txt';
fo='kq.txt';
var f1,f2:text;
st:string;
i,d,dem,k,dem1,x,y,dem2,kt,e:integer;
j:char;
a,b:array[1..100]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
{---------------------cau-a------------------}
d:=length(st);
dem:=0; dem1:=0;
for i:=1 to d do
for j:='0' to '9' do
if st[i]=j then
begin
inc(dem);
val(st[i],x,y);
inc(dem1);
a[dem1]:=x;
end;
writeln(dem);
{------------cau-b------------------}
b[1]:=a[1];
dem2:=1;
for k:=1 to dem1 do
begin
kt:=0;
for e:=1 to dem2 do
if a[k]=b[e] then kt:=1;
if kt=0 then begin
inc(dem2);
b[dem2]:=a[k];
end;
end;
for k:=1 to dem2 do write(f2,b[k]:4);
close(f1);
close(f2);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Vương Hàn Gia Minh
Xem chi tiết
Nguyễn Việt Hà
Xem chi tiết
Duy Anh
Xem chi tiết
NguyenThiChongDinh
Xem chi tiết
Bùi Tùng
Xem chi tiết
Vinh Luong
Xem chi tiết
Hoàng hạ
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Linh
Xem chi tiết