Последние записи
- TASM — возврат через стек, адрес, регистр
- Копирование bmp-картинки в буфер обмена используя Си
- Как сделать в DNS CNAME редирект на группу вконтакте
- Геопозиция
- Колесо фортуны на javascript
- Вычислить формулу Тейлора на ассемблере
- Отловить число загружаемых файлов php
- Вывод текста и числа в одной строке
- Wapuula — лучший многоцелевой WordPress шаблон бизнес тематики
- Прокрутка внутри элемента
28th
Май
Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
Posted by obzor under Delphi
ЗАДАНИЕ: Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле:
Pi/2 = (2*4)/(3*3) * (4*6)/(5*5) * (6*8)/(7*7) и т.д.
с произвольной точностью eps. Значение точности передать в функцию как аргумент. Обратиться с точностью 0,01; 0,001; 0,0001.
Это не Pi/2, а Pi/4 .
Держи, двоечник.
Код:
function Pi_new(eps:extended): extended ;
var i pii,piX,dPi,a,b,c : extended ;
begin
pii := 1.0 ; a:=2 ; b := 4 ; c := 3 ; piX := 1.0 ;
repeat
pii := pii * (a*b)/(c*c) ; dPi := pii - piX ;
a := b ; b := b + 2 ; c := c + 2 ;
piX := pii ;
until (Abs(dPI) < eps);
Pi_new := pii * 4.0 ;
end;
А уж
Цитата:
| Обратиться с точностью 0,01; 0,001; 0,0001. |
— знания, надеюсь, позволят ?
А этот алгоритм — полное гуано, медленно сходится. Eps достигнут, а до точного значения — как до Луны на верблюдах.
Похожие статьи
