Bài 2: Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó.
2 câu trả lời
Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Write ('Nhap ban kinh R: '); readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln('Dien tich hinh tron la:',dt:1:2);
Writeln('Chu vi hinh tron la:',cv:1:2);
Readln;
End.
program BTH;
uses crt;
var a:real;
BEGIN
clrscr;
Write('Nhap ban kinh: ');readln(a);
Writeln('Chu vi hinh tron la: ',(a+a)*pi:4:2);
writeln('Dien tich hinh tron la: ',a*a*pi:4:2);
readln;
END.