hi
ich mach grad ein prog zur montecarlo-simulation
damit berrechne ich pi
nun ist pi ja meines wissens 3,14....
bei mir kommt aber 3,18... raus
wo ist der fehler?
Delphi-Quellcode:
var
x, y, i, pin:integer;//x, y, alle punkte, punkte im kreis
pi:Extended;
begin
while (running) do
begin
x:=random(NETZGENAUIGKEIT);
y:=random(NETZGENAUIGKEIT);
if sqr(x)+sqr(y)<sqr(NETZGENAUIGKEIT) then inc(pin);
inc(i);
Application.ProcessMessages;
end;
pi:=4*pin/i;
also ein randomize is davor....