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
Nguyen Duc Anh

Câu 1:  Cho tệp HCN.TXT chứa liên tiếp các cặp số nguyên (a, b) là cạnh của các hình chữ nhật (các số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Viết chương trình đọc các cặp cạnh a, b từ tệp HCN.TXT, tính chu vi và diện tích của các hình chữ nhật tương ứng và ghi vào tệp KETQUA.TXT.

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:42

const fi='hcn.txt'

fo='ketqua.txt'

var f1,f2:text;

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

n:integer;

cv,dt:real;

begin

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

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

n:=0;

while not eof(f1) do

  begin

inc(n);

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

end;

for i:=1 to n do 

  begin

cv:=(a[i]+b[i])/2;

dt:=a[i]*b[i];

writeln(f2,cv:4:2,' ',dt:4:2);

end;

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Nhật Quỳnh
Xem chi tiết
Vũ văn huy
Xem chi tiết
An Hạ
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
Kiên Ngọc
Xem chi tiết
Hoàng Long
Xem chi tiết
KI DO
Xem chi tiết
trương quốc bảo
Xem chi tiết
Chí Nguyễn
Xem chi tiết