Question

cho file ‘DL.INP’ có nội dung là 2 số nguyên là chiều dài và chiều rộng của hình chữ nhật .hãy viết chương trình tính chu vi và diện tích của hình chữ nhật và ghi kết quả vào file ‘KQ.OUT’ .

- DL.INP : 3 4

-KQ.OUT :

+Cv:=14

+Dt:=12

Answer 1

const fi='dl.inp';

fo='kq.out';

var f1,f2:text;

a,b,cv,dt:integer;

begin

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

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

readln(f1,a,b);

cv:=(a+b)*2;

writeln(f2,'+Cv:=',cv);

dt:=a*b;

writeln(f2,'+Dt:=',dt);

close(f1);

close(f2);

end.