ACeS - Di 17.11.09 23:35
Titel: Frage zu einer aufgabe (bin neuling)

---

also ich habe die frage quasi schonmal gestellt, habe es nun aber nocheinmal versucht.
die aufgabe lautet. schreibe ein programm, das die ersten n primzahlen ausgibt. (n=eingabe)

ich hab nun so begonnen:

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,m:integer;

begin

a:=strtoint(edit1.Text)
b:=2

Repeat
m:= c mod b;
b:= b+1;

until (m=0)


so jetzt habe ich das problem. ds so ja nur eine zahl geprüft wird (also c)
aber es soll ja mehrere zahlen ausgeben. ich hätte nun weiter gemacht, mit ner label weiter gemacht +chr(13) und für jedes dazukommende eine neue variable+1 bis die variable=a (also der eingabe ist). aber wie kann ich das denn nun machen???

thx im vorraus

Christian S. - Mi 18.11.09 00:06

---

Ein Thread [http://www.delphi-forum.de/viewtopic.php?t=95997] reicht. :?