Zitat von
3_of_8:
die Geschwindigkeit ist auch so hoch genug.
@agm65: Das hier dürfte schneller sein:
Delphi-Quellcode:
function IsPrimeNumber(AValue: Integer): Boolean;
var I: Integer;
begin
Result:=False;
if AValue<2 then exit;
I:=2;
while I*I<=AValue do
begin
if AValue mod I=0 then exit;
inc(I);
end;
Result:=True;
end;
Und sie kann och erhöht werden, in dem du nur bis zur Quadratwurzel testest.