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

2 câu trả lời


uses crt;
var r,s:real;
begin
 clrscr;
  write('nhap chieu rong hinh tronL:');readln(r);
  s:=r*r*3.14;
  writeln(s);
 readln;
end.

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.