Musste ein Programm schreiben, welches mir die Primzahlen bis zu einer bestimmten Zahl anzeigt. Hab aber leider keine Ahnung was die einzelnen Begriffe der Syntax bedeuten. Hat jemand eine Idee?
Danke schon mal...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,a: integer;
begin
try
z:=strtoint(edit1.text)
except
edit1.text:='Fehler!';edit1.setfocus;
exit;
end;
listbox1.Clear;
i:=0;
z:=strtoint(edit1.Text);
for i:=2 to z do begin
pz:=true;
for a:=2to i div 2 do
if i mod a=0 then pz:=false;
if pz then listbox1.Items.add(inttostr(i));
end;
end;
[edit=Phoenix]Delphi-Tags gesetzt. Beim nächsten mal bitte Selber machen! Mfg, Phoenix[/edit]