n

n

Longueur

Aléatoire

(Ctrl+R)

Variable

n

Pour chaque valeur de n, mesure le périmètre
et l'aire du polygone et inscris tes réponses 
dans le tableur qui les validera (vert) ou non (rouge). 

Le périmètre est mesuré en carreaux-longueur
et l'aire en carreaux-aire.

Tu peux utiliser des formules de tableur (du 
type =B2+5 par exemple) si tu le souhaites 
sauf dans la dernière ligne, où l'on attend une
expression algébrique avec la variable n, 
comme par exemple 3n+2.

Afficher la consigne

a = 3 (slider from 1 to 20, step 1)
A: (0, 0)
B: A + (0, a)
Longueur(n) = (n * (n + 1))
A2: 1
A3: 2
A4: 3
A5: 4
A6: 5
A7: 6
A8: 7
A9: 8
A10: 9
A11: 10
A12: 100
A14 = Random(150, 250)
b = false
Réponse1: Longueur
C: (1, a)
D: (1, a - 1)
Formule1(n) = 5
tmp = If(Formule1 ≟ Réponse1, 1, 0)
E: ((-a), a - 1)
g = Segment(E, A)
F = Midpoint(g)
A' = Mirror(A, F)
B' = Mirror(B, F)
C' = Mirror(C, F)
D' = Mirror(D, F)
E' = Mirror(E, F)
L_1 = Sequence(If[Mod[k, 2] ≟ 1, (((-k) + 1) / 2, 0.5 + k / 2), (k / 2, ((-k)) / 2)], k, 1, a)
L_2 = Sequence(If[Mod[k, 2] ≟ 1, (0.5 + k / 2, 0.5 + k / 2), (-0.5 + ((-k) + 1) / 2, ((-k)) / 2)], k, 1, a)
L_3 = Sequence(If[Mod[k, 2] ≟ 1, {(((-k) + 1) / 2, 0.5 + k / 2), (0.5 + k / 2, 0.5 + k / 2)}, {(k / 2, ((-k)) / 2), (-0.5 + ((-k) + 1) / 2, ((-k)) / 2)}], k, 1, a)
L_4 = Flatten(L_3)
L_5 = Insert((0, 0), L_4, 1)
f = PolyLine(L_5)