Publicité
Lorsque le programme est termi-
né, quittez BASIC et revenez en
TEXT. Une fois en TEXT: (1) Effa-
cez le tampon de rattachement en
frappant Select (F7) puis Copy
(F5). {2) Mettez l'enregistreur en
mode Play et frappez Load (F2). Le
contenu du tampon de rattache-
ment est ainsi chargé en TEXT.
Annexe D/
Programmes BASIC
Cette annexe contient quelques
programmes BASIC simples que
vous pouvez recopier et sauvegar-
der. Lorsque vous tapez un pro-
gramme BASIC, vous devez res-
pecter en tous points l'orthogra-
phe et la structure indiquées. Un
mot mal orthographié ou une pa-
renthèse mal placée peuvent em-
pêcher l'exécution du programme.
LOAN.BA
Le programme suivant permet de
calculer l'amortissement d'un em-
prunt. Vous devrez introduire (1) le
montant total de l'emprunt (ne ta-
pez ni virgule, ni signe franc), (2)
les intérêts que vous payez et (3) la
durée du remboursement, calcu-
lée en mois (par exemple, 20 ans x
12 = 240 mois).
10 CLS:INPUT «SPECIFIEZ LE
MONTANT DE L'EMPRUNT »;L
20 INPUT «TAUX D'INTERET
ANNUEL EN %»;R
30 INPUT « DUREE DE REMBOUR-
SEMENT (EN MOIS) » ;M
40R = R*.01/12
50 P= R
60l°/o=1:OA=L:CLS
70 PRINT « DUREE INTERET PRIN-
CIPAL NOUVEAU SOLDE »
80F1$ =
«# # # # # , # # # . # #
# # # , # # # . # #
# # # , # # # . # # »
90 F2$ = « PAIEMENT MENSUEL=
$ # # , # # # . # # »
100 F3$= «TOTAL DES INTERETS
PAYES = $ # # , # # # . # # »
1 1 0 X = X + 1
1 2 0 M C = R * L
130PP=P-MC
140NB= L-PP
150TI = TI + MC
160 PRINT USING
F1$;I%MC,PP,NB
170 IF X = 6 THEN GOSUB 240
180 IF !%<> M THEN l% =
1%+ 1:L = NB:GOTO 110
190 GOSUB 240
200 PRINT «POUR $» OA «EM-
PRUNTES A » R * 1200 «% D'INTE-
RET SUR» l%« MOIS»
210 PRINT:PRINT USING F2$;P
220 PRINT USING F3$;TI
230 END
240 INPUT « FRAPPEZ [ERTEEl POUR
CONTINUER »;R$:X= 0: CLS
250 RETURN
72 / Annexes
Publicité
