Viết chương trình tính diện tích hình tròn, chu vi hình tròn S=pi.R^2 C=2pi.R

Program Hinh_tron;

Uses crt;

Var r,cv : real;

Begin

Clrscr;

Write ('Nhap bán kinh của hình tròn: ');

Readln (r);

cv:=r * 3.14 * 2;

dt:=r * 3.14 * 3.14;

Writeln ('Chu vi = ',cv);

Writeln ('Dien tich =',dt);

Readln;

End.

Program baitap;

Uses crt;

Var r: real;

Begin

Clrscr;

Write('Nhap ban kinh cua hinh tron:');

Readln(r);

Writeln('Chu vi:',r*2*3.14);

Writeln ('Dien tich:',r*r*3.14);

Readln

End.