Zahlen symmetrisch

[wido]

Hmmm ... was Du meinst sind Primzahlen. Hab noch nie den Begriff von "symmetrische Zahl" gehört. Naja, die einfachste Methode ist folgende:

Du willst prüfen ob die Zahl z eine Primzahl ist. Also ermittelst Du alle Zahlen x zw. 2 und z-1 und schaust nach, ob z modulo x = 0 ist:

Delphi-Quellcode:

function IstPrimzahl(z : integer) : boolean;
var
  i : integer;
begin
  result := true;
  for i := 2 to z-1 do
    if z mod i = 0 then
      begin
        result := false;
        exit;
      end;
end;

Das Problem ist übrigens auch als Faktorisierungsproblem bekannt. Eine effiziente Lösung ist nicht existent. Allerdings kannst Du den Aufwand für den Bruteforce Ansatz verringern. Du musst z.B. prinzipiell nicht bis z-1 testen sondern nur bis Wurzel aus z etc.. Aber das führt zu weit.

Für was magst das ganze denn verwenden?