Viết chương trình con tính diện tích và chu vi hình tròn
2 câu trả lời
function S(R: real): real;
Begin
S:=pi*sqr(R);
End;
function CV(R: real): real;
Begin
CV:=2*pi*R;
End;
program chuvi_dientich;
uses crt;
var r:real;
{---Ham-chu-vi---}
function C(r:real):real;
begin
C:=2*3.14*r;
end;
{---Ham-dien-tich---}
function S(r:real):real;
begin
S:=3.14*r*r;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap ban kinh: '); readln(r);
writeln('Chu vi hinh tron la: ',C(r));
writeln('Dien tich hinh tron la: ',S(r));
readln;
end.
