Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
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');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
Danke für eure Hilfe habs rausbekommen^^ :)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
habe es jetzt so wie unten ohne teiler:=1
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
while zahl<=n do
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;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
ich habe jetzt die ausgabe aus der schleife genommen
geht trotzdem noch nicht
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
habe jetzt folgendes:
var n, teiler, zahl :integer;
wurzel :real;
prim :boolean;
begin
ListBox1.clear;
n:=strtoint(Edit1.text);
ListBox1.items.Add('2');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
ahh nee
jetzt funktioniert es
aber er zeigt mir in der listbox bei n:=50 z.b.
nur 2 und 51 an ???
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
Hallo Wolfgang Mix
danke schonmal
jetzt jedoch verlangt er dass der ausdruckstyp BOOLEAN sein muss in der zeile if zahl mod teiler:=0 then prim := false;
was stimmt hier noch nicht???
fabi
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
In welcher zeile müsste ich das genau ändern?
eigentlich sollte nur im roten bereich die fehler sein^^
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
Hallo madtom,
leider sind bin ich noch nicht mit den befehlen von deinem link vertraut.
die lösung müsste eigentlich nur mit den schleifen und den vorgegebnen var gehen.
das rot markierte ist ja nur falsch. aber ich komm nicht dahinter was alles ^^
fabi
Forum: Algorithmen, Datenstrukturen und Klassendesign
by infofa1,
17. Mai 2011
Hallo,
ich brauche dringend Hilfe!!!
Das Programm soll die Primzahlen bis zu der eingegebnen Grenze in einer ListBox angeben.
als Vorlage haben wir folgendes
------------------
procedure TForm1.BRechnenClick(Sender: TObject);