Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Pi
Функция
Математическая константа System unit
  function Pi : Extended;
Описание
Функция Pi возвращает значение с плавающей запятой, дающее полезное приближение значения Пи.

Длина окружности = Пи * Диаметр.
Похожие команды
Cos  Косинус числа

Extended  Тип с плавающей запятой обладающий самой высокой точностью и вместимостью

Sin  Синус числа

Tan  Тангенс числа

 
Пример кода : Получение площади и длины окружность круга
var
  myPi : Extended;
  diam : Integer;
begin
  diam := 10;

  // Показ длины окружности и площади круга
  // с диаметром - 10 см
  ShowMessage('Диаметр = '+IntToStr(diam));
  ShowMessage('Длина окружнрости = '+FloatToStr(Pi*diam));
  ShowMessage('Площадь = '+FloatToStr(Pi*(diam/2)*(diam/2)));
end;
Диаметр = 10
Длина окружности = 31.4159265358979
Площадь = 78.5398163397448
 
форум программистов

© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия