|
Registriert seit: 7. Apr 2015
Ort: SH
169 Beiträge
Delphi XE7 Professional
|
AW: Primzahlen-Programm
1. Dez 2015, 16:39
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
Java ist auch eine Insel. 
Ist Delphi von Oracle? 
In meiner Buchstabensuppen fehlt das C++! 
Geändert von frankyboy1974 ( 1. Dez 2015 um 16:43 Uhr)
Grund: end; vergessen
|