Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Zahlen symmetrisch

    Delphi
    by wido, 27. Mär 2008
  Ja, beschrieben hat er aber Primzahlen. Aber für symetrische Zahlen gibts ne einfache Methode:
  
  uses sysutils;
  
  function IstSymetrisch(z : integer) : boolean;
  var
  i : integer;
  s : string;
  begin
  result := true;
• Forum: Object-Pascal / Delphi-Language

  Re: Zahlen symmetrisch

    Delphi
    by wido, 27. Mär 2008
  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:
  
  function IstPrimzahl(z : integer) : boolean;
  var
  i : integer;
  begin
  result := true;
  for i := 2 to z-1 do