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ụ