Viết chương trình diện tích chu vi hình tròn

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.

CHƯƠNG TRÌNH TÍNH CHU VI VÀ DIỆN TÍCH HÌNH TRÒN

Program CHUVI_Hinh_Tron_Program;

Uses Crt;

Var r,dt,cv:real;

Begin

Clrscr;

Writeln(‘TINH DIEN TICH & CHU VI HINH TRON:’);

Write (‘Nhap ban kinh R=’);readln(r);

dt:=pi*r*r;

cv:=2*pi*r;

Writeln(‘Dien tich hinh tron la:’,dt:6:2); Writeln(‘Chu vi hinh tron la:’,cv:6:2);

Readln;

End.

program Hinh_Tron;

uses crt;

const pi=3.14;

var S,P,r:Real;

begin clrscr;

writeln('Nhap ban kinh r=');Readln(r);

P:=r*2*pi;

S:=r*r*pi;

writeln('Chu vi hinh tron P=',P);

writeln('Dien tich hinh tron S=',S);

readln;

end.