MathPlotAI Logo MathPlotAI

How to Find the Divisors of an Integer Number

How to Find the Divisors of an Integer Number
Loading the math board and drawing, please wait…
2020-03-24 22:22
FunctionSequenceCoordinate Geometry
This example demonstrates how to use GeoGebra to find all divisors of an integer number. Key mathematical concepts include integer factorization. Using commands like Sequence, If, and Element, the process of generating divisors is dynamically displayed. Suitable for students from upper elementary to middle school to learn about factorization and divisibility.

GeoGebra Commands & Parameters

  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