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.

Mô tả thuật toán :

Bước 1 : nhập bán kính r

Bước 2 : cv ← 2 * r * 3.14

Bước 3 : s ← r * r * 3.14

Bước 4 : xuất giá trị cv và s

Bước 5 : kết thúc

Viết chương trình :

uses crt;

var r, cv, s : real;

begin

Clrscr;

write ('nhap ban kinh hinh tron: '); Readln (r);

cv := 2 * 3.14 * r;

s  := r * r * 3.14;

writeln('chu vi duong  tron la : ', cv:3:2);

writeln('dien tich duong  tron la :', s:3:2);

readln

end.