cách lập trình tính diện tích hình tròn trong pascal

0 bình luận về “cách lập trình tính diện tích hình tròn trong pascal”

1.  Begin
   Write(‘-Nhap ban kinh : ‘);
    Readln(r);
    s:=r*r*pi;
   Writeln(‘+Dien tich hinh tron = ‘,s:10:2,‘ met vuong’);
   End;

   cx ko chắc ^^

   Bình luận

2. Thuật toán tính diện tích hình tròn:

   Bước 1: Nhập bán kính r
   Bước 2: s ← r*r*3.14

   Bước 3: Xuất kq

   ————-

   Chương trình:

   Program BTT;
   Uses crt;
   Var r,s: real;
   Begin
           Clrscr;
           Write(‘Nhap ban kinh R: ‘); Readln(r);
           s:=sqr(r)*3.14;
           Write(‘Dien tich hinh tron la: ‘,s:0:2);
           Readln
   End.

   Bình luận