Leute könnt ihr mir vielleicht sagen warum nach dem compilen die Ausgabe nur für die Zahl Null ausgegeben wird, hänge da schon Stundenlang dran.
Delphi-Quellcode:
{$APPTYPE CONSOLE}
{$R+,Q+,X-}
uses
System.SysUtils, System.Math;
const
LOWER_BORDER = 0;
UPPER_BORDER = 50;
Epsilon = 1E-100;
var
even: boolean;
fib: extended;
fibo: extended;
twinprim: boolean;
zahl: integer;
Primzahl: integer;
teiler: integer;
uebrig: integer;
n: real;
begin
for zahl := LOWER_BORDER to UPPER_BORDER do
begin
// Überprüfung ob gerade
if zahl > 1 then
begin
even := (zahl mod 2 = 0);
end
else
even := FALSE;
// Überprüfung ob Primzahl
if zahl > 1 then
teiler := 1;
repeat
teiler := teiler + 1;
uebrig := zahl mod teiler;
until (uebrig = 0);
if (teiler = zahl) then
Primzahl := zahl;
// Überprüfung ob Primzahlzwilling
if zahl >= 1 then
begin
while zahl = Primzahl do
twinprim := (zahl + 2 or zahl - 2 = Primzahl);
end;
writeln(zahl, ' even: ', even, ' twinprim: ', twinprim);
end;
readln;
end.