Ti80.Online

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


CE PROGRAMME PERMET DE CALCULER LA PUISSANCE DISSIPÉE, LA PUISSANCE ET
L'ÉNERGIE À L'AIDE DE DIVERSES FORMULES.
-----------------------------------------------------------------------
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
'(APOSTROPHE) EST LA TOUCHE DEGRÉ DANS LE MENU [ANGLE]
<= EST LA TOUCHE PLUS PETIT OU ÉGAL
>= EST LA TOUCHE PLUS GRAND OU ÉGAL
~ EST LA TOUCHE STO>
* EST LA TOUCHE MULTIPLIER
/ EST LA TOUCHE DIVISER
^2 EST LA TOUCHE EXPOSANT 2

CLRHOME
DISP "FAIT PAR:"
DISP "DAVID GAGNON"
DISP "ELECT2 V1.02"
PAUSE
LBL A
CLRHOME
DISP "VALEUR MANQUANTE"
DISP " "
DISP "PUISSANCE 1)"
DISP "PUISS.DISSIPE 2)"
DISP "ENERGIE 3)"
DISP "QUIT 4)"
INPUT A
IF A<1
GOTO A
IF A=1
GOTO 1
IF A=2
GOTO 2
IF A=3
GOTO 5
IF A=4
GOTO Z
IF A>4
GOTO A
LBL 1
CLRHOME
DISP "P=U*I 1)"
DISP "P=U^2/R 2)"
INPUT B
IF B=1
GOTO 3
IF B=2
GOTO 4
IF B<1
GOTO 1
IF B>2
GOTO 1
LBL 3
CLRHOME
DISP "VALEUR DE:"
DISP " "
INPUT "VOLT?",u
INPUT "AMPERE?",I
IF U<=0
GOTO Y
IF I<=0 
GOTO Y
U*I~P
DISP "PUISSANCE:",P,"WATTS"
PAUSE 
GOTO A
LBL 4
CLRHOME
DISP "VALEUR DE:"," "
INPUT "VOLT?",U
INPUT "RESISTANCE",R
IF U<=0
GOTO Y
IF R<=0
GOTO Y
U^2/R~P
DISP "PUISSANCE",P,"WATTS"
PAUSE
GOTO A
LBL 2
CLRHOME
DISP "VALEUR DE:"
DISP " "
INPUT "RESISTANCE",R
INPUT "AMPERE?",I
IF R<=0
GOTO Y
IF I<=0 
GOTO Y
R*(I^2)~P
DISP "PUISS.DISSIPE",P,"WATTS"
PAUSE
GOTO A
LBL Z
CLRHOME
DISP "MERCI D'AVOIR"
DISP "UTILISER"
DISP "ELECT2 V1.02"
DISP "FAIT PAR:"
DISP "DAVID GAGNON"
STOP
LBL Y
CLRHOME
DISP "CALCUL"
DISP "IMPOSSIBLE,"
DISP "VALEUR INCORECTE"
DISP "OU MANQUANTE"
PAUSE 
GOTO A
LBL 5
CLRHOME
DISP "VOUS AVEZ QUOI?"," "
DISP "KWH 1)"
DISP "WATTS 2)"
DISP "VOLT,AMPERE 3)"
INPUT A
IF A=1
GOTO 6
IF A=2
GOTO 8
IF A=3
GOTO 7
IF A<1
GOTO 5
IF A>3
GOTO 5
LBL 6
CLRHOME 
DISP "NOMBRE DE KWH?"
INPUT "?",B
IF B<=0
GOTO Y
B*1000*3600~A
DISP "NB DE JOULES:",A
PAUSE 
GOTO A
LBL 7
CLRHOME
DISP "VALEUR DE:"," "
INPUT "VOLTS?",U
INPUT "AMPERE?",I
IF U<=0
GOTO Y
IF I<=0
GOTO Y
U*I~P
P*3600~J
DISP "NB DE JOULES:",J
PAUSE
GOTO A
LBL 8
CLRHOME
DISP "NB DE WATTS?"
INPUT W
IF W<=O
GOTO Y
W*3600~J
DISP "NB DE JOULES:",J
PAUSE 
GOTO A