Primzahlen-Programm

[BlackPegasus]

Danke an alle!!!
Die meisten Antworten sind schon zu fortgeschritten für mich

aber das hier, scheint mir am unkompliziertesten.
nur eine Frage, könnt ihr mir die Funktion

Code:

isPrim:=true;//boolean

in diesem Kontext erklären?
Ich versteh irgendwie nicht was es mir genau da bringt
Danke nochmal

Zitat von frankyboy1974:

hallo,

Delphi-Quellcode:

zahl:=Strtoint(Edit1.Text);
l:=trunc(sqrt(zahl));
isPrim:=true;//boolean
for i:=2 to l do begin
  erg:=zahl mod i;
  if erg=0
  then begin
    Label2.Caption:='Das ist keine Primzahl';
    isPrim:=false;
    break;
  end;
end;
if isPrim then Label2.Caption:='Das ist eine Primzahl';

mfg