Forum: Object-Pascal / Delphi-Language
Delphi
by dominikkv,
28. Mär 2008
versuchs mal so:
uses
StrUtils; // Uses ergänzen
function IsSymmetricNumber(const s: String): Boolean;
begin
Result := s = ReverseString(s);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by dominikkv,
27. Mär 2008
ohje... das geht mir hier zu schnell^^
und wenn dann noch der erste beitrag editiert wird...
aber zum thema:
isSymmetrisch(Zahl: String{!}): Boolean;
var
Anfang, Ende: Integer;
begin
Anfang := 1;
Ende := length(Zahl);
Forum: Object-Pascal / Delphi-Language
Delphi
by dominikkv,
27. Mär 2008
ohh..ähh..was sind symmetrische Zahlen? Wikipedia kennt das nicht^^
Ist zB die 8 eine symmetrische Zahl? Oder meint der sowas wie 123321?
Forum: Object-Pascal / Delphi-Language
Delphi
by dominikkv,
27. Mär 2008
function isPrime(Zahl: Integer): Boolean;
var
Temp: Integer;
begin
Temp := 2;
while ((Zahl mod Temp) <> 0) and (Zahl > Temp) do
inc(Temp);
result := Zahl = Temp;
end;