Publicité
Comment Programmer
EXEMPLE 4-PROGRAMMATION PLUS COMPLEXE
Le programme ci-dessus calcule la factorielle de N (N!). Le programme commence
à 1 et calcule N! jusqu'à la limite entrée par vous. Frappez ce programme.
100 F = 1: WAIT 118
110 INPUT "LIMIT?"; L
120 FOR N = 1 TO L
130 F - F * N
140 PRINT N, F
150 NEXT N
160 END
Ce programme comporte plusieurs nouveaux éléments. Le verbe WAIT à la ligne
100 contrôle le laps de temps pendant lequel les données seront affichées à l'écran
avant que le programme poursuive. Les nombres et leurs factorielles sont affichés
au fur et à mesure qu'ils sont calculés. La durée de leur affichage à l'écran est fixée
par l'instruction WAIT à environ 2 secondes; vous n'avez donc pas à appuyer sur
la touche [ENTER] .
A la ligne 100 également, remarquez qu'il y a deux instructions sur la même ligne,
séparées par deux points ( : ). Vous pouvez placer autant d'instructions que vous le
désirez sur une ligne, mais elles doivent être séparées par deux points et ne doivent
pas dépasser 80 caractères, y compris
| ENTERJ .
Lorsque plusieurs instructions
figurent sur une même ligne, les programmes peuvent devenir difficiles à lire et à
modifier; c'est pourquoi, il est conseillé de n'utiliser cette pratique que pour
des instructions très simples et lorsqu'il y a des raisons particulières pour placer
plusieurs instructions sur une même ligne.
Dans ce programme, vous avez également utilisé le verbe FOR à la ligne 120 et le
verbe NEXT à la ligne 150 pour créer une boucle. Dans l'exemple 3, vous aviez
créé une boucle "infinie" qui se répétait sans cesse jusqu'à ce que vous appuyiez sur
la touche ÎBHK] . Avec cette boucle FOR/NEXT, le PC-1350 ajoute 1 à N chaque
fois qu'il arrive au verbe NEXT.
Il effectue également un test pour voir si N est
supérieur à la limite L. Si N est inférieur ou égal à L, l'exécution reprend en haut
de la boucle et les instructions sont à nouveau exécutées. Si N est supérieur à L,
l'exécution se poursuit par la ligne 160 et le programme s'arrête.
Il est possible d'utiliser n'importe quelle variable numérique dans une boucle FOR/
NEXT.
Vous n'être pas également obligé de démarrer à 1 et vous pouvez ajouter
un incrément quelconque à chaque étape. Pour plus de détails, reportez vous au
Chapitre 8.
Nous avons donné à ce programme des numéros de ligne en commençant à 100.
Le fait de donner à vos programmes des numéros de lignes différents vous permet
65
Publicité
