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).
1 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
