Compteur   J
Volt       V
Ampérage   I
Puissance  W
Résistance R
Cheval vap C
735,49875  D
Dans tous les pays, sa définition est la même : 1 ch = 75 kgf·m/s = 735,49875 W.
--------------------------------------------------------------------------------
PROGRAM:COURENT

0→V:0→I:0→W:0→R:0→C:0→D:0→J
735.49875→D

EffÉcran
Disp "un Cheval Vapeur 735,49875"
Disp "--------------------------"

Input "0 ou Voltage = ",V
If V≠0:J+1→J

Input "0 ou  Ampère = ",I
If I≠0:J+1→J
If J>1:Goto X:End

Input "0 ou   Watts = ",W
If W≠0:J+1→J
If J>1:Goto X:End

Input "0 ou Résist. = ",R
If R≠0:J+1→J
If J>1:Goto X:End

Input "0 ou Chevaux = ",C
If C≠0:J+1→J
If J>1:Goto X

EffÉcran
Disp "pas assez d'argument"
Stop

Lbl X

If V≠0 et I≠0:Then
V*I→W
V/I→R
W/D→C
Goto F
End

If V≠0 et W≠0:Then
W/V→I
V/I→R
W/D→C
Goto F
End

If V≠0 et R≠0:Then
V/R→I
V*I→W
W/D→C
Goto F
End

If V≠0 et C≠0:Then
C*D→W
W/V→I
V/I→R
Goto F
End

If I≠0 et W≠0:Then
W/I→V
V/I→R
W/D→C
Goto F
End

If I≠0 et R≠0:Then
I*R→V
V*I→W
W/D→C
Goto F
End

If I≠0 et C≠0:Then
C*D→W
W/I→V
V/I→R
Goto F
End

If W≠0 et R≠0:Then
W*R→I
√(I)→V
W/D→C
Goto F
End

If C≠0 et R≠0:Then
C*D→W
W*R→V
√(V)→V
W/R→I
√(I)→I
Goto F
End

If C≠0 et W≠0:Then
EffÉcran
Disp "pas assez d'argument"
End:Stop

Lbl F

arrondir(V,3)→V
arrondir(I,3)→I
arrondir(W,3)→W
arrondir(R,3)→R
arrondir(C,3)→C

EffÉcran
Output(1,3,"Voltage..= "):Output(1,14,V)
Output(3,3,"Ampérage.= "):Output(3,14,I)
Output(5,3,"Wattage..= "):Output(5,14,W)
Output(7,3,"Ohmage...= "):Output(7,14,R)
Output(9,3,"Chev.Vap.= "):Output(9,14,C)
Pause 
EffÉcran