by Tom129 » 23 Jan 2016, 12:12
Bonjour,
J'ai aussi un problème similaire. Lors de l'exécution du programme le message d'erreur s'affiche. Le programme portant sur la calorimétrie il est fait de la cette façon :
- Code: Select all
Define LibPub trans_energie()=
Prgm
:Request "Valeur recherchée",v,0
:If v=q Then
:Request "m",m,0
:Request "c",c,0
:Request "T1",t1,0
:Request "T2",t2,0
:Disp "Q = m × c ×(T2-T1)"
:Disp "Q =",m,"×",c,"× (",t2,"-",t1,")"
:Disp "Q =",m*c*(t2-t1)
:ElseIf v=m Then
:Request "Q",q,0
:Request "c",c,0
:Request "T1",t1,0
:Request "T2",t2,0
:Disp "m =",(("Q")/("c × (T2-T1)"))
:Disp "m ="&q&"/("&c&"×("&t2&"-"&t1&")"
:Disp "m =",((q)/(c*(t2-t1)))
:ElseIf v=c Then
:c:="c ="&((q)/(m&"× ("&t2&"-"&t1&")"))
:Request "Q",q
:Request "m",m
:Request "T1",t1
:Request "T2",t2
:Disp "c =",(("Q")/("m × (T2-T1)"))
:Disp c
:Disp "c =",((q)/(m*(t2-t1)))
:ElseIf v=t1 Then
:t1:="T1 =-"&((q)/(m&"×"&c))&"+"&t2
:Request "Q",q
:Request "m",m
:Request "c",c
:Request "T2",t2
:Disp "T1 = -",(("Q")/("m × c")),"+T2"
:Disp t1
:Disp "T1 =",((−q)/(m*c))+t2
:ElseIf v=t2 Then
:t2:="T2 ="&((q)/(m&"×"&c))&"+"&t1
:Request "Q",q
:Request "m",m
:Request "c",c
:Request "T1",t1
:Disp "T2 =",(("Q")/("m × c")),"+T1"
:Disp t2
:Disp "T2 =",((q)/(m*c))+t1
:EndIf
:EndPrgm
Lorsque l'inconnu est Q, il n'a aucun problème pour me faire l'opération. Mais quand c'est m, c, T1 et T2, il m'affiche "Erreur : Le test n'a pas donné de résultat TRUE ou FALSE".
J'ai essayé de tourner le calcul de m de la même façon que Q mais... y veut pas !
D'où viendrait le problème ? Merci pour vos réponses.