qbasic: comment faire un programme qbasic

Question

comment faire un programme qbasic qui permet de compter de 1 à 15.000?

Raymond PENTIER · Answer

Il faut apprendre à programmer en QBasic  ...

Utilisateur anonyme · Answer

Bonjour

Merci de garder à l'esprit que CodeS-SourceS et CCM sont des communautés d'entraide. Toutes les réponses sur le forum sont assurées par des bénévoles qui donnent de leur temps libre pour aider à résoudre les problèmes.

A noter également que nous ne faisons pas dans le "tout cuit". Soit tu trouves ton bonheur dans la partie sources du site, soit à l'aide de ton moteur de recherche favori. Ici, nous aidons volontiers sur une difficulté technique, précise et parfaitement isolée rencontrée dans le cours du développement. 

Penser à poster le morceau de code qui pose problème, voir ici comment utiliser la coloration syntaxique. S'il y a un message d'erreur retranscrivez le dans son intégralité, en précisant à quelle ligne apparait cette erreur.

Là des conseils d'écriture des messages et ici et là en particulier pour les devoirs scolaires ou PFE.

Penser que le titre doit refléter le contenu de la demande, "Question", "Problème" ou "Java", ne sont ni accrocheurs, ni utiles. Il semble évident qu'une question posée sur un forum de programmation Java tournera autour d'un problème lié à ce langage. 

Et enfin, le plus important .

Merci donc de reformuler ta demande en respectant ces quelques points.

qbasic45 · Answer

Bonjour

1 CLS : COLOR 15
2 REM 15.000
3 a$="":b$="":c$="":a=0
4 FOR a = 1 TO 15000
5 a$ = LTRIM$(STR$(a))
6 IF a < 1000 THEN PRINT a$
7 IF a >= 1000 AND a < 10000 THEN GOSUB 100: PRINT b$
8 IF a >= 10000 THEN GOSUB 200: PRINT c$
9 NEXT a
10 END
100 b$ = MID$(a$, 1, 1) + "." + MID$(a$, 2, 5): RETURN
101 END
200 c$ = MID$(a$, 1, 2) + "." + MID$(a$, 3, 5): RETURN
201 END
ou
1 cls:color 15
2 FOR a = 1 TO 15000
3 PRINT USING "##,###"; a
4 NEXT a

Qbasic: comment faire un programme qbasic

3 réponses

Discussions similaires

Newsletters