Hallo,
ich brauche dringend Hilfe!!!
Das Programm soll die Primzahlen bis zu der eingegebnen Grenze in einer ListBox angeben.
als Vorlage haben wir folgendes
------------------
Delphi-Quellcode:
procedure TForm1.BRechnenClick(Sender: TObject);
var n, teiler, zahl :integer;
wurzel :real;
prim :boolean;
begin
ListBox1.clear;
n:=strtoint(Edit1.text);
ListBox1.items.Add('2');
zahl:=3;
while zahl<=n do
[COLOR="Red"]begin
prim:=true;
teiler:=zahl;
wurzel:=sqrt(n);
while (teiler <= wurzel) and (prim) do
begin
if zahl mod teiler:=0 then prim := false;
teiler:=teiler + 1 ;
end;[/COLOR]
if prim = True then
listbox1.Items.Add (inttostr(zahl));
end;
end.
--------------
ab der ersten while do Schleife ist es falsch. Aber was genau ???
Der Schluss stimmt auch wieder (if prim = True then
listbox1.Items.Add (inttostr(zahl)); )
Vielen Danke!