Cho tệp dodai.txt gồm 2 giá trị là chiều dài và chiều rộng của hình chữ nhật. Viết chương trình cho phép nhập 2 giá trị trên và tính diện tích in ra màn hình.
Cho tệp dodai.txt gồm 2 giá trị là chiều dài và chiều rộng của hình chữ nhật. Viết chương trình cho phép nhập 2 giá trị trên và tính diện tích in ra màn hình.
var f: text;
d, r: real;
begin
Assign(f, ‘dodai.txt’); reset(f);
read(f, d, r);
writeln(‘Dien tich: ‘, d*r);
readln
end.
program dien_tich;
uses crt;
var f:text;
a,b:integer;
begin
clrscr;
Assign(f,’dodai.txt’); reset(f);
readln(f,a,b);
writeln(‘Do dai cac canh la: ‘,a,’ ‘,b);
writeln(‘=> Dien tich la: ‘,a*b);
close(f); readln;
end.