Quersumme

bandido1

Wie kann ich die Quersummer errechen. Also ich habe eine Zahl

[autoit]

$zahl

[/autoit]

die kann aus allen natürlichen Zahlen bestehen also keinen Komma ode minuszahlen !!

Also ich würde erstmal spliten

[autoit]

$quer=StringSplit($Zahl,"")

[/autoit]

aber was dann ??

blubbstar

Spoiler anzeigen

[autoit]

$QuerSumme = _QuerSumme(15)
MsgBox(0, "Quersumme von 15", $QuerSumme)

[/autoit] [autoit][/autoit] [autoit]

Func _QuerSumme($sZahl)
Local $sQuerSummeErg = 0
$sQuerSumme = StringSplit($sZahl, "")
For $i = 1 To UBound($sQuerSumme) - 1
$sQuerSummeErg += $sQuerSumme[$i]
Next
Return $sQuerSummeErg
EndFunc ;==>_QuerSumme

[/autoit]

bandido1

danke funzt alles

**BugFix**

Kleine Anmerkung:
DIE Quersumme als solche gibt es nicht. Es gibt einige Varianten davon.
Sehr häufig genutzt wird die Reduzierung auf 1 Stelle (Iterierte Quersumme):
Zahl: 123456
1+2+3+4+5+6 = 21
2+1 = 3
Eignet sich sehr gut für Prüfverfahren, z.B. Hash Funktionen.

**Andy**

Die Suchfunktion (allerdings bei mir nur die erweiterte Suche) spuckt zum Thema Quersumme jede Menge Threads aus ....