Hallo,
ich programmiere zurzeit als Anfänger einen Primzahlen Sieb nach eratosthenes Methode.
Ich habe eigentlich alles verstanden, aber irgendwie will es nicht klappen.
Könnt ihr mir sagen, wo der Fehler liegt?
Wie kann ich die Lösung mit stringgrid1 verknüpfen?
Danke
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;
v:=v+1;
end
end
end;