Petit soucis sur un programme de calculette

[camcamP1]

Bonjour à tous,

Alors voilà je ne sais absolument pas comment créer un programme donc l'année dernière une de mes amies m'avait fait un programme sur ma calculette (TI-89 titanium) pour me faire gagner du temps en biophysique.

Ce programme concernait la relation d'Henderson-Hasselbalch simplifiée et adaptée pour la bio médicale qui est: pH= 6,1+ log10 ( [HCO3-] / 0,03 Pco2)

Ce programme me demandait par exemple la valeur du pH et de [HCO3-] donnée dans l'énoncé et il suffisait que je mette la valeur 0 pour Pco2, j'appuyais sur enter et la calculette me donnait directement la valeur de Pco2

Sauf que la dernière fois en plein concours blanc j'ai fait une fausse manip et j'ai supprimé une des lignes du programme, donc bien évidemment il ne marche plus et vu que je n'y comprends rien je ne sais pas comment réécrire la ligne manquante.. :help:

Je vous recopie le programme, si quelqu'un peut me trouver ce qu'il manque au programme avant ce soir (j'ai concours blanc demain à 8h) je serai hypeeeer heureuse !

:Prgm
:Input "pH :",a
:Input "HCO3- :",b
:Input "Pco2 :",c
:
:If a=0 Then
:
:Disp "pH :",a
:
:Elself b=0 Then
:0.03*c*10^(a-6.1)-->b
:Disp "HCO3- :",b
:
:Else
:b*10^(6.1-a)/(0.03)-->c
:Disp "Pco2 :",c
:
:Endif
:
:EndPrgm


Merci beaucoup à celui ou celle qui saura trouver la petite ligne manquante :D

[nodjim]

Entre Ifa = 0 et Disp "pH:",a il ne te manque pas une formule?

[nodjim]

Et ElseIf b=0 ne devrait il pas s'écrire
Else
If b=0 ...

[camcamP1]

Peut-être ??? Je n y connais vraiment vraiment rien :triste:

Il faut que je passe à la ligne entre else et if alors et puis il faut que je rentre quoi apres if a=0 ???

[camcamP1]

J'ai maintenant ça comme programme ? C'est juste ou pas ? Le programme ne marche toujours pas.. La calculette dit qu'il manque un truc au debut ou à la fin...

:Prgm
:Input "pH :",a
:Input "HCO3- :",b
:Input "Pco2 :",c
:
:If a=0 Then
:6,1+log(b/ 0.03*c)-->a
:Disp "pH :",a
:
:Else
:lf b=0 Then
:0.03*c*10^(a-6.1)-->b
:Disp "HCO3- :",b
:
:Else
:b*10^(6.1-a)/(0.03)-->c
:Disp "Pco2 :",c
:
:Endif
:
:EndPrgm

[Tiruxa]

En mettant les Then à la ligne chez moi ça fonctionne

rgm
:Input "pH :",a
:Input "HCO3- :",b
:Input "Pco2 :",c
:
:If a=0 retour ligne
:Then
:6,1+log(b/ 0.03*c)-->a
isp "pH :",a
:
:Else
:lf b=0 retour ligne
:Then
:0.03*c*10^(a-6.1)-->b
isp "HCO3- :",b
:
:Else
:b*10^(6.1-a)/(0.03)-->c
isp "Pco2 :",c
:
:Endif
:
:EndPrgm

[camcamP1]

ok merci beaucoup, je suis passée à la ligne mais ça me dit toujours "manque d'une instruction de début ou de fin de bloc" je comprends pas pourquoi :(

[Tiruxa]

Ok en fait j'ai testé sur ti 83...
Il manque un EndIf (à mettre après de premier EndIf car il y a deux blocs If imbriqués l'un dans l'autre)
Sur la Ti 89 les retours à la ligne ne sont pas nécessaire, si ça marche toujours revenez au Then sur la même ligne.

[camcamP1]

CAAAA MARRRCCCCHHHHE !!!

Merci beaucoup !!!!! :D :D :D