# La face cachée des tables de multiplication

# Implémentation en MicroAlg des images proposées dans
# https://www.youtube.com/watch?v=-X49VQgi86E la vidéo de Micmaths.
# Attention : la version de MicroAlg qui permet la sortie graphique (sans doute la 0.3.17)
# n’est pas encore sortie. Elle a juste été déployée sur la galerie à des fins de tests (et de frime).
# Cliquer sur OK pour lancer le programme. Et n’ayez pas peur de bidouiller pour obtenir un résultat différent !

# Programme tables_mult_graphiques
(RAZ)
(Definir (Point angle)
    "Retourne les coords du point sur le cercle 300 300 200 en fonction de l’angle."
    "ProfGra"
    (Retourner (Liste (+ 300 (/ (1000Cosinus angle) 5)) (+ 300 (/ (1000Sinus angle) 5))))
)
(Declarer i De_type "nombre")
(Affecter_a i 0)
(Tant_que (<= i 360)
 Faire
    (Segment (Point i) (Point (* i 2)))
    (Affecter_a i (+ i 5))
)