Последние записи
- Регулярные выражения findall — найти позиции вхождения подстроки в строку
- Удалить повторяющиеся элементы из массива (VBA в Excel)
- Сравнить значения в TRxDBGrid
- Определить слова наибольшей и наименьшей длины (VBA в Microsoft Office Excel)
- Массив с Фибоначчи. Создание массива с произведением элементов Фибоначчи — Microsoft Office Excel
- Импорт таблицы Word на лист Excel
- Изменение имени файла в C# (си шарп)
- Поле и вычисления в запросе (SQL в Access)
- Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
- Раскрашивание ячеек в DBGrid
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 достигнут, а до точного значения — как до Луны на верблюдах.
Похожие статьи
