ROGRAM BAI9;ROGRAM BAI9; ROGRAM BAI9;ROGRAM BAI9;USES CRT;USES C...

Bài 9.

rogram bai9;

rogram bai9;

uses crt;

uses crt;

const pi= 3.1416;

const pi= 3.1416;

var a,s:real;

var a,s:real;

begin

begin

clrscr;

clrscr;

repeat

repeat

write('Nhap ban kinh duong tron: ');

write('Nhap ban kinh duong tron: ');

readln(a);

readln(a);

if a<0 then writeln('Nhap lai!');

if a<0 then writeln('Nhap lai!');

until a>0;

until a>0;

s:=(a*a*pi)/2;

s:=(a*a*pi)/2;

wri

write('Dien

te('Dien

te('Dien

te('Dien

tichphan gach cheo: ',s:8:3);

tichphan gach cheo: ',s:8:3);

tichphan gach cheo: ',s:8:3);

tichphan gach cheo: ',s:8:3);

Great by: Nguyễn Trọng Hoàng Email: [email protected]

readln

readln

end

end

end

end.

.

.

.

Ví Dụ

Ví Dụ