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...
Đọc tiếp
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.
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.