Delphi-Quellcode:
Var
prime, x: Integer;
begin
prime := StrToInt(Edit1.text);
x := 1;
//größer als 1 = beginnen
If prime > 1 then
begin
Repeat
x := x + 1;
//gucken ob x einen rest von 0 hat und durch eine zahl die größer als "eingabe" teilbar is"
Until (x > prime div x) or (prime Mod x = 0) ;
if x> prime div x
then
begin
Label1.Caption:=Edit1.text+ ': Ja, Primzahl.' ;
label1.Color :=clgreen;
end
else
begin
Label1.Caption:=Edit1.text +': Nein, keine Primzahl.';
label1.Color :=clred;
end;
end
// 1 und 0
else
begin
if prime = 1 then
begin
Label1.Caption:='1: Nein, keine Primzahl.' ;
label1.Color :=clred;
end;
if prime=0 then
begin
Label1.Caption:='0 weiss ich nicht :).';
label1.Color :=clred;
end;
end;
// ohh is nur wenn eine Zahl eingegebn ist, aber das umzuändern is sicherlich net schwer!