'Nom du programme'
"PV=nRT"
'La valeur 8,314 est affectée à la variable R'
8.314→R
'Indications du choix'
"Calcul de :"
" P : 1"
" V : 2"
" n : 3"
" T : 4"
'Choix avec les conditions imbriquées'
Lbl 5
Getkey→A
If A=72
Then Goto 1
Else If A=62
Then Goto 2
Else If A=52
Then Goto 3
Else If A=73
Then Goto 4
Else Goto 5
IfEnd
IfEnd
IfEnd
IfEnd
'Sous-programme 1 qui calcule P'
Lbl 1
"V"?→V
"n"?→N
"T"?→T
NRTV^-1→P
Goto 9
'Sous-programme 2 qui calcule V'
Lbl 2
"P"?→P
"n"?→N
"T"?→T
NRTP^-1→V
Goto 9
'Sous-programme 3 qui calcule n'
Lbl 3
"P"?→P
"V"?→V
"T"?→T
PVR^-1T^-1→N
Goto 9
'Sous-programme 4 qui calcule T'
Lbl 4
"P"?→P
"V"?→V
"n"?→N
PVR^-1N^-1→T
Goto 9
'Affichage des résultats'
Lbl 9
ClrText
Locate 1,2,"P = "
Locate 1,3,"V = "
Locate 1,4,"n = "
Locate 1,5,"T = "
Locate 1,6,"θ = "
Sci 3
Locate 5,2,P
Norm1
Locate 5,3,V
Locate 5,4,N
Locate 5,5,T
Fix 0
Locate 5,6,T-273
Norm

'Nom du programme'
Locate 7,1,"PV = nRT
'La valeur 8,314 est affectée à la variable R'
8.314→R
"Mettre la valeur 'X' pour l'inconnue"
'La valeur de X ne doit pas être nulle a priori'
0.001→X
'Les valeurs sont demandées'
"P="?→P
"V="?→V
"n="?→N
"T="?→T
'Selon la variable affectée à X, le programme effectue un des calculs'
P=X⇒NRTV^-1→P
V=X⇒NRTP^-1→V
N=X⇒PVR^-1T^-1→N
T=X⇒PVN^-1R^-1→T
'Affichage des résultats'
ClrText
Locate 1,2,"P = "
Locate 1,3,"V = "
Locate 1,4,"n = "
Locate 1,5,"T = "
Locate 1,6,"θ = "
Sci 3
Locate 5,2,P
Norm1
Locate 5,3,V
Locate 5,4,N
Locate 5,5,T
Fix 0
Locate 5,6,T-273
Norm

'Nom du programme'
Locate 7,1,"PV = nRT"
'La valeur 8,314 est affectée à la variable R'
8.314→R
"Mettre la valeur 'X' pour l'inconnue"
'La valeur de X ne doit pas être nulle a priori'
0.001→X
'Les valeurs sont demandées'
"P="?→P
"V="?→V
"n="?→N
"T="?→T
'Selon la variable affectée à X, le programme effectue un des calculs'
P=X⇒NRTV^-1→P
V=X⇒NRTP^-1→V
N=X⇒PVR^-1T^-1→N
T=X⇒PVN^-1R^-1→T
'Affichage des résultats'
"P = "
Sci3
P
"V = "
Fix2
V
"n = "
N
Fix1
"T = "
T
"θ = "
Fix1
T-273
Norm