Delphi的並行計算

有以下循環體： hits:=0; for I:=0 to NumberOfIterations-1 do begin {perform some calculations dependent on random number generation to determine a value x} if x>0 then hits:=hits+1; end;{For Loop} FailureProb

>>阅读原文<<