Sieb des Eratosthenes

[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;

[Furtbichler]

Ich glaube, Du solltest einen Anfängerkurs in Delphi absolvieren. Das ist ganz einfahch:

http://www.christian-stelzmann.de/artikel/crashkurs.htm
oder
http://www.delphi-treff.de/tutorials...phi-crashkurs/
(ist vom gleichen Autor)
oder
http://delphi.programmieren.vias.org/

usw. Einfach mal googeln.

[Descole]

Zitat von Furtbichler:

Ich glaube, Du solltest einen Anfängerkurs in Delphi absolvieren. Das ist ganz einfahch:

http://www.christian-stelzmann.de/artikel/crashkurs.htm
oder
http://www.delphi-treff.de/tutorials...phi-crashkurs/
(ist vom gleichen Autor)
oder
http://delphi.programmieren.vias.org/

usw. Einfach mal googeln.

Danke, werd mir die Seiten mal anschauen^^

[Descole]

Zitat von Union:

Delphi-Quellcode:

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

Was genau ist "Siebdeseratosthenes" in dem Quellcode?
Sorry dass ich so viel frage, aber ich bin noch ziemlicher Anfänger :/

[Union]

Das ist eine von Dir erstellte Prozedur. Dort wo ich "Dein Code.." geschrieben habe solltest Du dann den von Dir aus der Wiki übernommenen Code einfügen. Du kannst diese Prozedure natürlich selber benennen wie Du magst.

[Descole]

Zitat von Union:

Das ist eine von Dir erstellte Prozedur. Dort wo ich "Dein Code.." geschrieben habe solltest Du dann den von Dir aus der Wiki übernommenen Code einfügen. Du kannst diese Prozedure natürlich selber benennen wie Du magst.

Ok, Danke

[Descole]

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 hab es ausprobiert, aber es klappt nicht

So sieht es bei mir im Moment aus:

Delphi-Quellcode:

procedure TForm1.BerechnenClick(Sender: TObject);
begin
  // Ggf. vorher überprüfen ob Edit1.Text etwas sinnvolles enthält
  Siebdeseratosthenes(StrToInt(Edit1.text));
end;
procedure TForm1.Siebdeseratosthenes(n : integer);
var
  a: real;


begin
  a:= StrtoFloat(Edit1.Text);
end;
  const
    n=200 ;
var
  zahl   : array[2..n] of boolean;
  p,i,v  : integer;
  weiter : boolean;
begin
  // Eingabe

  // Verarbeitung
  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.

[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!

[Bummi]

-zu jedem "begin" gehört ein "end"
-wenn eine Methode verwendet wird muss sie in der Klasse auch deklariert sein
-es gibt keine konstante Arrays mit variablen Größenangaben
-der "arbeitende" Teil der Prozedur kann um die Hälfte gekürzt werden

[Descole]

Zitat von Bummi:

-zu jedem "begin" gehört ein "end"
-wenn eine Methode verwendet wird muss sie in der Klasse auch deklariert sein
-es gibt keine konstante Arrays mit variablen Größenangaben
-der "arbeitende" Teil der Prozedur kann um die Hälfte gekürzt werden

Danke, aber kannst du das Im Code hinschreiben? Ich bin ein ziemlicher Anfänger und kann vor allem mit den letzten beiden Teilen nichts anfangen, sorry :/ (Ich glaube, info.noob geht es genauso)