Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được ghi vào tệp output.txt
Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được ghi vào tệp output.txt
program LN;
uses crt;
var a,b:integer;
f,g:text;
function dt(x,y:integer):integer;
var S:integer;
begin
S:=x*y;
dt:=S;
end;
procedure nhap_xuat;
begin
assign(f,’input.txt’);reset(f);
assign(g,’output.txt’);rewrite(g);
read(f,a,b);
write(g,’dien tich hinh chu nhat la : ‘,dt(a,b));
close(g);
end;
begin
nhap_xuat;
end.