Bài 15: Thao tác với tệp

Nguyễn Thị In

CHo tệp DULIEU TXT gồm nhiều dòng mỗi dòng gồm 2 số nguyên x và y. Đọc dữ liệu từ tệp vào ghi ra tệp KETQUA TXT số nhỏ hơn trong 2 số,mỗi số ghi trên 1 dòng.

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 7:04

const fi='dulieu.txt'

fo='ketqua.txt'

var f1,f2:text;

a,b:array[1..100]of integer;

n,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do

begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do 

begin

if (a[i]<b[i]) then writeln(f2,a[i])

else writeln(f2,b[i]);

end;

close(f1);

close(f2);

end.

Bình luận (0)

Các câu hỏi tương tự
An Đinh
Xem chi tiết
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
HoangNhuNguyet
Xem chi tiết
Nguyễn Văn Thường
Xem chi tiết
Nguyễn Đức Anh Khoa
Xem chi tiết
Felix MC-Gamer
Xem chi tiết
vV Tráng
Xem chi tiết
Kiên Tạ
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết