Programmation en QBASIC

Signaler
Messages postés
1
Date d'inscription
mardi 9 décembre 2008
Statut
Membre
Dernière intervention
15 juin 2009
-
Messages postés
2
Date d'inscription
mardi 25 août 2009
Statut
Membre
Dernière intervention
25 août 2009
-
Slt chers camarades,

je suis un débutant en programmation sur ce, je rencontre quelques problèmes pour bien procédé.

ma préoccupation est celle-ci:

je veut savoir comment concevoir un programme permettant de lister 20 noms d'une promotion quelconque en ordre alphabétique. Et une table d'une dimension (1) ayant 10 colonnes, ayant aussi de nombres entiers à partir de 100 avec une progression de 5.

NB: en QBASIC.

merci je tien à votre bonne volonté de m'aidé

NARCYS MBIYE

2 réponses

Messages postés
2
Date d'inscription
mardi 25 août 2009
Statut
Membre
Dernière intervention
25 août 2009

SALUT
POUR LA PARTI ordre alphabétique

CLS
DIM a$(30): REM LISTER DE 20 MOMS
PRINT
FOR p = 1 TO 20: REM LE CHIFFRE 20 ET LE MOBER DE MONS
PRINT "MON"; p;
INPUT a$(p)
NEXT p
p = 0

CLS

FOR i = 1 TO 20 - 1: REM ORDER ALPABETIQUE : LE CHIFFRE 20 ET LE MOBER DE MONS
FOR j = i + 1 TO 20
IF a$(j) < a$(i) THEN SWAP a$(i), a$(j)
NEXT j
NEXT i

PRINT
FOR i = 1 TO 20
PRINT "MON"; a$(i)
NEXT i
END
REM DANS LE QBASIC 4.5 SUR AIDE ET INDEX IL Y A LE ( SWAP ) IL Y A UN PROGRAMEE
Messages postés
2
Date d'inscription
mardi 25 août 2009
Statut
Membre
Dernière intervention
25 août 2009

salut
pour le TABLEAUX de 100 a 5

CLS
a1 = 100: DIM tax(30)
PRINT
PRINT " ";
FOR z = 1 TO 9
PRINT " "; z;
NEXT z
PRINT " 10"
PRINT : PRINT
FOR a3 = 1 TO 10
PRINT a1; : tax(a3) = a1
b = a1 - 5
a1 b: b 0
NEXT a3

PRINT
PRINT " ";
FOR a3 = 1 TO 9
PRINT a1; : tax(a3 + 10) = a1
b = a1 - 5
a1 b: b 0
NEXT a3
PRINT " "; a1: tax(20) = a1

PRINT
FOR a = 1 TO 20
PRINT a; "TABLEAUX"; tax(a)
NEXT a