Описание:
Delphi функция Pi возвращает число с
плавающей точкой, число подразумевает математическую константу Пи.
Окружность круга = Пи * Диаметр.
Пример кода:
var
myPi : Extended;
diam : Integer;
begin
diam := 10;
//
Show circumference and the area of a circle
// with diameter -
10 cm
ShowMessage(' Diameter = '+IntToStr(diam));
ShowMessage('Circumference = '+FloatToStr(Pi*diam));
ShowMessage(' Area = '+FloatToStr(Pi*(diam/2)*(diam/2)));
end;
Результат выполнения:
Diameter = 10
Circumference = 31.4159265358979
Area =
78.5398163397448