Sieb des Eratosthenes

[info.noob]

Zitat von Union:

Bevor Du in Deiner Schleife auf n zugreifst solltest Du es zuweisen / initialiseren. Normalerweise hast Du ein Edit zur Eingabe und einen Button zum Start einer Aktion z.b. Berechnung. In der Ereignisbehandlung des Buttons rufst machst Du dann die Berechnung oder rufst diese, in eine weitere Procedur ausgelagert von dort auf.

Beispiel:

Delphi-Quellcode:

procedure Tform1.ButtonBerechnenClick(Sender : TComponent);
begin
  // Ggf. vorher überprüfen ob Edit1.Text etwas sinnvolles enthält
  Siebdeseratosthenes(StrToInt(Edit1.text));
end;

procedure TForm1.Siebdeseratosthenes(n : integer);
begin
   .. Dein Code
end;

Ich muss genau das gleiche wie Descolas machen und hab vesucht das zu machen was du geschrieben hast, aber das klappt irgendwie nicht. Es sagt immer das Siebdeseratosthenes nich definert ist! Ich würde auch gern wissen wo dann die veriablen genau hinkommen. Das vorher mit dem n:=StrtoInt(Edit.Text) hat auch nicht geklappt!

Ich kann dir ja meinen Quellcode zeigen:

Delphi-Quellcode:

procedure TForm1.BerechnenClick(Sender: TObject);
var
a: integer;
begin
 if (edtZahl.Text='') then begin lblFehler.Visible:= true end
 else begin
 lblFehler.Visible:= false;
 a:= StrtoInt(edtZahl.Text);

 if (a < 2) then begin lblFehler2.Visible:= true end
 else
 lblFehler2.Visible:= false
 end;
 Siebdesratosthenes(StrtoInt(edtZahl.Text));
end;

procedure TForm1.Siebdeseratosthenes(n : integer);
 var
 zahl : array[2..n] of boolean;
  p,i,v : integer;
  weiter : boolean;

begin
    for i := 2 to n do zahl[i] := true;
  p := 2;
  while p <= n do
  begin
    // es werden die Vielfachen von p getrichen
    v := 2*p; // v ist das 'Vielfache'
    while v <= n do
    begin
      zahl[v] := false;
      v := v+p;
    end;
    // es wird die nächste nicht gestrichene Zahl gesucht
    p := p+1;
    if p <= n then weiter := true; // 'weiter' ist ein logischer Schalter
    while weiter do
      if (p<=n) and (zahl[p] = false)
      then
        p := p+1
      else
        weiter := false;
  end;

end.

PS:Bitte schnell antworten! Ich brauche es bis morgen!