Close2
TheRoyalixOn the 2013-11-18 at 10:17pm
Bonjour, j'ai voulus crée un petit programme pour ma Ti-89. Apres l'avoir finis au moment de le lancer un message d'erreur s'affiche : "invalid variable or function name"

merci de bien vouloir me venir en aide.

voici mon code
()
Prgm

clrIO
lbt start

Toolbar
Title "Pythagore"
Item "Reciproque",reci
Item "Theoreme",theo
Title "Quit",qt
EndTBar

lbl reci
clrIO
Disp "Valeur hypothenuse"
Input A
Disp "Valeur de la longueur 1"
Input B
Disp "Valeur de la longueur 2"
Input C
D»(A^2)
E»(B^2+C^2)
If D=E Then
Dialog
Title "resultat"
Text "Le triangle est rectangle"
EndDlog
Else
Dialog
Title "resultat"
Text "Le triangle n'est pas rectangle"
EndDlog
EndElse
EndIf
clrhome
Goto start

lbl theo
clrIO
Disp "Pour la valeur inconue mettre 0"
Disp "Valeur de l'hypothenuse"
Input A
Disp "Valeur de la longueur 1"
Input B
Disp "Valeur de la longueur 2"
Input C
If A=0 Then
D»(B^2+C^2)
A»(§(D))
Dialog
Title "Resultat"
Text "L'hypothenuse est egale a",A
EndDlog
EndIf
If B=0 Then
D»(A^2-C^2)
B»(§(D))
Dialog
Title "resultat"
Text "La valeur 1 est egale a :",B
EndDlog
EndIf
If C=0 Then
D»(A^2-B^2)
C»(§(D))
Dialog
Title "resultat"
Text "La valeur 2 est egale a :",C
EndDlog
EndIf
clrhome
goto start
lbl qt
clrIO
Disp homeEndPrgm