Viết chương trình con tính diện tích và chu vi hình tròn

0 bình luận về “Viết chương trình con tính diện tích và chu vi hình tròn”

1. function S(R: real): real;

      Begin

          S:=pi*sqr(R);

      End;

   function CV(R: real): real;

      Begin

           CV:=2*pi*R;

      End;

   Bình luận

2. program chuvi_dientich;

   uses crt;

   var r:real;

   {—Ham-chu-vi—}

   function C(r:real):real;

   begin

         C:=2*3.14*r;

   end;

   {—Ham-dien-tich—}

   function S(r:real):real;

   begin

         S:=3.14*r*r;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

         clrscr;

         write(‘Nhap ban kinh: ‘);  readln(r);

         writeln(‘Chu vi hinh tron la: ‘,C(r));

         writeln(‘Dien tich hinh tron la: ‘,S(r));

         readln;

   end.

   Bình luận