Cho tệp dulieu1.dat chứa 1 số là bán kính của 1 đường tròn. Hãy viết chương trình tính diện tích hình tròn đó. Ghi kết quả diện tích vào tệp ketqua1.equ. *
2 câu trả lời
program dientich;
uses crt;
var f,g:text;
r:real;
begin
Assign(f,'dulieu1.dat'); reset(f);
Assign(g,'ketqua1.equ'); rewrite(g);
if IOresult<>0 then
begin
rewrite(f);
reset(f);
end;
readln(f,r);
writeln(g,(r*r*3.14):2:2);
close(f); close(g);
end.
uses crt;
var f:text;
r:real;
begin
assign(f,'dulieu1.dat');reset(f);
readln(f,r);
close(f);
assign(f,'ketqua1.equ');rewrite(f);
write(f,r*r*3.14:0:2);
close(f);
end.
