带反馈的长除法可视化测算：用几何关系检查商与余数

GeoGebra 命令及参数

1. Random(1001, 9998) → k_{1}
2. RandomElement(l1) → a_{1}
3. Segment(A, B) → f_{1}
4. Segment(B, C) → g_{1}
5. Textfield(c_{1}) → a
6. Textfield(d_{1}) → b
7. Segment(D, E) → h_{1}
8. Textfield(e_{1}) → c
9. If(d_{1} ≟ (c_{1} * a_{1}), "☺", "☹") → text4
10. If(true1, "☺", "☹") → text5
11. Textfield(i_{1}) → d
12. Textfield(j_{1}) → e
13. If(true2, "☺", "☹") → text6
14. Translate(D, Vector[(0, -3)]) → D'
15. Translate(E, Vector[(0, -3)]) → E'
16. Segment(D', E') → h'
17. Textfield(l_{1}) → f
18. If(true3, "☺", "☹") → text7
19. Textfield(m_{1}) → g
20. Textfield(n) → h
21. If(true4, "☺", "☹") → text8
22. Translate(D', Vector[(0, -3)]) → D''
23. Translate(E', Vector[(0, -3)]) → E''
24. Segment(D'', E'') → h''
25. Textfield(o) → i
26. If(true5, "☺", "☹") → text9
27. Textfield(p) → j
28. Textfield(q) → k
29. Translate(D'', Vector[(0, -3)]) → D'''
30. Translate(E'', Vector[(0, -3)]) → E'''
31. Segment(D''', E''') → h'''
32. If(true6, "☺", "☹") → text10
33. Textfield(r) → l
34. If(true7, "☺", "☹") → text11
35. Textfield(s) → m
36. If(true8, "☺", "☹") → text13