Help me please!!
Viết chương trình lấy dữ liệu chiều dài và chiều rộng từ file dulieu.txt . Tính diện tích và chu vi của hình chử nhật. Ghi kết quả vào file ketqua.txt
Yêu cầu phải có sử dụng chương trình con (hàm tính diện tích và chu vi).
Const Fi=’Dulieu.TXT’;
Fo=’Ketqua.TXT’;
Var f,g: text;
a,b: extended;
Function dientich(a,b: extended): extended;
Begin
dientich:=a*b;
End;
Function chuvi(a,b: extended): extended;
Begin
chuvi:=(a+b)*2;
End;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,a,b);
Writeln(g,dientich(a,b):0:2);
Write(g,chuvi(a,b):0:2);
Close(f);
Close(g);
End.