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!