Tri
GW-BASIC (PC-BASIC)
Tout commis au dossier sait qu'il est plus facile de trouver des informations triées par ordre alphabétique. Tapez ce programme et exécutez-le. jusqu'à ce que vous soyez convaincu que l'ordinateur peut classer par ordre alphabétique :
5 CLS
10 INPUT "TAPEZ LE
PREMIER MOTS"; A$
15 INPUT "TAPEZ LE DEUXIÈME MOTS"; B$
20 IF A$ < B$ THEN
PRINT A$ " VIENT AVANT " B$
30 IF A$ > B$ THEN PRINT A$ " VIENT APRÈS " B$
40 IF A$ = B$ THEN PRINT "LES DEUX MOTS SONT LES MÊMES"
50 INPUT "UN AUTRE
TEST ? O/N "; R$
60 IF R$ = "o" OR R$="O" THEN 10
Avec les chaînes, les signes supérieur à (>), inférieur à (<) et égal (=) ont une nouvelle signification. Ils indiquent laquelle des deux chaînes vient avant l'autre dans l'ordre alphabétique :
< précède alphabétiquement
<
= précède ou est le même alphabétiquement
> suit par ordre alphabétique
>
= suit ou est le même par ordre alphabétique
= est le même
Puisque l'ordinateur peut classer par ordre alphabétique, il est facile d'écrire un programme de tri.
Trier un tableau avec la méthode Bubble - Sort
Ce programme utilise WHILE ... WEND, FOR ... NEXT et IF ... THEN
SWAP permet de changer les valeurs entre deux variables
Tapez et lancez ce programme, qui contient 5 mots :
5 CLS
10 DIM A$(5)
20 FOR
I = 1 TO 5
30 INPUT "TAPEZ UN MOT "; A$(I)
40 NEXT I
45
FLIPS=1
50 WHILE
FLIPS
60 FLIPS=0
70 FOR N=1 TO 4
80 IF A$(N)>A$(N+1)
THEN SWAP A$(N), A$(N+1): FLIPS=1
90 NEXT N
100 WEND
110 FOR N=1 TO 5
120 PRINT A$(N), 'La virgule permet d'afficher en
colonne
130 NEXT N
Cette section montre une manière simple de trier. Si vous devez trier de nombreux éléments, vous pouvez rechercher des méthodes de tri plus rapides.
