Publicité
SORT.BA
Ce programme permet de trier
tous les enregistrements du fichier
ADRS.DO et de copier les enregis-
trements triés dans le fichier
SORT.DO.
Attention : s'il existe déjà un
fichier appelé SORT.DO, ce pro-
gramme effacera toutes les infor-
mations qu'il contient.
Vous pouvez changer le nom de
SORT.DO au moyen de la com-
mande NAME décrite au chapitre
2.
10 CLEAR 1000:DIM N$(100)
20 CLS:I=1
30 OPEN «ADRS.DO» FOR IN-
PUT AS 1
40 IFEOF(1)THEN80
50 LINEINPUT* 1, N$(l)
60 1 = 1 + 1
70 GOTO 40
80 CLOSE # 1
90 OPEN «SÛRT.DO» FOR
OUTPUT AS 1
100 CLS
110PRINT
@
137,
«TRI
EN
COURS »
1201=1-1
1 3 0 X = 0
140X = X+ 1
150IFX> ITHEN 230
160 IF N$(X) = « ZZ » THEN 140
170 FOR Y = 1 TO I
180 IF N$(Y} <N$(X) THEN X=Y
190 NEXT Y
200 PRINT* 1,N$(X)
210N$(X) = «ZZ»
220 GOTO 130
230 CLOSE # 1
240 PRINT® 137, «TRI TERMINE»
250 END
BAR.BA
Ce programme vous permet d'in-
troduire 12 nombres puis les affi-
che sous forme d'histogramme
simple. (Lorsque l'exécution de ce
programme est terminé, frappez
10 CLEAR 1000: DIM D(12)
20
FOR 1=1 TO 12
30 PRINT
«DONNEES
POUR
MOIS»l:INPUTD(l)
40 IF D(l) > YH THEN YH = D(l)
50 NEXT I
60 YL = YH
70 FORI= 1 TO12
80 IF D(l) < YL THEN YL =
D{I);NEXTI
90 CLS:M= 1 : X A = 2 4 2
100 FOR l= 1 TO 12
110 PRINT® XA, M;
1 2 0 X A = X A + 3:M = M + 1
130 NEXT I
1 40 P = (YH + YL)/55:X1 = 1 6
150 FORI= 1 TO 12
160Y1 =55-(D(l)/P)
170 UNE (X1,Y1)-(X1 + 8,46), 1,BF
180X1=X1 + 18:Y1=0
190 NEXT I
200 GOTO 200
Annexes/ 73
Publicité
