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.