IV. Les boucles▲
IV-A. FOR▲
Cette partie de la programmation, en général, est assez énervante pour ma part, car il ne faut rien oublier ou sinon le programme risque de ne plus s'arrêter. Je m'explique, les boucles servent à répéter plusieurs fois une même instruction et si cette boucle ne se termine jamais alors le reste du programme ne sera pas exécuté et la boucle continuera sans s'arrêter. Mais bien entendu, je ne vais pas vous donner un exemple qui ne fonctionne pas, c'est logique.
Exemple :
FOR
numero% =
1
TO
10
PRINT "le numéro "
; numero%
NEXT
END
Le programme donne à numero la valeur 1 et lui ajoute 1 jusqu'a ce qu'il atteigne 10, mais pendant ce décompte on peut ajouter des commandes comme je l'ai fait avec print.
On peut ajouter à cette boucle STEP qui définira de combien se fera le décompte.
Exemple :
FOR
numero% =
4
TO
12
STEP
2
PRINT "le numéro "
; numero%
NEXT
END
Là on compte de 2 en 2.
Voici une autre boucle utilisée d'une autre manière.
Exemple :
CLS
WHILE
result =
"2"
INPUT "1+1= "
; result
WEND
REM WEND signifie que la boucle est finie.
END
En bon français cela donne :
tant que result ne sera pas égal à « 2 », je poserai ma question « 1+1= ».
IV-B. DO…LOOP▲
DO…LOOP (boucle)
Encore une boucle me direz-vous, oui, mais différente. Alors celle-ci commence par do, puis il faut mettre les commandes de la boucle on ajoute loop et until qui indiquera la condition pour stopper la boucle.
Rien qu'un exemple pour traduire cela :
Cls
Do
Input " tapez oui "
;rep$
Loop
until
rep$ =
" oui "
Print " enfin "
End