Zahlen symmetrisch

[Der.Kaktus]

Zitat von dominikkv:

Zitat von DeddyH:

Hallo! Symmetrische Zahlen, nicht Primzahlen

ohh..ähh..was sind symmetrische Zahlen? Wikipedia kennt das nicht^^
Ist zB die 8 eine symmetrische Zahl? Oder meint der sowas wie 123321?

schau mal meine Erkundungen an...7 Antworten hoeher

[wido]

Ja, beschrieben hat er aber Primzahlen. Aber für symetrische Zahlen gibts ne einfache Methode:

Delphi-Quellcode:

uses sysutils;

function IstSymetrisch(z : integer) : boolean;
var
  i : integer;
  s : string;
begin
  result := true;
  s := IntToStr(z);
  for i := 1 to Length(s) do
    result := result and (s[i] = s[length(s) - (i - 1)]);
end;

[dominikkv]

ohje... das geht mir hier zu schnell^^
und wenn dann noch der erste beitrag editiert wird...

aber zum thema:

Delphi-Quellcode:

isSymmetrisch(Zahl: String{!}): Boolean;
var
  Anfang, Ende: Integer;
begin
  Anfang := 1;
  Ende := length(Zahl);
  if not odd(length(Zahl)) then
    begin
      while (Zahl[Anfang] = Zahl[Ende]) and (Anfang < Ende) do
        begin
          Inc(Anfang);
          Dec(Ende);
        end;
      result := Anfang > Ende;
    end else
      result := False;
end;

hab mal so erfunden^^

[olee]

Mist eigentlich wär ich vor allen gewesen ....

wollte nur, dass es auch gut aussieht ^_^

Hmpf..

[DeddyH]

Noch ein Vorschlag:

Delphi-Quellcode:

uses StrUtils;

function IsSymmetricNumber(const i: Cardinal): Boolean;
begin
  Result := IntToStr(i) = ReverseString(IntToStr(i));
end;

[olee]

Funktioniert nur nicht immer ^^

123321 geht

1234321 geht nicht

[DeddyH]

Wie kommst Du zu dieser Annahme?

[olee]

Oh stimmt sry ...

... kleiner Denkdreher ^^

[rawsoul]

Zitat von DeddyH:

Siehe #4. 12345 ist nicht symmetrisch, 12321 hingegen schon. Du kannst auch mal nach Palindrom schauen

Falsch, siehe #3

Man kann Primzahlen auch "aussieben", oder diese nach Fermat testen.

//Edit: Stop! Wenn ich mich recht erinnere, prüfen Siebmethoden und der Test nach Fermat nur nach Pseudoprimzahlen!

[DeddyH]

Du bist des Lesens mächtig?

Zitat:

sry aber ja meine symmetrische zahlen.