\textsf{Rechne in die gegebene Einheit um.}

$\textsf{Überprüfen}$

\colorbox{ebe7f8}{\text{\setlength{\tabcolsep}{-0.4em}{\renewcommand{\arraystretch}{0.8}\begin{tabular}{rllcll}
 Merke dir:&„Kleinere&Einheit& →&Größere&Maßzahl\
&\ Größere&Einheit& →&Kleinere&Maßzahl“
\end{tabular}}}}

$\textsf{Neue Aufgabe}$

$\textsf{Neuer Versuch}$

\textsf{\colorbox{ebe7f8}{Hinweis typischer Fehler}}

allowDecimalNumbers: false
randomNumbers = Sequence(If[¬allowDecimalNumbers, Random[1, 1000], Random[1, 10000] / Element[{10, 100, 1000}, Random[1, 3]]], i, 1, 100)
questionCount = 1
randomNumber = Element(randomNumbers, Mod[questionCount, Length[randomNumbers]] + 1)
numberMatchingUnits: {"km²", "ha", "a", "m²", "dm²", "cm²", "mm²"}
randomUnitsLeft = Sequence(Random[1, Length[numberMatchingUnits]], i, 1, 100)
actualUnitLeft = Element(randomUnitsLeft, Mod[questionCount, Length[randomUnitsLeft]] + 1)
allowedUnits: {{{1, 0}, {2, 10^(2)}, {3, 10^(4)}}, {{2, 0}, {1, 10^(-2)}, {3, 10^(2)}, {4, 10^(4)}}, {{3, 0}, {1, 10^(-4)}, {2, 10^(-2)}, {4, 10^(2)}, {5, 10^(4)}}, {{4, 0}, {2, 10^(-4)}, {3, 10^(-2)}, {5, 10^(2)}, {6, 10^(4)}}, {{5, 0}, {3, 10^(-4)}, {4, 10^(-2)}, {6, 10^(2)}, {7, 10^(4)}}, {{6, 0}, {4, 10^(-4)}, {5, 10^(-2)}, {7, 10^(2)}}, {{7, 0}, {5, 10^(-4)}, {6, 10^(-2)}}}
actualAllowedUnits = Element(allowedUnits, actualUnitLeft)
actualUnitRightInfo = Element(actualAllowedUnits, Random[2, Length[actualAllowedUnits]])
actualUnitRight = Element(actualUnitRightInfo, 1)
unitLeftSmaller: actualUnitLeft < actualUnitRight
actualUnitRightFactor = Element(actualUnitRightInfo, 2)
actualUnitRightFactorInvers: floor(1 / actualUnitRightFactor)
inputNumber = NaN
valueRight = If(unitLeftSmaller, round(((randomNumber * actualUnitRightFactor) * 1000)) / 1000, randomNumber)
attemptCount = 1
correctCount: 0
correct: inputNumber ≟ valueRight
showBtnValidate = true
showBtnTryAgain = false
showBtnNew = false
txtFeedback: "\textsf{" + (LaTeX[If[correct, "✓ Richtig", "✘ Falsch"]]) + "}"
showSolution = false
showFeedback = false
showHint = false
showHintTypical = false
replaceWithElementToCheck = false
isTypicalError = false
txtCorrectCount: "\textsf{Richtig gelöste Aufgaben: " + (LaTeX[correctCount]) + "}"
inputBox1 = Textfield(inputNumber)
clickableBtnValidate = Defined(inputNumber)
valueLeft = If(unitLeftSmaller, randomNumber, round(((randomNumber * actualUnitRightFactorInvers) * 1000)) / 1000)
txtQuestionPart2: "\textsf{" + (LaTeX[Element[numberMatchingUnits, actualUnitRight]]) + "}"
rectangleFeedback: {Polygon[(3.38, 7.32), (5.65, 7.32), (5.65, 8.32), (3.38, 8.32)]}
txtQuestionPart1: "\textsf{" + (LaTeX[NumberSeparationComma[valueLeft]]) + " " + (LaTeX[Element[numberMatchingUnits, actualUnitLeft]]) + " = }"
txtSolution: "\textsf{Lösung: " + (LaTeX[NumberSeparationComma[valueLeft]]) + " " + (LaTeX[Element[numberMatchingUnits, actualUnitLeft]]) + " = " + (LaTeX[NumberSeparationComma[valueRight]]) + " " + (LaTeX[Element[numberMatchingUnits, actualUnitRight]]) + "}"

Tool: NumberSeparationPoint
NumberSeparationPoint[ <Zahl> ]
Input: inputnumber
Output: outputtext

inputnumber: -1234.5678
inputtext: "" + inputnumber + ""
inputlist = Sequence(Take[inputtext, i, i], i, 1, Length[inputtext])
negativ: First[inputlist] ≟ {"-"}
comma = Defined(IndexOf[".", inputlist])
point = If(comma ≟ true, IndexOf[".", inputlist], Length[inputlist] + 1)
dezimal = Take(inputlist, point + 1)
prepend = Take(inputlist, If[negativ ≟ true, 2, 1], point - 1)
prependsep = Reverse(Join[Sequence[If[Mod[Length[prepend] - 2 - i, 3] ≟ 0, Append[Take[prepend, i, i], " "], Take[prepend, i, i]], i, Length[prepend], 1, -1]])
outputlist = RemoveUndefined(Join[{If[negativ ≟ true, {"-"}], If[First[prependsep] ≟ {" "}, Take[prependsep, 2], prependsep], If[comma ≟ true, Append[".", dezimal]]}])
outputtext = Take(Sum[Zip[f, f, outputlist]], 1)

Tool: NumberSeparationComma
NumberSeparationComma[ <Zahl> ]
Input: inputnumber
Output: outputtext

inputnumber: -1234.5678
inputtext: "" + inputnumber + ""
inputlist = Sequence(Take[inputtext, i, i], i, 1, Length[inputtext])
negativ: First[inputlist] ≟ {"-"}
comma = Defined(IndexOf[".", inputlist])
point = If(comma ≟ true, IndexOf[".", inputlist], Length[inputlist] + 1)
dezimal = Take(inputlist, point + 1)
prepend = Take(inputlist, If[negativ ≟ true, 2, 1], point - 1)
prependsep = Reverse(Join[Sequence[If[Mod[Length[prepend] - 2 - i, 3] ≟ 0, Append[Take[prepend, i, i], " "], Take[prepend, i, i]], i, Length[prepend], 1, -1]])
outputlist = RemoveUndefined(Join[{If[negativ ≟ true, {"-"}], If[First[prependsep] ≟ {" "}, Take[prependsep, 2], prependsep], If[comma ≟ true, Append[",", dezimal]]}])
outputtext = Take(Sum[Zip[f, f, outputlist]], 1)