Thema: Delphi Primzahlen Sieb

Einzelnen Beitrag anzeigen

harryi

Registriert seit: 29. Sep 2008
14 Beiträge
 
#6

Re: Primzahlen Sieb

  Alt 8. Mär 2009, 13:24
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
  Mit Zitat antworten Zitat