Comment faire
voler un papillon avec MicroMondes ?
placer d'abord une
tortue sur l'écran en cliquant sur le bouton "créer une tortue"
ou écrire <
créetortue "t1 > dans la procédure < départ >
________________________________________________________________________________
pour départ nom de la
procédure initiale (démarre automatiquement)
; créetortue
"t1 placer une tortue sur l'écran
vg nettoyer l'écran (vide graphique)
lc lève crayon (la forme n'écrira
pas en se déplaçant)
mt montre tortue (la < tortue >
sera visible )
fy 0 fixe la position verticale à 0 (au
milieu de l'écran)
suite exécuter
la procédure nommée < suite >
fin fin (mot réservé, toujours seul sur
sa ligne)
pour suite nom de la
procédure appelée par la procédure < départ >
fforme
"papillon1 fixe dans dans
< graphiques > la forme à < papillon1 >
attends 1.5 attendre pendant
1,5 dixième de seconde
av 15 faire avancer la forme < papillon1 > de 15 pas
fcap 40 + hasard
100 aller à droite (90 degrés) + ou - 50 degrés
fforme
"papillon2 idem pour <
papillon2 >
attends 1.5
av 15
suite ici la procédure s'appelle elle-même (boucle récursive)
fin fin (mot réservé, toujours seul sur sa ligne)
________________________________________________________________________________
http://www.micromondes.com
http://www.ordiecole.com/logo/1papillon.rtf
jean-daniel.greub@edu.ge.ch