Ich kriege das mit der Input immer noch nicht hin.
Also mein Ziel ist es bei Spalte 1 die Nummerierung zu haben, Index vom Primzahl und dann rechts in der Spalte 2 dann meine Primzahl.
Delphi-Quellcode:
procedure TForm1.eratosthenes;
var prim:Array[1..100000]of Integer; //Zahlen von 1 bis 100000
i,v,nmax:integer; //i=Zahl
begin
nmax:=spinedit1.value;
for i:=2 to nmax do
prim[i]:=1;
v:=2;
while v*i<=nmax do
begin
prim[i]:=0;
v:=v+1;
end;
for i:=1 to nmax do
if prim[i]=1 then
Bei mir ist wenn prim[i]=1 eine Primzahl , alle die durch das v(Vielfachen) teilbar ist, werden nicht aufgelistet also prim[i]:=0.
Hilfe