Hallo,
kann mir jemand den folgenden Quelltext von hier erklären?
Das ganze ist für ein Programm, welches mir Primzahlen ausgeben soll. Aber so richtig weiß ich damit wirklich nichts anzufangen. Wer kann mir helfen?
Viele Grüße,
Tygrezz.
kann mir jemand den folgenden Quelltext von hier erklären?
Code:
function prim(zahl:integer):boolean; var i:integer; begin result:=true; for i:=2 to round(sqrt(zahl)) do if zahl mod i=0 then result:=false; end; procedure tform1.button1click(sender: tobject); var i:integer; begin listbox1.clear; for i:=2 to strtoint(edit1.text) do if prim(i)=true then listbox1.items.add(inttostr(i)); form1.caption:=inttostr(listbox1.items.count); end; end.
Viele Grüße,
Tygrezz.
Comment