Hallo Leute, ich habe ein kleines Problem ich soll ein Programm in Delphi schreiben, dass alle Primzahlen errechnet in einem Bereich, den man vorher in zwei Edit feldern festlegt und diese dann in einer Listbox ausgeben.
Hier ist mein bisheriger Quelltext! Könnte bitte mal jemand drüber gucken und mit weiter helfen?
Bedanke mich schon einmal im vorraus.
Delphi-Quellcode:
procedure TForm1.btn_berechnenClick(Sender: TObject);
var a, b, x, y: integer;
prim: boolean;
begin
x:= strtoint (edt_von.Text);
y:= strtoint (edt_bis.Text);
for a:= x to y do
begin
if a <= 100 then
prim := true;
end; //von begin
for b:= 2 to a do
begin
if b <= a then
if a mod b = 0 then
prim := false;
end; //von begin
begin
listbox_ausgabe.Items.Add (inttostr(b));
end; // von begin
end;
end.
[edit=Luckie]Delphi-Tags. Beim nächsten Mal bitte selber setzen. Mfg, Luckie[/edit]