Hallo,
Ich versuche, ein Programm zum Berechnen von Primzahlen zu schreiben, und hätte dazu ein Paar Fragen:
Was das Programm können soll: Aus einer Menge an Zahlen von 2 bis n durch das
Sieb des Eratosthenes Primzahlen berechnen. N soll dabei manuell von dem Benutzer in einem Editfeld eingegeben werden (der Default ist 200), und die berechneten Primzahlen sollen in einem Memofeld ausgegeben werden.
Dazu habe ich folgenden Code im Internet gefunden:
Delphi-Quellcode:
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;
Das funktioniert insofern, als dass das Programm keine Fehlermeldung angibt und das Programm erfolgreich kompiliert werden kann.
Allerdings hat das Programm so noch keinen Nutzen.
Meine Fragen wären daher:
1. Wie bringe ich es fertig, dass "n" im Sourcecode die Zahl ist, die man im Editfeld eingegeben hat?
Ich habe versucht es unter var zu definieren, hab es aber nicht hingekriegt.
2. Wie kann ich erreichen, dass die berechneten Primzahlen am Ende im Memofeld ausgegeben werden?
Gruß,
Descole