Threads

[shmia]

Delphi-Quellcode:

procedure TPiCalc.Execute; 
var x, y:Extended; 
    PointsIn, PointsAll:Int64; 
begin 
  randomize; 
  PointsIn := 0;  // <==== !!!!!!!!!!!!!
  PointsAll:= 0;  // <==== !!!!!!!!!!!!!
  while not Terminated do 
    begin 
    x:=random; 
    y:=random; 
    if sqr(x)+sqr(y)<1.0 then inc(PointsIn); 
    inc(PointsAll); 

    // wenn nach jeder Berechnung sofort eine Ausgabe erfolgen würde
    // braucht man keine Threads !!
    if (PointsAll mod 1000) = 0 then
    begin
       Value:=4.0*PointsIn/PointsAll; 
       Synchronize(Ausgabe); 
    end; 
  end;
  Value:=4.0*PointsIn/PointsAll; 
end;