Thema: Delphi Quersum.-Berechnung

Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Quersum.-Berechnung

  Alt 22. Nov 2006, 21:30
Rekursion bedeutet eher "Selbstbeinhaltung".

Also:

Code:
Quersumme einer Zahl:
  Wenn die Zahl = 0 dann
     ist die Quersumme = 0
  sonst
     ist die Quersumme = Einerziffer der Zahl + Quersumme der Zahl ohne die Einerstelle
Wie Du siehst, enthält die Formulierung der Problemlösung den Lösungsansatz selbst, Rekursion zieht sich quasi an den eigenen Haaren aus dem Sumpf.

Versuch mal, diese rekursive Funktion zu implementieren. Dazu musst Du erst einmal zwei Fragen beantworten:
1. Wie bekomme ich die Einerziffer einer Zahl
2. Wie bekomme ich den Rest der Zahl (ohne Einerziffer)

Der Rest ist eigentlich nur eine Übersetzung des o.g. Algorithmus ins Englische...
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat