Quersum.-Berechnung

[Flare]

Zitat von capo:

inc(iSumme,iTmp); // ist das Gleiche wie : iSumme := iSumme + iTmp; nur schneller

In diesem Fall würde ich auf die Intelligenz des Compilers setzen und behaupten, dass er beides identisch umsetzt.


Flare

[Cöster]

Zitat von Flare:

Zitat von capo:

inc(iSumme,iTmp); // ist das Gleiche wie : iSumme := iSumme + iTmp; nur schneller

In diesem Fall würde ich auf die Intelligenz des Compilers setzen und behaupten, dass er beides identisch umsetzt.


Flare

Gleichschnell, nur der Code halt ist kürzer.

[marabu]

Oder noch kürzer:

Delphi-Quellcode:

function CrossSum(n: Int64): Integer;
begin
  if n < 0 then Result := -1 else
  if n = 0 then Result := 0 else
  Result := CrossSum(n div 10) + (n mod 10);
end;

Grüße vom marabu

[Alexander Roth]

Zitat von Problemmacher:

wie ich eine Quersummenberechnung ohne Schleifen
realisieren könnte.

Zitat von jakobwenzel:

Für den Anfänger sind Schleifen einfacher als Rekursion, und ich sehe keinen Grund, hier keine Schleifen zu verwenden.

Sehe ich auch so.

Zitat von Problemmacher:

Mit Schleifen hab ich schon vielerlei Lösungen
gesehen, doch ich würde gerne auch diesen sicherlich auch
eher umständlichen Weg versuchen und wissen wie sowas zu lösen wäre ...

Es gibt verdammt viele Beispiele zu Rekursion und so was auch zu üben. Siehe Fakultät

Doch:

Zitat aus Rekursion (by me):

Zitat:

Überhaupt sind Rekursive Algorithmen zwar sehr elegant, aber wenn es nicht-rekursive Algorithmen gibt, sind diese meistens schneller und einfacher zu programmieren.
Deshalb sollten rekursive Algothmen, wenn es nicht dringend erforderlich oder sinnvoll ist, nicht benutzt werden.