Question

cho tệp dư liệu hình chữ nhạt gồm các cặp chiều dài, chiều rộng là số nguyên dương lớn hơn 0. Viết chương trình đọc tệp hình hcn.dat tính diện tích các hình chưi nhat ghi ra màn hình, tính chu vi cac hình chữ nhật ghi vào tệp chuvu.out.

Answer 1

uses crt;

const fi='hcn.dat'

fo='chuvi.out'

var f1,f2:text;

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

n,i,j:integer;

begin

clrscr;

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

writeln(a[i]*b[i]);

for i:=1 to n do 

  writeln(f2,2*(a[i]+b[i]));

close(f1);

close(f2);

readln;

end.