..reicht Dir LongWord als großer Zahlenraum.
Longword 0..4294967295 unsigned 32-bit
Delphi-Quellcode:
function pi_montecarlo(n : LongWord):double; {Ermittlung von Pi mit der Monte Carlo Methode}
var
x,sy:double;
i: LongWord;
begin
sy:=0;
for i:= 0 to n-1 do
begin
x:=Random;
sy:=sy+sqrt(1-sqr(x));
end;
result:=(4*sy/n);
end;
Grüße
Klaus