Zitat von
harryi:
Delphi-Quellcode:
procedure TForm1.eratosthenes;
var prim:Array[1..100000]of Integer; //Zahlen von 1 bis 250000
i,v:integer; //i=Zahl
begin
prim[i]:=1;
stringgrid1.cells[0,1]:='0';
for i:=1 to nmax do
begin
v:=2;
while v*i<=nmax do
begin
prim[i]:=0; //prim[i] ist gleich 0 statt v
v:=v+1;
end
end
end;
Dem Array prim wird immer der Wert 0 zugewiesen. Weise den Wert v zu!
Ich habe jetzt den Primzahlalgo nicht im Kopf, weiß aber, das eine Primzahl nur durch 1 und durch sich selber ohne Rest teilbar ist. Daraus sollte sich ein Algo bauen lassen. Egal wie schnell der dann erst mal ist.