Question

viết ctrinh đọc từ tệp "DULIEU.INP" 2 cạnh p, q (a, b). Một hàm tính chu vi (diện tích) hình chữ nhật và ghi kết quả vào tệp "KETQUA.OUT" mn giúp e vs

Answer 1

Program HOC24;

var f: text;

p,q: integer;

const fi='DULIEU.INP'

fo='KETQUA.OUT'

function dt(a,b: integer): longint;

var t: longint;

begin

t:=a*b;

dt:=t;

end;

function cv(a,b: integer): longint;

var t: longint;

begin

t:=(a+b)*2;

cv:=t;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,p,q);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

writeln(f,'Chu vi hinh chu nhat la: ',cv(p,q));

write(f,'Dien tich hinh chu nhat la: ',dt(p,q));

close(f);

end;

begin

ip; out;

end.