Question

hãy viết chương trình đọc ra từ tệp hcn.inp các cặp cạnh a,b của hình chữ nhật. tính chu vi và diện tích mỗi hình chữ nhật rồi ghi kết quả vào tệp hcn.out

Answer 1

program hotrotinhoc_hoc24;

const fi='hcn.inp';

fo='hcn.out';

var f: text;

a,b: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a);

read(f,b);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

writeln(f,'Chu vi hinh chu nhat la : ',(a+b)*2);

write(f,'Dien tich hinh chu nhat la : ',a*b);

close(f);

end;

begin

ip;

out;

end.