Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Quersumme berechnen
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  Mao |  21.06.2007 |
Die Quersumme einer Zahl berechnet man, indem man alle Ziffern zusammen zählt.
Declare Function Quersumme(Zahl As Integer) As Integer
Function Quersumme(Zahl As Integer) As Integer
Dim As String Temp
Dim As Integer Ergebnis, i
Temp=Str(Zahl)
If Len(Temp)>0 Then
For i=1 To Len(Temp)
Ergebnis+=Val(Mid(Temp, i, 1))
Next i
Else
Ergebnis=0
End If
Quersumme=Ergebnis
End Function
Aufruf zum Beispiel mit "Quersumme(1337)".
Die ytwinky-Version hiervon ist diesmal keine rekursive, sondern bedient sich einiger Tricks und ist daher für Anfänger mehr weniger geeignet :D
Declare Function Quersumme(Zahl As Long) As Long
Dim Zahl As Long=313373
Function Quersumme(byVal Zahl As Long) As Long
Dim Temp As String=Str(Zahl), Ergebnis As Long
For Zahl=0 To Len(Temp)-1
Ergebnis+=Val(Chr(Temp[Zahl]))
Next
Function=Ergebnis
End Function
?"Quersumme von " &Zahl &"=" &QuerSumme(Zahl);
Sleep
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen