Division by Zero?!

[Klaus01]

Delphi-Quellcode:

pi_1:=0;

For i:=1 to n do
  begin
     if i mod 2 = 0 then
        pi_1:=pi_1+(1/(2*n-1))
     else
        pi_1:=pi_1-(1/2*n-1))
  end;

pi_2:=1/(2*n+1)

pi_x:=4*(pi_1+pi_2)

nicht getestet.

frei nach
http://www.matheprisma.uni-wuppertal...XXL/index.html

Grüße
Klaus