Retour
au sommaire
Activité précédente :
Le dessin
3 D, cubes et bracelets.
Activité suivante :
Récursivité
2, la courbe de Koch.
Procédures avec données.
! Regrouper les commandes minimum sur une ligne et tracer le carré en répétant ces commandes. Les commandes sont av 50 dr 90.
! modifier les valeurs et observer les effets.
! Utiliser le bouton programme et définir une procédure côté à partir de cette ligne.
!! Ecrire la procédure côtés qui appelle côté.
! côtés
- Un côté est tracé.
! côtés
- un autre côté est tracé.
Si l'on veut automatiser le processus, il faut mettre côtés à la fin dans côtés, faire des côtés, c'est faire un côté puis d'autres côtés.
! Essayer côtés
- Il y a un grave défaut, l'ordinateur ne s'arrête plus.
! Activer le bouton Halt
- Une erreur 16 indique l'arrêt anormal.
Pour pouvoir s'arrêter, il faut compter les côtés
tracés et s'arrêter lorsque le nombre est atteint.
Pour celà, il faut faire un commande comme av ou dr qui est suivie
d'un nombre.
C'est dans le titre que l'on va mettre le nom d'une mémoire qui recevra le nombre.
! Dans l'éditeur modifier le titre : pour côtés
:n
Pour les élèves, utiliser l'image de boîte aux letttres établissant la communication entre la ligne de commande et la procédure.
Les valeurs de la ligne de commande sont rangées dans des mémoires
au lancement de la procédure suivant les noms donnés dans
la ligne de titre.
Maitenant la mémoire :n contiendra le nombre de côtés
à tracer.
Après chaque côté tracé on recommence côtés avec 1 de moins.
La dernière ligne devient côtés :n - 1. L'ordinateur
fait le calcul et recommence avec un de moins dans :n.
Si :n = 0 , il n'y a plus de côté à tracer, on s'arrête.
en première ligne on écrira :
si :n = 0 [stop]
Si est suivi d'une condition, ici :n = 0 si la condition est vraie, ce qui est entre crochets est exécuté, sinon on passe à la ligne suivante.
Voici côtés modifié.
pour côtés :n
si :n = 0 [stop]
côté
côtés :n - 1
end
! vg côtés 4
- Un carré est tracé
Pour essayer des valeurs différentes de taille et d'angle, on peut utiliser d'autres mémoires. On peut remplacer côté par la ligne qu'il exécute qui devient av :g dr :a
côtés devient
pour côtés :n :g :a
si :n = 0 [stop]
av :g dr :a
côtés :n - 1 :g :a
end
! côtés 6 70 60
! côtés 5 50 144
Essayer un presque caré (avec 91 ou 89 comme angle)
Un triangle, d'autres valeurs.
Modifier côtés en ajoutant de quoi diminuer la taille du côté.
Essayer un carré dont on diminue de 3 le côté chaque
fois.
Retour
au sommaire
Activité précédente :
Le dessin
3 D, cubes et bracelets.
Activité suivante :
Récursivité
2, la courbe de Koch.