Ti80.Online

Pour avoir plus de programmes, rendez-vous sur
http://www.ti80.online.fr
ti80@citeweb.net

VOICI UN PROGRAME POUR EFFECTUER DIVERSES OPÉRATIONS EN ÉLECTRICITÉ.
CE PROGRAME COMPREND:-CALCUL DE TENSION (VOLT)
-CALCUL D'INTENSITÉ (AMPÈRE)
-CALCUL DE CONDUCTANCE (SIEMENS)
-CALCUL DE RÉSISTANCE (OHM)
----------------------------------------------------------------------
SI VOUS ÉPROUVEZ DES PROBLÊMES VOUS POUVEZ ME CONTACTER PAR E-MAIL
OU PAR ICQ.
NOTEZ QUE PAR "ICQ" JE NE SUIS PAS LE SEUL UTILISATEUR DE MA FAMILLE
DEMANDEZ DONC SI C'EST MOI QUI EST PRÉSENT!
----------------------------------------------------------------------
FAIT PAR DAVID GAGNON
adjudant.gagnon@caramail.com
ÉLECTICITÉ VERSION 1.02
ICQ:77754519
21:32 00-04-19


PROGRAME ADAPTÉ POUR LA TI-80
----------------------------------------------------------------------
CLÉ DE SIGNIFICATION

~ EST LA TOUCHE STO
^-1 EST LA TOUCHE " X À LA -1" (À COTÉ DE LA TOUCHE SIN) 
* EST LA TOUCHE DE MULTIPLICATION
'(APOSTROPHE) TOUCHE DE DEGRÉ DANS LE MENU ANGLE
----------------------------------------------------------------------
AUCUN BOGUE CONNUS
BYTES:1221
----------------------------------------------------------------------
CLRHOME
DISP "FAIT PAR:"
DISP "MADE BY:" 
DISP " "
DISP "DAVID GAGNON"
DISP "ELECTRICITE"
DISP "VERSION 1.02"
PAUSE
LBL D
CLRHOME
DISP "VALEUR MANQUANTE"
DISP " "
DISP "VOLT:1)"
DISP "AMPERE:2)"
DISP "CONDUCTANCE:3)"
DISP "RESISTANCE:4)"
DISP "QUIT:5)"
INPUT R
IF R=1 
GOTO V
IF R=2
GOTO A
IF R=3
GOTO C
IF R=4
GOTO W
IF R=5
GOTO Q
LBL V
CLRHOME
DISP "VALEUR DE:"
INPUT "AMPERE?",I
INPUT "CONDUCTANCE?",G
IF G=0
GOTO W
IF G>0
GOTO 3
LBL W
CLRHOME
DISP "VALEUR DE:"
DISP "L'INTENSITE EST",I
INPUT "RESISTANCE?",X
IF X=0
GOTO T
I*X~U
CLRHOME
DISP "LA TENSION EST:",U
DISP "LA RESIST. EST:",X
PAUSE
GOTO D
LBL 3
I/G~U
CLRHOME
DISP "LA TENSION EST:",U
(G^-1)~W
DISP "LA RESIST. EST:",W
PAUSE
GOTO D
LBL A 
CLRHOME
DISP "VALEUR DE:"
INPUT "VOLT?",U
INPUT "CONDUCTANCE?",G
IF G=0
GOTO 1
IF G>0
GOTO 4
LBL 1
CLRHOME
DISP "VALEUR DE:"
DISP "LA TENSION EST:",U
INPUT "RESISTANCE?",X
IF X=0
GOTO T
U/X~I
CLRHOME
DISP "L'INTENSITE EST:",I
DISP "LA RESIST. EST:",X
PAUSE
GOTO D
LBL 4
G*U~I
(G^-1)~W
CLRHOME
DISP "L'INTENSITE EST:",I
DISP "LA RESIST. EST:",W
PAUSE 
GOTO D
LBL C
CLRHOME
DISP "VALEUR DE:"
INPUT "VOLT?",U
INPUT "AMPERE?",I
IF U=0
GOTO 2
IF I=0 
GOTO 2
IF U>0
GOTO 5
IF I>0
GOTO 5
LBL 2
CLRHOME
DISP "VALEUR DE:"
INPUT "RESISTANCE?",X
IF X=0
GOTO T
(X^-1)~T
CLRHOME
DISP "LA CONDUCT. EST:",T
PAUSE
GOTO D 
LBL 5
I/U~G
(G^-1)~W
CLRHOME
DISP "LA CONDUCT. EST:",G
DISP "LA RESIST. EST:",W
PAUSE 
GOTO D
LBL W
CLRHOME
DISP "VALEUR DE:"
INPUT "CONDUCTANCE?",G
IF G=0
GOTO 6
IF G>0
GOTO 8
LBL 6
CLRHOME
DISP "VALEUR DE:"
INPUT "VOLT?",U
INPUT "AMPERE?",I
IF U=0
GOTO T
IF I=0
GOTO T
U/I~W
(G^-1)~W
CLRHOME
DISP "LA RESIST. EST:",W
PAUSE
GOTO D
LBL 8
(G^-1)~W
CLRHOME
DISP "LA RESIST. EST:",W
PAUSE
GOTO D 
LBL Q
CLRHOME
DISP "MERCI D'AVOIR","UTILISE","ÉLECTRICITÉ","V1.02"
STOP
LBL T
DISP "CALCUL","IMPOSSIBLE,","TROP DE VALEUR","MANQUANTE."
PAUSE
GOTO D