Ti80.Online

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


CE PROGRAMME PERMET DE CALCULER:
-LE NOMBRE DE JOULE DÉGAGÉS DANS UN TRANSFERT D'ÉNERGIE;
-LA MASSE IMPLIQUER DANS LE TRANSFERT D'ÉNERGIE;
-LA CHALEUR MASSIQUE D'UN ÉLÉMENT DANS LA RÉACTION;
-L'INTERVALE DE TEMPS ENTRE UNE TEMPÉRATURE A UNE AUTRE.
---------------------------------------------------------------------
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
CHALEUR VERSION 1.02
ICQ:77754519
20:32 00-06-19


PROGRAME ADAPTÉ POUR LA TI-80
---------------------------------------------------------------------
CLE DE SIGNIFICATION
<= EST LA TOUCHE PLUS PETIT OU ÉGAL
~ EST LA TOUCHE STO>
'(APOSTROPHE) EST LA TOUCHE DEGRÉ DANS LE MENU [ANGLE]
* EST LA TOUCHE MULTIPLIER
/ EST LA TOUCHE DIVISER
---------------------------------------------------------------------
CLRHOME 
DISP "FAIT PAR:
DISP "DAVID GAGNON"
DISP "CHALEUR V1.02"
PAUSE 
LBL A
CLRHOME
DISP "DANS Q=MCT",""
PAUSE
DISP "VALEUR MANQUANTE",""
DISP "NB DE JOULE 1)"
DISP "MASSE 2)"
DISP "CHAL.MASSIQUE 3)"
DISP "VAR DE TEMPE 4)"
DISP "QUIT 5)"
INPUT A
IF A<1
GOTO A
IF A=1
GOTO 1
IF A=2
GOTO 2
IF A=3
GOTO 3
IF A=4
GOTO 4
IF A=5
GOTO Z
IF A>5 
GOTO A
LBL 1
CLRHOME
DISP "VALEUR DE:"," "
INPUT "MASSE?(G)",M
INPUT "CHAL.MASSI?",C
INPUT "VAR DE TEMPE?",T
IF M<=0
GOTO Y
IF C<=0 
GOTO Y
IF T<=0
GOTO Y
M*C*T~Q
CLRHOME
DISP "NB DE JOULE:",Q
PAUSE
GOTO A
LBL 2
CLRHOME
DISP "VALEUR DE:"," "
INPUT "NB DE JOULES?",Q
INPUT "CHAL.MASSI?",C
INPUT VAR.DE TEMPE?",T
IF Q<=0
GOTO Y
IF C<=0
GOTO Y
IF T<=0
GOTO Y
Q/(C*T)~M
DISP "MASSE:",M
PAUSE
LBL 3
CLRHOME
DISP "VALEUR DE:"," "
INPUT "NB DE JOULE?",E
INPUT "MASSE?(G)",M
INPUT "VAR DE TEMPE?",T
IF E<=0 
GOTO Y
IF M<=0
GOTO Y
IF T<=0 
GOTO Y
E/(M*T)~C
DISP "CHAL.MASSI:",C
PAUSE
GOTO A
LBL 4
CLRHOME
DISP "VALEUR DE:"," "
INPUT "NB DE JOULE?",Q
INPUT "MASSE?(G)",M
INPUT "CHAL.MASSI?",C
IF Q<=0
GOTO Y
IF M<=0 
GOTO Y
IF C<=0
GOTO Y
Q/(M*C)~T
DISP "VAR DE TEMPE:",T
PAUSE 
GOTO A
LBL Y
CLRHOME
DISP "LA REPONSE EST 0"
PAUSE
GOTO A
LBL Z
DISP "MERCI D'AVOIR"
DISP "UTILISER"
DISP "CHALEUR V1.02"
PAUSE
STOP