Converting Terminating Decimals to Fractions

GeoGebra Commands & Parameters

1. Shuffle(Join[{Sequence[1, 9], Sequence[1, 9], Sequence[1, 9]}]) → randomTenths, {9, 1, 5, 6, 7, 8, 2, 1, 3, 4, 1, 5, 6, 8, 4, 7, 8, 3, 9, 3, 6, 5, 7, 4, 2, 2, 9}
2. Shuffle(Join[{Sequence[1, 9], Sequence[1, 9], Sequence[1, 9]}]) → randomHundredths, {3, 1, 9, 3, 7, 8, 7, 4, 5, 2, 6, 2, 7, 5, 6, 4, 5, 3, 9, 1, 1, 9, 4, 8, 8, 6, 2}
3. Shuffle({1, 3, 7, 9, 1, 3, 7, 9, 1, 3, 7, 9, 1, 3, 7, 9}) → randomFinalDigit, {3, 7, 7, 7, 1, 1, 9, 9, 9, 9, 3, 1, 3, 7, 1, 3}
4. Shuffle({1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3}) → randomNumDigits, {2, 2, 3, 2, 1, 1, 3, 1, 2, 1, 3, 3, 1, 2, 2, 3, 1, 3}
5. Element({finalDigit / 10, tenths / 10 + finalDigit / 100, tenths / 10 + hundredths / 100 + finalDigit / 1000}, numdigits) → decimalNum
6. If(IsInteger[(decimalNum * 10)], 10, If[IsInteger[(decimalNum * 100)], 100, 1000]) → correctMultiplier
7. Shuffle(Join[{{1, 3, 7, 1, 3, 7, 1, 3, 7, 1, 3, 7, 9, 9, 9}, Sequence[0, 9], {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}]) → randomThousandths, {0, 7, 0, 7, 0, 1, 1, 1, 9, 9, 1, 0, 0, 6, 0, 3, 3, 8, 4, 0, 7, 3, 0, 2, 1, 7, 3, 0, 7, 9, 5, 0, 0, 9, 3}
8. Polygon(Zip[PixelsToPoint[Corner[1], Corner[3], Corner[5], A], A, {(pixelsLeft, pixelsTop), (pixelsLeft, y(Corner[5]) - pixelsBottom), Corner[5] - (pixelsRight, pixelsBottom), (x(Corner[5]) - pixelsRight, pixelsTop)}]) → borderBox
9. Numerator(decimalNum) → numerSimplified
10. Denominator(decimalNum) → denomSimplified