|
|
|
 |
Lecture d'un Article |
|
 |
Programmation sur C64 : Convertisseur Fahrenheit/Celsius, Par TME, le 12-04-2005.
Enfin un programme utile ;-)Cet Article est publié sur le site
:: Conversion Fahrenheit/Celsius ::
1/ Le listing brut :
5 PRINT CHR$(147)
10 PRINT "CONVERSION EN FAHRENHEIT OU CELSIUS (F/C)":INPUT A$
20 IF A$="" THEN 150
30 IF A$="C" THEN 100
40 IF A$="F" THEN 50
45 GOTO 10
50 INPUT "CELSIUS:";C
60 F=(C*9)/5+32
70 PRINT C;" DEGRES CELSIUS=";F;" DEGRES FAHRENHEIT"
80 PRINT
90 GOTO 10
100 INPUT "FAHRENHEIT:";F
110 C=(F-32)*5/9
120 PRINT F;" DEGRES FAHRENHEIT=";C;" DEGRES CELSIUS"
130 PRINT
140 GOTO 10
150 PRINT "-BYE !"
Ce programme peut également s'écrire comme suit :
5?CHR$(147)
10?"CONVERSION EN FAHRENHEIT OU CELSIUS (F/C)":INPUTA$
20IFA$=""THEN150
30IFA$="C"THEN100
40IFA$="F"THEN50
45GOTO10
50INPUT"CELSIUS:";C
60F=(C*9)/5+32
70?C;" DEGRES CELSIUS=";F;" DEGRES FAHRENHEIT"
80?
90GOTO 10
100INPUT"FAHRENHEIT:";F
110C=(F-32)*5/9
120?F;" DEGRES FAHRENHEIT=";C;" DEGRES CELSIUS"
130?
140GOTO 10
150?"-BYE !"
2/ Le listing commenté :
5?CHR$(147)
Ligne 5 : On demande au programme d'afficher le
caractère correspondant à la touche CLRHOME du Commodore
64. Ceci a pour conséquence d'effacer le contenu de
l'écran.
10?"CONVERSION EN FAHRENHEIT OU CELSIUS (F/C)":INPUTA$
Ligne 10 : On affiche le texte "CONVERSION EN
FAHRENHEIT OU CELSIUS (F/C)" à l'écran, puis on place
dans la variable de type CHAÎNE nommée A$ le
caractère correspondant à la touche du clavier qui est
pressée par l'utilisateur.
20IFA$=""THEN150
Ligne 20 : Si A$ contient une chaîne de
caractères vide, on saute à la ligne 150.
30IFA$="C"THEN100
Ligne 30 : Si A$ contient le caractère C, on
saute à la ligne 100 pour faire une conversion de degrés
Fahrenheit en degrés Celsius.
40IFA$="F"THEN50
Ligne 40 : Si A$ contient le caractère F, on
saute à la ligne 50 pour faire une conversion de degrés
Celsius en degrés Fahrenheit.
45GOTO10
Ligne 45 : Si A$ ne contient ni une chaîne
vide, ni C, ni F, on retourne à la ligne 10.
50INPUT"CELSIUS:";C
Ligne 50 : La commande INPUT affiche le texte
"CELSIUS" à l'écran, puis place dans la variable de type
FLOTTANT nommée C la valeur numérique saisie par
l'utilisateur.
60F=(C*9)/5+32
Ligne 60 : On place dans la variable F de type
FLOTTANT le résultat de la conversion en degrés
Fahrenheit de la valeur contenue dans C.
70?C;" DEGRES CELSIUS=";F;" DEGRES FAHRENHEIT"
Ligne 70 : On affiche la valeur de C suivie du texte
" DEGRES CELSIUS=", lui-même suivi de la valeur de F
elle-même suivie de " DEGRES FAHRENHEIT".
80?
Ligne 80 : On affiche une ligne vide.
90GOTO 10
Ligne 90 : On saute à la ligne 10.
100INPUT"FAHRENHEIT:";F
Ligne 100 : La commande INPUT affiche le texte
"FAHRENHEIT" à l'écran, puis place dans la variable de
type FLOTTANT nommée F la valeur numérique saisie par
l'utilisateur.
110C=(F-32)*5/9
Ligne 110 : On place dans la variable C de type
FLOTTANT le résultat de la conversion en degrés Celsius
de la valeur contenue dans F.
120?F;" DEGRES FAHRENHEIT=";C;" DEGRES CELSIUS"
Ligne 120 : On affiche la valeur de F suivie du
texte " DEGRES FAHRENHEIT=", lui-même suivi de la valeur de C
elle-même suivie de " DEGRES CELSIUS".
130?
Ligne 130 : On affiche une ligne vide.
140GOTO 10
Ligne 140 : On saute à la ligne 10.
150?"-BYE !"
Ligne 150 : On affiche un petit message d'au revoir
et on quitte le programme.
3/ Commentaires additionnels :
Je n'ai rien à ajouter mis à part que je vais aller me
faire une petite partie de Super Star Soldier sur ma PC Engine ;-) Bon
code !
|
|
|
