Bài 1 :viết chương trình. tính tổng các cặp số nguyên được lưu trữ trong tệp ‘INPUT.TXT’ và ghi kết quả vào tệp ‘ KETQUA.TXT’
Bài 2 : viết chương trình tính diện tích các hình chữ nhật,với các cặp số nguyên được lưu trữ trong tệp ‘ INPUT.TXT’ là chiều dài và chiều rộng của hình chữ nhật, sau đó ghi kết quả vào tệp ‘ KETQUA.TXT’
1/
var f1,f2:text;
a,b:integer;
begin
assign(f1,’INPUT.TXT’); reset(f1);
assign(f2,’KETQUA.TXT’); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
write(f2,a+b);
end;
close(f1); close(f2);
end.
2/
var f1,f2:text;
cd,cr,s:real;
begin
assign(f1,’INPUT.TXT’); reset(f1);
assign(f2,’KETQUA.TXT’); rewrite(f2);
while not eof(f1) do
begin
read(f1,cd,cr);
s:=cd*cr;
write(f2,s:4:2);
end;
close(f1); close(f2);
end.