Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Mathematik

Nocheinmal die QUERSUMME

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.RedakteurVolta 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 RedakteurVolta angelegt.
  • Die aktuellste Version wurde am 02.10.2010 von RedakteurVolta gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen