Benchmark Algorythmus

[Binärbaum]

Du hattest doch schon sowas wie Primzahlentest vorgeschlagen. Warum nimmst du das dann nicht auch?

Delphi-Quellcode:

function Ist_Prim(n: LongWord): Boolean;
//LongWord ist ein vorzeichenloser 32bit-Integertyp
var i: Longword;
begin
  if n>=2 then Result:= True
    else Result:= False;
  i:= 2;
  while (Result and (i<=n-1)) do begin
    Result:= ((n mod i)<>0);
    i:= i+1;
  end;//while
end;

(ja, ich weiß, die Funktion könnte man noch deutlich optimieren, aber da es hier ja darum geht, eine gewisse Auslastung zu erreichen, erspare ich mir das mal.)

Diese Funktion kann man dann in einer for-Schleife laufen lassen und mit GetTickCount die Zeit nehmen:

Delphi-Quellcode:

var x, t: LongWord;
begin
  t:= GetTickCount;//Zeit nehmen
  for x:= 2 to 1000000 do Ist_Prim(x);
  t:= GetTickCount -t;
  ShowMessage('Dauer: '+IntToStr(t)+' ms');
end;

MfG
Binärbaum