Programme PV = nRT (version complète)



Le premier écran va être constitué par un menu qui va proposer de calculer une des 4 variables possibles à l'aide de la commande Menu.


Chaque choix va renvoyer vers un sous programme avec la commande Lbl.
Chaque sous programme va demander les valeurs des 3 autres variables.
Enfin un dernier sous programme va permettre d'afficher les résultats.

Programme complet : Gaz parfait ClrHome
'Nom du programme'
Disp "PV = nRT"
'La valeur 8,314 est affectée à la variable R'
8.314 → R
'Choix par le menu'
Menu ("CHOIX","P",1,"V",2,"N",3,"T",4
'Sous programme pour calculer P'
Lbl 1
Input "V = ", V
Input "N = ", N
Input "T = ", T
NRTV-1 → P
Goto 99
'Sous programme pour calculer V'
Lbl 2
Input "P = ", P
Input "N = ", N
Input "T = ", T
NRTP-1 → V
Goto 99
'Sous programme pour calculer N'
Lbl 3
Input "P = ", P
Input "V = ", V
Input "T = ", T
PVR-1T-1 → N
Goto 99
'Sous programme pour calculer T'
Lbl 4
Input "P = ", P
Input "V = ", V
Input "N = ", N
PVR-1N-1 → T
Goto 99
'Affichage des résultats'
Lbl 99
ClrHome
Output (2,1,"P = "
Output (3,1,"V = "
Output (4,1,"N = "
Output (5,1,"T = "
Sci
Output (2,5,P
Normal
Output (3,5,V
Output (4,5,N
Fix 0
Output (5,5,T
Normal
Output (1,1,"

On peut alléger le code en utilisant une méthode pseudo-solveur.

Variation ClrHome
'Routine MSGVAL'
prgmMSGVAL
Pause
'Nom du programme'
Disp "PV = nRT"
'La valeur 8,314 est affectée à la variable R'
8.314 → R
ClrHome
'Saisie des variables'
Input "P = ", P
Input "V = ", V
Input "N = ", N
Input "T = ", T
'Calcul de l'inconnue'
'Si P est l'inconnue'
If P=X
Then
NRTV-1 → P
End
Goto 99
'Si V est l'inconnue'
If V=X
Then
NRTP-1 → V
End
Goto 99
'Si N est l'inconnue'
If N=X
Then
PVR-1T-1 → N
End
Goto 99
'Si T est l'inconnue'
If T=X
Then
PVR-1N-1 → T
End
Goto 99
'Affichage des résultats'
Lbl 99
ClrHome
Output (2,1,"P = "
Output (3,1,"V = "
Output (4,1,"N = "
Output (5,1,"T = "
Sci
Output (2,5,P
Normal
Output (3,5,V
Output (4,5,N
Fix 0
Output (5,5,T
Normal
Output (1,1,"

Retour

Cette méthode est aussi longue à programmer. Le solveur permet de réaliser les mêmes calculs de manière plus simple.