Ziffernsumme einer Zahl (Schleife)
Mit diesem Applet wird die Ziffernsumme einer Zahl berechnet.
Dazu wird im Skript des Eingabefeldes ein Skript mit einer Rekursion ausgeführt, das einer While-Schleife entspricht.
Das Skript für das Eingabefeld ('Bei Update') lautet:
s=0
# s ist die Ziffernsumme
SetzeWert(n1, n)
# n wird auf n1 übergeben, damit der Wert n in dem Eingabefeld erhalten bleibt
Do = {"SetValue(s, s + Mod(n1, 10))", "SetValue(n1, Div(n1, 10))"}
Schleife = {"If(n1 > 0, Execute(Join(Do, Schleife)))"}
Ausführen(Schleife)
Text1=Text("Die Ziffernsumme der Zahl n ist "+ s + ".")
rem = "Ausgabe als dynamischer Text."