Question

BT: cho tệp AAA.TXT chứa hai số x,y. Viết chương trình tính chu vi và diện tích hình chữ nhật với chiều dài là x và chiều rộng là y chứa trong tệp AAA.TXT. Sau đó ghi kết quả chu vi diện tích vừa tính vào tệp BBB.TXT

Answer 1

const fi='aaa.txt';

fo='bbb.txt';

var f1,f2:text;

x,y,cv,dt:real;

begin

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

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

readln(f1,x,y);

cv:=(x+y)*2;

writeln(f2,'chu vi hinh chu nhat la: ',cv:4:2);

dt:=x*y;

writeln(f2,'dien tich hinh chu nhat la: ',dt:4:2);

close(f1);

close(f2);

end.