整数百分比计算

GeoGebra 命令及参数

1. Sequence(u / 10, u, 1, 9) → tenths, {0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9}
2. Sort(Join[{fourths, tenths, thirds, eights}]) → l1
3. Sequence(FractionText[Element[l1, u]], u, 1, Length[l1]) → l2, {" \frac{ 1 }{ 10 } ", " \frac{ 1 }{ 8 } ", " \frac{ 1 }{ 5 } ", " \frac{ 1 }{ 4 } ", " \frac{ 3 }{ 10 } ", " \frac{ 1 }{ 3 } ", " \frac{ 3 }{ 8 } ", " \frac{ 2 }{ 5 } ", " \frac{ 1 }{ 2 } ", " \frac{ 3 }{ 5 } ", " \frac{ 5 }{ 8 } ", " \frac{ 2 }{ 3 } ", " \frac{ 7 }{ 10 } ", " \frac{ 3 }{ 4 } ", " \frac{ 4 }{ 5 } ", " \frac{ 7 }{ 8 } ", " \frac{ 9 }{ 10 } "}
4. RandomElement(l2) → text1, " \frac{ 1 }{ 10 } "
5. Sort(Flatten[Sequence[Sequence[Sequence[((2^(a) * 5^(b)) * 3^(c)), a, 1, 3], b, 1, 2], c, 1, 2]]) → l3
6. RandomElement(l3) → a
7. IndexOf(text1, l2) → b
8. Element(l1, b) → c
9. Textfield(ans) → InputBox1
10. Numerator(c) → e
11. Denominator(c) → f