积极 AI Logo 积极 AI

如何找到一个整数的因数

如何找到一个整数的因数
几何画板及绘图内容加载中，请稍等……
2020-03-24 22:22
函数数列解析几何
本范例演示如何使用GeoGebra找到一个整数的所有因数。核心数学概念包括整数的因数分解。通过使用Sequence, If, Element等命令，可以动态展示因数的生成过程。适合小学高年级至初中学生学习因数分解和整除性问题。

GeoGebra 命令及参数

  1. Random(1, 60) → n
  2. RemoveUndefined(Sequence[If[Mod[f, j] ≟ 0, j], j, 1, f]) → div
  3. Polygon((1, 6), (1 + (0.5 * If[f ≤ 75, f, 75]), 6), (1 + (0.5 * If[f ≤ 75, f, 75]), 6.5), (1, 6.5)) → poly1, a, b, c, d
  4. If(IsInteger[Length[div] / 2], Length[div] / 2, Length[div] / 2 + 0.5) → nombreprod
  5. Element(div, 4) → prod4
  6. Element(div, 1) → prod1
  7. Element(div, 2) → prod2
  8. Element(div, 3) → prod3
  9. Element(div, 5) → prod5
  10. Element(div, 6) → prod6
  11. Sequence(Segment[(1, 1 - (0.5 * k)), (1 + (0.5 * fact2), 1 - (0.5 * k))], k, 0, prod2) → liste5
  12. Sequence(Segment[(1 + (0.5 * k), 1), (1 + (0.5 * k), 1 - (0.5 * prod2))], k, 0, fact2) → liste8
  13. Sequence(Segment[(1 + (0.5 * k), -2), (1 + (0.5 * k), -2 - (0.5 * prod3))], k, 0, fact3) → liste9
  14. Sequence(Segment[(1, -2 - (0.5 * k)), (1 + (0.5 * fact3), -2 - (0.5 * k))], k, 0, prod3) → liste6
  15. Sequence(Segment[(1 + (0.5 * k), -5), (1 + (0.5 * k), -5 - (0.5 * prod4))], k, 0, fact4) → liste10
  16. Sequence(Segment[(1, -5 - (0.5 * k)), (1 + (0.5 * fact4), -5 - (0.5 * k))], k, 0, prod4) → liste7
  17. Sequence(Segment[(1, 3 - (0.5 * k)), (1 + (0.5 * fact1), 3 - (0.5 * k))], k, 0, prod1) → liste2
  18. Sequence(Segment[(1 + (0.5 * k), 3), (1 + (0.5 * k), 3 - (0.5 * prod1))], k, 0, fact1) → liste3
  19. Line(A, B) → e
  20. Sequence(E + ((1.2 * i), 0), i, 1, Length[div]) → liste14
  21. Sequence(Text[Element[div, k] + " , ", Element[liste14, k]], k, 1, Length[div] - 1) → liste15
  22. Polygon((1, 5.5), (1 + (0.5 * If[f > 75, f - 75, 75]), 5.5), (1 + (0.5 * If[f > 75, f - 75, 75]), 6), (1, 6)) → poly2, g, h, i, j
  23. Sequence(Segment[(22 + (0.5 * k), -2), (22 + (0.5 * k), -2 - (0.5 * prod5))], k, 0, fact5) → liste11
  24. Sequence(Segment[(22, -2 - (0.5 * k)), (22 + (0.5 * fact5), -2 - (0.5 * k))], k, 0, prod5) → liste4
  25. Sequence(Segment[(22, -6 - (0.5 * k)), (22 + (0.5 * fact6), -6 - (0.5 * k))], k, 0, prod6) → liste13
  26. Sequence(Segment[(22 + (0.5 * k), -6), (22 + (0.5 * k), -6 - (0.5 * prod6))], k, 0, fact6) → liste12
  27. Sequence(Segment[(1 + (k * 0.5), 5.5), (1 + (k * 0.5), 6)], k, 1, f - 75) → liste16
  28. Sequence(Segment[(1 + (k * 0.5), 6), (1 + (k * 0.5), 6.5)], k, 1, If[f ≤ 75, f - 1, 75]) → liste1