HILFE!! Pi-Berechnung - "unendliche reihe"

[Evian]

mir is da noch was eingefallen, manche Lehrer sind da ja sehr
peniebel. So könntest Du noch ne Variabel sparen:

Code:

function errechPI(x:integer ):Extended; 
VAR 
i, e : INTEGER;  
BEGIN 
  result := 1; e := 1; 
  FOR i := 1 TO x DO 
  BEGIN 
   e := e+2; 
   IF i MOD 2 = 0 THEN 
   result := result + 1 / e ELSE 
   result := result - 1 / e; 
  END; 
  result := result * 4; 
END;

gruss

Evi