Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
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 достигнут, а до точного значения — как до Луны на верблюдах.
Похожие статьи
