was heißt schnell...
ich hab ne procedure, die dir Primzahlen ermittelt... musst mal gucken,
ob dir das reicht....
Delphi-Quellcode:
procedure Primzahlen;
var prim: boolean;
i,k: integer;
begin
listbox1.Clear;
i:=2;
gauge1.maxvalue:=strtoint(edit1.text);
gauge1.progress:=0;
while i<=strtoint(edit1.text) do
begin
prim:=true;
if i>2 then
begin
for k:=i-1 downto 2 do
begin
if (i mod k)=0 then prim:=false;
application.processmessages;
end;
end;
if prim then listbox1.Items.add(inttostr(i));
inc(i);
gauge1.progress:=i;
end;
end;
hab ne gauge1 drin (weil es für große zahlen echt ne weile dauern kann
als anzeige drin)
in das edit fehlt schreibst du die zahl, bis wohin du die primzahlen haben willst. und in die listbox werden dir dann alle geschrieben...
man könnte auch mit dem heap arbeiten und so schneller voran kommen, aber ich denke es kann schnell zu einem stack-überlauf kommen... aber sonst kannst du ja noch mal schreiben
Gruß BC