|\|\|\|\|\|\|\|\|\|\|\|\|\|\|\|\|\|\|\|

---------------------------------------------------------------------------------------------------------------------------------------

$\textsf{Los geht's!}$

$\textsf{Weiter}$

$\textsf{Nochmal!}$

$\textsf{Zurück}$

\textsf\colorbox{ebe7f8}{An jeder Stelle darf nur eine Ziffer stehen.}

\textsf{In der FLINK-Fabrik gibt es eine mathematische Übersetzungsmaschine.\Die Maschine kann Zahlen (123), Stellenwerte (H Z E) und Zahlwörter (ABC) darstellen.\\\\\Probiere die Maschine aus.}

\textsf{Gib eine Zahl kleiner als 1 000 in die Übersetzungsmaschine ein.}

$\textsf{Start}$

$\textsf{Neue Zahl}$

$\textsf{Übersetzungsmaschine drehen}$

\textsf{Betrachte dein ausgewähltes Zahlwort als Zahl und in Stellenwertschreibweise.}

\textsf{Tippe eine Ziffer von 0 bis 9 für jeden Stellenwert ein. }

\textsf{Betrachte deine eingegebene Zahl in Stellenwertschreibweise und als Zahlwort.}

\textsf{Wähle ein Zahlwort, indem du die Pfeiltasten betätigst. }

\textsf{Betrachte deine eingegebene Stellenwertschreibweise als Zahlwort und als Zahl.}

\textsf{\textcolor{#9C4381}{H}}

\textsf{\textcolor{#b00020}{Z}}

\textsf{\textcolor{#DB6114}{E}}

$\textsf{Neues Zahlwort}$

$\textsf{Neuer Stellenwert}$

\textsf{\textcolor{#DB6114}{null}

\textsf\colorbox{ebe7f8}{Deine Zahl ist zu groß.\Gib eine Zahl ein, die kleiner als 1 000 ist.

inputZ = NaN
step = 1
input1 = NaN
listpos = 14
ZahlList: {938, 244, 65, 728, 153, 878, 132, 590, 362, 58, 499, 212, 574, 813, 13, 691, 333, 785, 72, 478, 897, 546, 193, 915, 2}
inputH = NaN
convzahlH = If(step ≟ 2, floor(input1 / 100), step ≟ 3, floor(ZahlList(listpos) / 100), step ≟ 4, inputH)
inputE = NaN
convzahlZ = If(step ≟ 2, floor((input1 - (100 * convzahlH)) / 10), step ≟ 3, floor((ZahlList(listpos) - (100 * convzahlH)) / 10), step ≟ 4, inputZ)
maxstep: 6
StepAnzeige: "Step: " + step + " / " + maxstep + ""
StartMAnchor_1 = (1.2, -3.04)
StartMAnchor_2 = (8.66, -3.04)
InputBox1 = Textfield(input1)
convzahl = false
convzahlE = If(step ≟ 2, floor(input1 - (convzahlH * 100) - (10 * convzahlZ)), step ≟ 3, floor(ZahlList(listpos) - (convzahlH * 100) - (10 * convzahlZ)), step ≟ 4, inputE)
convzahlWort3H: "\textsf{\bold{\textcolor{#9C4381}{" + (LaTeX[If[convzahlH ≟ 9, "neunhundert", convzahlH ≟ 8, "achthundert", convzahlH ≟ 7, "siebenhundert", convzahlH ≟ 6, "sechshundert", convzahlH ≟ 5, "fünfhundert", convzahlH ≟ 4, "vierhundert", convzahlH ≟ 3, "dreihundert", convzahlH ≟ 2, "zweihundert", convzahlH ≟ 1, "einhundert"]]) + "}"
convzahlWort3Z: "\textsf{\bold{\textcolor{#b00020}{" + (LaTeX[If[convzahlZ ≟ 9, "neunzig", convzahlZ ≟ 8, "achzig", convzahlZ ≟ 7, "siebzig", convzahlZ ≟ 6, "sechzig", convzahlZ ≟ 5, "fünfzig", convzahlZ ≟ 4, "vierzig", convzahlZ ≟ 3, "dreißig", convzahlZ ≟ 2, "zwanzig", convzahlZ ≟ 1, "zehn"]]) + "}"
convzahlZwelf: convzahlZ ≟ 1 ∧ (convzahlE ≟ 1 ∨ convzahlE ≟ 2)
convzahlWort3E: "\textsf{\bold{\textcolor{#DB6114}{" + (LaTeX[If[convzahlE ≟ 9, "neun", convzahlE ≟ 8, "acht", convzahlE ≟ 7 ∧ convzahlZ ≠ 1, "sieben", convzahlE ≟ 7 ∧ convzahlZ ≟ 1, "sieb", convzahlE ≟ 6, "sechs", convzahlE ≟ 5, "fünf", convzahlE ≟ 4, "vier", convzahlE ≟ 3, "drei", convzahlE ≟ 2, "zwei", convzahlE ≟ 1, "ein"]]) + "}"
convZahlWort1: "\textsf{\bold{\textcolor{#DB6114}{" + (LaTeX[If[convzahlE ≟ 9, "neun", convzahlE ≟ 8, "acht", convzahlE ≟ 7 ∧ convzahlZ ≟ 0, "sieben", convzahlE ≟ 7 ∧ convzahlZ ≠ 0, "sieb", convzahlE ≟ 6, "sechs", convzahlE ≟ 5, "fünf", convzahlE ≟ 4, "vier", convzahlE ≟ 3, "drei", convzahlE ≟ 2, "zwei", convzahlE ≟ 1, "eins"]]) + "}"
Helper2: "\textsf{" + (LaTeX[If[convzahlE ≟ 1, "elf", "zwölf"]]) + "}"
Helper1: "\textsf{\textcolor{#b00020}{" + (LaTeX[If[convzahlZ ≟ 9, "neunzig", convzahlZ ≟ 8, "achzig", convzahlZ ≟ 7, "siebzig", convzahlZ ≟ 6, "sechzig", convzahlZ ≟ 5, "fünfzig", convzahlZ ≟ 4, "vierzig", convzahlZ ≟ 3, "dreißig", convzahlZ ≟ 2, "zwanzig", convzahlZ ≟ 1, "zehn"]]) + "}"
ConvZahlStellPos: (-3.8, -2.1)
WortList: {"neunhundertachtunddreißig", "zweihundertvierundvierzig", "fünfundsechzig", "siebenhundertachtundzwanzig", "einhundertdreiundfünfzig", "achthundertachtundsiebzig", "einhundertzweiunddreißig", "fünfhundertneunzig", "dreihundertzweiundsechzig", "achtundfünfzig", "vierhundertneunundneunzig", "zweihundertzwölf", "sechshundertvierundsiebzig", "achthundertdreizehn", "dreizehn", "sechshunderteinundneunzig", "dreihundertdreiunddreißig", "siebenhundertfünfundachzig", "zweiundsiebzig", "vierhundertachtundsiebzig", "achthundertsiebenundneunzig", "fünfhundertsechsundvierzig", "einhundertdreiundneunzig", "neunhundertfünfzehn", "zwei"}
Step3Wort: "\textsf{" + (LaTeX[WortList(listpos)]) + "}"
A: (6, 4)
B: (x(A), 3.2)
ArrowUp: {Polygon[A, B, 3]}
InputBoxH = Textfield(inputH)
InputBoxZ = Textfield(inputZ)
InputBoxE = Textfield(inputE)
E = Corner(Maschine, 3)
MM: (3, 0.2)
rotation = 0 rad (slider from startrot to endrot, step 0.017453292519943295)
startrot = 0 rad
endrot = 8.377580409572781 rad
MAnchor_1 = Rotate(MM + (-3.07, -3.09), (-rotation), MM)
MAnchor_2 = Rotate(MM + (3.09, -3.07), (-rotation), MM)
step4fixed: Defined[inputH] ∧ Defined[inputZ] ∧ Defined[inputE] ∧ 0 ≤ inputH < 10 ∧ 0 ≤ inputE < 10 ∧ 0 ≤ inputZ < 10
ConvZahlHZEPos: (5.6, -2.1)
ConvZahlZahl: (-0.8, -2.1)
Helper3: "\textsf{\textcolor{#DB6114}{" + (LaTeX[If[convzahlE ≟ 9, "neun", convzahlE ≟ 8, "acht", convzahlE ≟ 7, "sieben", convzahlE ≟ 6, "sechs", convzahlE ≟ 5, "fünf", convzahlE ≟ 4, "vier", convzahlE ≟ 3, "drei", convzahlE ≟ 2, "zwei", convzahlE ≟ 1, "ein"]]) + "}"
speed: 5
convTextZahl: "\textsf{\bold{" + (LaTeX[If[convzahlH > 0, ((((("\textcolor{#9C4381}{" * convzahlH) * "}\textcolor{#b00020}{") * convzahlZ) * "}\textcolor{#db6114}{") * convzahlE), convzahlZ > 0, ((("\textcolor{#b00020}{" * convzahlZ) * "}\textcolor{#db6114}{") * convzahlE), ("\textcolor{#db6114}{" * convzahlE)]]) + "}"
convZahlWort3Zwelf: "\textsf{\bold{" + (LaTeX[convzahlWort3H]) + "" + (LaTeX[Helper2]) + "}"
convZahlWort2NichtZwelf: "\textsf{\bold{" + (LaTeX[If[convzahlE ≟ 0, ("" * Helper1), convzahlE ≠ 0, If[convzahlZ ≠ 1, ((("" * Helper3) * "und") * convzahlWort3Z), ((("" * convZahlWort1) * "") * convzahlWort3Z)], ((("" * convzahlWort3E) * "und") * convzahlWort3Z)]]) + "}"
convZahlWort2Zwelf: "\textsf{\bold{" + (LaTeX[If[convzahlE ≟ 1, "elf", "zwölf"]]) + "}"
convZahlWort3NichtZwelf: "\textsf{\bold{" + (LaTeX[convzahlWort3H]) + "" + (LaTeX[If[convzahlZ ≟ 0, ("" * convzahlWort3E), convzahlE ≟ 0, ("" * convzahlWort3Z), convzahlZ ≟ 1, ((("" * convzahlWort3E) * "") * convzahlWort3Z), ((("" * convzahlWort3E) * "und") * convzahlWort3Z)]]) + "}"
convzahlStell: "\textsf{\bold{" + (LaTeX[If[1 ≟ 1, (("" * convzahlH) * "\textcolor{#9C4381}{H}")]]) + " " + (LaTeX[If[1 ≟ 1, (("" * convzahlZ) * "\textcolor{#b00020}{Z}")]]) + " " + (LaTeX[If[1 ≟ 1, (("" * convzahlE) * "\textcolor{#DB6114}{E}")]]) + "}"
schiebhelper = If(step ≟ 2, 2.5, 0)
ArrowDown = Mirror(ArrowUp, Line[A + (-3, 0), B + (-3, 0)])
Step3NewWort: "\textsf{
\begin{tabular}{c}" + (LaTeX[WortList(listpos)]) + " \\
\hphantom{siebenhundertsiebenundsiebzig}
\end{tabular}
\end{table}"