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.e

0 bình luận về “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.e”

1. 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.

   Bình luận