Delphi Число Пи

Число π («пи») в математике широко известно и используется для решения различных задач, в том числе и в программировании на Delphi.

В Delphi можно использовать константу PI, которая представляет приблизительное значение числа π. Например:

var  radius: Double;  area: Double;begin  radius := 5;  area := PI * radius * radius;  ShowMessage('Area of the circle is ' + FloatToStr(area));end;

В этом примере мы вычисляем площадь круга, используя формулу πr². Значение константы PI округлено до ближайшего приблизительного значения.

Для большей точности можно воспользоваться функцией ArcTan, которая возвращает значение арктангенса. Известно, что значение арктангенса π/4 равно 1. Таким образом, можно вычислить значение числа π:

var  n, i: Integer;  sum, pi: Double;begin  n := 1000000;  sum := 0;  for i := 0 to n do    sum := sum + Power(-1, i) / (2 * i + 1);  pi := 4 * sum;  ShowMessage('Value of Pi is ' + FloatToStr(pi));end;

Этот пример использует формулу Лейбница для вычисления значения π. Чем больше значение n, тем точнее будет результат.