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