整数前驱与后继练习

GeoGebra 命令及参数

1. Textfield(input) → inputBox
2. Join({Sample[-9…-1, 2], {0}, {Random[1, 9]}}) → startingNumbers
3. Join({Shuffle[startingNumbers], Sequence[RandomElement[Join[{-199…0, -199…199}]], k, 1, 96]}) → NumberList
4. Sequence(Random[1, 10], i, 1, 10) → randomNumbers, {4, 10, 2, 1, 8, 1, 8, 6, 3, 10}
5. Element(randomNumbers, Mod[questionCount, Length[randomNumbers]] + 1) → randomNumber
6. Defined(input) → clickableBtnValidate
7. Join(Sequence[Shuffle[{1, -1}], k, 1, 50]) → CaseList
8. Join({{NumberList(1) - CaseList(1) + 11, NumberList(2) - CaseList(2) + 11, NumberList(3) - CaseList(3) + 11, NumberList(4) - CaseList(4) + 11}, Sequence[If[NumberList(k) < 5 ∨ NumberList(k) > 95, Random[2, 14], Random[2, 20]], k, 5, 100]}) → PosPList
9. If((StartNumber < -9 ∨ StartNumber > 99) ∧ questionCount > 4, 7, 10) → anzahl
10. Sequence(Origin + (((-anzahl) * width) + (k * width), 0), k, 0, (anzahl * 2)) → PointsList
11. Sequence(Text[(("$\textsf{\(" * k) * "\)}$"), PointsList(k - StartNumber + 1) + (If[k < 0, -0.166, 0], -0.1), false, true, 0, -1], k, StartNumber, StartNumber + 20) → TextList
12. Segment(PointsList(posP + Case) + (0, 0.5), PointsList(posP + Case) + (0, 0.4)) → arrow
13. CircleArc(Midpoint[PointsList(posP), PointsList(posP + Case)] + (0, 0.5), PointsList(If[Case ≟ -1, posP, posP + Case]) + (0, 0.5), PointsList(If[Case ≟ -1, posP + Case, posP]) + (0, 0.5)) → arc
14. Segment(Origin + (((-width) * anzahl) - 0.5, 0), Origin + ((width * anzahl) + 0.5, 0)) → axis
15. Sequence(Segment[PointsList(k) + (0, -0.125), PointsList(k) + (0, 0.125)], k, 1, Length[PosPList]) → SegAxisList