Primzahlen

[Romiox]

Zitat von DeddyH:

Ich konnte es nicht lassen und habe Deine Funktion einmal etwas verkürzt:

Delphi-Quellcode:

function isprime(a: integer): Boolean; //soll testen ob a eine Primzahl ist
var Teiler: integer;
begin
  Result := a > 1;
  Teiler := Pred(a);
  while Result and (Teiler > 1) do
    begin
      Result := a mod Teiler <> 0;
      dec(Teiler);
    end;
end;

Danke, ich werd das mal nachvollziehen. Bin grad erst angefangen (Informatik 11.1),
hab noch nicht so'n großes Repertoire an Funktionen

Zitat von implementation:

Zitat von Romiox:

Hmm, :headdesk: gibts nicht?

Meinst du ?

Noe, schon Desk. Aber tuts genauso :>