Code-Beispiel

Nocheinmal die QUERSUMME

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Volta	02.10.2010

'Quersumme in rekursiver Programmierung

Function Quersum_r (n As Integer) As Integer



  'Abbruch bei n = 0 ; Einerstelle   + nächsten Aufruf mit n\10

  If n Then Function = Abs(n Mod 10) + Quersum_r(n\10)



End Function





'Quersumme in iterativer Programmierung

Function Quersum_i (n As Integer) As Integer

  Dim As Integer i, tmp = Abs(n) 'Abs(n) damit das Ergebnis positiv bleibt



  While tmp         ' Abbruch bei n = 0

    i += tmp Mod 10 ' plus Einerstelle

    tmp \= 10       '\10 = eine Dezimalstelle nach rechts

  Wend



  Function = i

End Function





Dim As Integer i = -123456789

Print Quersum_i(i)

Print Quersum_r(i)

sleep

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 02.10.2010 von Volta angelegt.
Die aktuellste Version wurde am 02.10.2010 von Volta gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.