求一个数的因数——因数与配对因数

GeoGebra 命令及参数

1. Take(Unique[{If[IsInteger[ppt1], ppt1, 0], If[IsInteger[ppt2], ppt2, 0], If[IsInteger[ppt3], ppt3, 0], If[IsInteger[ppt4], ppt4, 0], If[IsInteger[ppt5], ppt5, 0], If[IsInteger[ppt6], ppt6, 0], If[IsInteger[ppt7], ppt7, 0], If[IsInteger[ppt8], ppt8, 0], If[IsInteger[ppt9], ppt9, 0], If[IsInteger[ppt10], ppt10, 0], If[IsInteger[ppt11], ppt11, 0], If[IsInteger[ppt12], ppt12, 0]}], 2) → Faktor2
2. Take(Unique[{If[w1 ≟ 1, 1, 0], If[w2 ≟ 1, 2, 0], If[w3 ≟ 1, 3, 0], If[w4 ≟ 1, 4, 0], If[w5 ≟ 1, 5, 0], If[w6 ≟ 1, 6, 0], If[w7 ≟ 1, 7, 0], If[w8 ≟ 1, 8, 0], If[w9 ≟ 1, 9, 0], If[w10 ≟ 1, 10, 0], If[w11 ≟ 1, 11, 0], If[w12 ≟ 1, 12, 0]}], 2) → Faktor1
3. RandomElement(Zahlenvorrat) → zahl
4. DivisorsList(zahl) → Teilermenge
5. Factors(zahl) →
6. Take(Teilermenge, 1, ceil(Length[Teilermenge] / 2)) → Teiler1
7. Take(Teilermenge, floor(Length[Teilermenge] / 2 + 1)) → Teiler2
8. Sequence(w) → ErsteTeiler
9. Length(Unique[Append[Teilermenge, 2]]) → t2
10. Length(Teilermenge) → t
11. Textfield(ppt1) → pt1
12. Textfield(ppt2) → pt2
13. Textfield(ppt3) → pt3
14. Textfield(ppt4) → pt4
15. Textfield(ppt5) → pt5
16. Textfield(ppt6) → pt6
17. Textfield(ppt7) → pt7
18. Textfield(ppt8) → pt8
19. Take(Unique[Flatten[{Faktor1, Faktor2}]], 2) → Faktoren
20. If(Faktor1 ≟ Teiler1 ∧ Faktor2 ≟ Teiler2, 1, 0) → hurra
21. Textfield(ppt9) → pt9
22. Textfield(ppt10) → pt10
23. Textfield(ppt11) → pt11
24. Textfield(ppt12) → pt12