MonteCarloSimulation - falsche ergebnisse

[glkgereon]

so ein bildchen, wo ein viertelkreis drauf is, und gezeigt wird wo die ganzen pünktchen gelandet sind....

@Toxman: ich habs jetzt so umgeschrieben (und es funzt)

Delphi-Quellcode:

x:=random;
y:=random;
if sqr(x)+sqr(y)<1 then inc(pin);