Programmez le \l;robot\u object\bottr; pour qu'il suive le chemin en forme de spirale. Il faut avancer deux fois de 25 mΦtres, puis deux fois de 20 mΦtres. etc., jusqu'α l'arrΩt.
\image tproc2 8 8;
\b;ProcΘdure
On constate que le mouvement est composΘ de "L" imbriquΘs. Le premier, en bleu foncΘ, avance deux fois de 25 mΦtres. Le deuxiΦme, en bleu clair, avance de 5 mΦtres de moins, etc. On peut donc commencer par rΘaliser la procΘdure qui dΘplace le robot le long d'un "L" dont on donne la longueur :
\c;
\s;void object::Part(float length)
\s;{
\s; for ( int i=0 ; i<2 ; i=i+1 )
\s; {
\s; move(length);
\s; turn(90);
\s; }
\s;}
\n;
Il ne reste plus qu'α Θcrire la procΘdure principale, qui fera appel α \c;Part\n;. La variable \c;rest\n; est initialisΘe au dΘpart α 25 mΦtres. La boucle \c;while\n; est ensuite rΘpΘtΘe tant que \c;rest\n; est plus grand que zΘro. A l'intΘrieur de la boucle, on appelle la procΘdure \c;Part\n; dΘfinie plus haut, puis on enlΦve 5 mΦtres α la longueur α parcourir.
\c;
\s;extern void object::DΘplacer( )
\s;{
\s; float rest = 25;
\s; while ( rest > 0 )
\s; {
\s; Part(rest);
\s; rest = rest-5;
\s; }
\s;}
\n;
Le dernier appel de \c;Part\n; a lieu avec la valeur \c;5\n;. Ensuite, l'expression \c;rest-5\n; met la valeur zΘro dans la variable \c;rest\n;. La boucle \c;while\n; est donc stoppΘe.
\b;Remarque
Vous aurez peut-Ωtre remarquΘ que dans l'exercice prΘcΘdent, la procΘdure principale Θtait au dΘbut, alors qu'ici elle vient aprΦs la procΘdure secondaire \c;Part\n;. En fait, les deux faτons de faire sont possibles et rigoureusement identiques.
\key;\key help;\norm; permet de revoir ces instructions en tout temps !
\t;Voir aussi
\l;Commandes\u command; et \l;programmation\u cbot;.
