Описать функцию 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.

digitalis

Это не 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;