Programmation en QBASIC

Question

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

grandprix100 · Answer

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

grandprix100 · Answer

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

Programmation en QBASIC

2 réponses

Votre réponse

Discussions similaires