10 likes | 105 Views
Exemples de Boucles en language BASIC. Ce programme nous demande un nombre (ligne 10), puis, selon sa valeur, affiche une des 2 lignes de texte (ligne 30 ou 40) après avoir comparé la valeur du nombre à 10 (ligne 20). Boucle « IF » : 10 INPUT « Entrez un nombre : »;A
E N D
Exemples de Boucles en language BASIC Ce programme nous demande un nombre (ligne 10), puis, selon sa valeur, affiche une des 2 lignes de texte (ligne 30 ou 40) après avoir comparé la valeur du nombre à 10 (ligne 20). • Boucle « IF » : 10 INPUT « Entrez un nombre : »;A 20 IF A>10 THEN GOTO 40 30 PRINT « Le nombre est inférieur ou égal à 10. »;END 40 PRINT « Le nombre est supérieur à 10. » • Boucle « WHILE » : DO INPUT "Combien d'étoiles voulez-vous"; NumStars Stars$ = "" Stars$ = REPEAT$("*", NumStars) PRINT Stars$ DO INPUT "Voulez-vous plus d'étoiles"; Answer$ LOOP UNTIL Answer$ <> "" LOOP WHILE UCASE$(LEFT$(Answer$, 1)) = "O" • Boucle « FOR » : 10 INPUT « Donnez un nombre : »;N 20 FOR I = 1 TO N 30 Print « Je compte »;N; ». » 40 NEXT N Ce programme nous demande un nombre d’étoiles à afficher, puis nous demande si on souhaite plus d’étoiles, & attend en boucle jusqu’à ce qu’on appuie sur une touche. Si la touche O est appuyée il recommencera au début, sinon il s’arrêtera. Ce programme nous demande un nombre, puis affichera la phrase « Je compte » suivie de nombres allant de 1 jusqu’au nombre indiqué.