Calcul de la taxe

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Ben Franklin a dit en plaisantant que les seules certitudes dans la vie sont la mort et les impôts (bien qu'il ne soit pas le premier à faire cette observation tranchante).

Après avoir demandé le coût de l'article et son pourcentage de taxe de vente, le montant de la taxe de vente, ainsi que le prix total de l'article, s'affichent à l'écran.

Enfin, l'option de calculer la taxe sur un autre article ou de quitter le programme est présentée.

Bien qu'il soit simple, le programme révèle combien de ces calculs de base nécessitant une entrée de l'utilisateur pourraient être écrits en GW-BASIC - le langage peut également servir de calculatrice super programmable. (Texas Instruments, fabricants des lignes les plus populaires de calculatrices graphiques, utilisent une version de BASIC.)

Notez la ligne 110, qui transforme le pourcentage (pour cent) de taxe en proportion. Les calculs d'impôt sont effectués dans les relevés PRINT eux-mêmes.

Plus intéressant est le court menu "OUI" ou "NON" invitant l'utilisateur à quitter ou à en essayer un autre : un tel menu pourrait être étendu, dans d'autres programmes, à de nombreuses commandes différentes. (Le menu de frappe standard GW-BASIC, affiché dans la gouttière de l'écran, est désactivé avec l'instruction KEY OFF sur la première ligne.)

45 SCREEN 9:KEY OFF
50 COLOR 1,1:CLS:COLOR 15
60 PRINT:PRINT:PRINT "TROUVER LA TAXE DE VENTE"
80 INPUT "COUT DE L'ARTICLE";COST
85 INPUT "TAXE DE VENTE (EN %) ";TAX
90 CLS
100 PRINT "AVEC TAXE A ";TAX;"X,"
110 TAX=TAX/100
120 PRINT "LA TAXE EST $";COST*TAX
130 PRINT "LE COÛT TOTAL AVEC TAXE EST $ ";COST*TAX+COST
150 INPUT "UN AUTRE? OUI / NON";A$
170 IF A$="OUI" OR A$="oui" THEN GOTO 50
180 IF A$="NON" OR A$="non" THEN CLS:END
190 GOTO 150

Outre la taxe de vente, il existe d'autres types de taxes. Des programmes plus complexes pourraient être en mesure de gérer une myriade de calculs fiscaux.