Ach, hattest auch einen Thread aufgemacht...
Habe Dir die Lösung zwar bereits als PN geschickt, aber vielleicht braucht es ja noch jemand (oder kennt eine bessere Lösung):
$sNumber = '8705'
$aNumber = StringRegExp($sNumber, '.{2}', 3)
$sSum = ''
For $i = 0 To UBound($aNumber) - 1
$sSum &= _AddNumbers($aNumber[$i])
Next
If StringLen($sSum) = 2 Then $sSum = _AddNumbers($sSum)
MsgBox(0, 'Ergebnis', $sSum)
Func _AddNumbers($sNumber)
$iRes = StringLeft($sNumber, 1) + StringRight($sNumber, 1)
If StringLen($iRes) = 2 Then $iRes = _AddNumbers($iRes)
Return $iRes
EndFunc
Hi,
ist das nicht eine Quersumme? Naja, ich nenns mal so^^
$zahl = 22031511 ;egal ob int oder string.....
$zahl = "22031511";77773334456812734734562813471274612734612"
MsgBox(0, "", "Die Quersumme von " & $zahl & " ist " & _quersumme($zahl))
[/autoit] [autoit][/autoit] [autoit]Func _quersumme($ziffern)
Local $zahl = String($ziffern) ;einen String machen
Local $quer = 0
For $i = 1 To StringLen($zahl) ;jede einzelne Ziffer...
$quer += Number(StringMid($zahl, $i, 1)) ;...zusammenzählen
Next
$zahl = String($quer) ;aus der quersumme wieder einen string machen
If StringLen($zahl) = 1 Then Return $zahl ;wenn nur eine Ziffer übrig bleibt, raus
$zahl = _quersumme($zahl) ;die quersumme hat mehr wie eine ziffer, dann rekursiov weiter
Return $zahl ;ergebnis aus der rekursion zurückgeben
EndFunc ;==>_quersumme
nur bei kleinen ziffern isses die quersumme, bei größeren wäre es quasi die quersumme von der quersumme von der ....
aber solange alina die zwischenergebnisse nicht brauch wie die 1818 aus ihrem beispiel lässt es sich mit einer quersummenschleife (bis nur noch eine ziffer übrig) recht schön lösen
Da ich mir wg des Begriffs "Quersumme" auch nicht sicher war, habe ich mal in meiner BIBELnachgeschaut, aber mit so etwas profanem gibt sich dieses Werk nicht ab (hab auch nur die 11. Auflage) 
Aber zum Glück gibts ein Internetz, dort kann jeder seinen Senf verzapfen, z.B. HIER
Dort werden tatsächlich 6 verschiedene Quersummen aufgeführt! Also nix da mit
nur bei kleinen ziffern isses die quersumme
was man doch in der schule alles für schmarn lernt.
ich hatte genau in bezug auf das mal eine diskussion mit meinem lehrer weil ich wissen wollte wie man sowas nennt.
und rate mal was seine antwort war:
die quersumme von der quersumme von der ....
in prinzip ja auch nich so falsch, aber wikipedia weiß es halt besser 
Der vorschlag wär mal was fürs Bildungsministerium:
Wikipedia ausdrucken und als schulbuch verwenden 
Nichts da queeeergesummmmmt 
Ausgangszahl = 10012
1. Ziffernbereich 1 & 0 ---> 1 + 0 = 1
2. Ziffernbereich 0 & 1 ---> 0 + 1 = 1
3. Ziffernbereich 2 & nichts ---> 2 + 0 = 2
Aktuelle Zahl: 112
1. Ziffernbereich von 112: 1 & 1 ---> 1 + 1 = 2
2. Ziffernbereich von 112: 2 & nichts ---> 2 + 0 = 2
Aktuelle Zahl: 22
1. Ziffernbereich von 22: 2 & 2 ---> 2 + 2 = 4
Kurzerklärung:
$sNumber = '10012' ; 1+0 = 1 ; 0 + 1 = 1 und dann die 2 ---> 112 ---> 1 + 1 = 2 und die 2 ---> 22 ; 2 + 2 = 4
Mmmmh, ob ich das jetzt richtig erklärt habe?
Das hast Du jetzt aber verschwiegen, dass bei einer ungeraden Anzahl an Zahlen noch eine Null hinzukommt. 
Kleine Änderung bei dem Script von Andy:
Global $zahl = '10012', $iLen = StringLen($zahl)
If Int($iLen/2) <> $iLen/2 Then $zahl &= '0'
MsgBox(0, "", "Die Quersumme von " & $zahl & " ist " & _quersumme($zahl))
Func _quersumme($ziffern)
Local $zahl = String($ziffern) ;einen String machen
Local $quer = 0
For $i = 1 To StringLen($zahl) ;jede einzelne Ziffer...
$quer += Number(StringMid($zahl, $i, 1)) ;...zusammenzählen
Next
$zahl = String($quer) ;aus der quersumme wieder einen string machen
If StringLen($zahl) = 1 Then Return $zahl ;wenn nur eine Ziffer übrig bleibt, raus
$zahl = _quersumme($zahl) ;die quersumme hat mehr wie eine ziffer, dann rekursiov weiter
Return $zahl ;ergebnis aus der rekursion zurückgeben
EndFunc ;==>_quersumme
Mmmmh, ob ich das jetzt richtig erklärt habe?
Ja, man kann auch Quersumme dazu sagen, und ob da eine Null mehr oder weniger ist, bleibt völlig egal. Es kommt nicht mehr dabei heraus nur weil man haufenweise Nullen mit dazuzählt, frag mal unsere Politiker!
Aber mal im Ernst, wozu diese seltsame Rechenvorschrift mit der Addition der benachbarten Zahlen.
Hallo,
so geht mit Ausgabe der Rechenschritte.
[autoit]$szNumber = "1234512345"
[/autoit][autoit][/autoit][autoit]ConsoleWrite(QSumWithOutput($szNumber) & @CRLF)
[/autoit][autoit][/autoit][autoit]Func QSumWithOutput($szNum)
Local $szOutput, $szQSum
$szOutput = $szNum
[/autoit][autoit][/autoit][autoit]If StringLen($szNum) > 1 Then
$szOutput &= " = "
For $index = 1 To StringLen($szNum) Step 2
$szdigit1 = StringMid($szNum, $index, 1)
$szdigit2 = StringMid($szNum, $index + 1, 1)
$szQSum &= $szdigit1 + $szdigit2
If ($index > 1) And ($szdigit2 <> "") Then
$szOutput &= "& "
ElseIf $szdigit2 = "" Then
$szOutput &= StringFormat("& %i ", $szdigit1)
EndIf
If ($szdigit1 <> "") And ($szdigit2 <> "") Then $szOutput &= StringFormat("(%i + %i) ", $szdigit1, $szdigit2)
Next
$szOutput &= "= "
$szOutput &= QSumWithOutput($szQSum)
EndIf
Return $szOutput
EndFunc ;==>QSumWithOutput
Vielen lieben DANK.
Ist gelöööööst
