Primzahlen-Programm

[p80286]

Das sollte die richtigen Ergebnisse liefern:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : integer;

function IstPrimzahl(zahl:integer):boolean;
var
  i : integer;
  max : integer;
begin
  result:=true;
  max:=trunc(sqrt(zahl));
  for i:=2 to max do
    if zahl mod i = 0 then result:=false;
end;


begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    for i:=1 to 128 do begin
      if IstPrimzahl(i) then  writeln(inttostr(i)+' ist eine Primzahl')
      else writeln(inttostr(i)+' ist keine Primzahl');
    end;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Gruß
K-H