21. Cho đường tròn tâm O , bán kính r tính diện tích đường tròn tâm O bán kính r a) mô tả thuật toán b) viết chương trình tính diện tích hình tròn

0 bình luận về “21. Cho đường tròn tâm O , bán kính r tính diện tích đường tròn tâm O bán kính r a) mô tả thuật toán b) viết chương trình tính diện tích hình tròn”

1. a/ thuật toán:

   b1: nhập r

   b2: tính diện tích bằng lệnh gán s:=r*r*Pi;

   b3: in kết quả ra màn hình

   b/ chương trình

   uses crt;

   var r,s: real;

   begin

   clrscr;

   write (‘nhap r: ‘);  readln (r);

   s:=r*r*Pi;

   writeln (‘dien tich la: ‘,s:1:3);

   readln;

   end.

   Bình luận