R0cks1 le 13/12/2014 à 21:51
bonjour , je suis débutant en programmation sur ti-82 alors me flinguez pas dès le début plz
bon , étant en première S j'ai étudié les fonctions du second degrés et le fameux delta
et avec un ami on a pensé a ça :
Code
:Input "A:",A
:Input "B:",B
:Input "C:",C
:Disp "B²-4AC" //formule de delta
:B²-4AC->D
:Disp "DELTA:",D
:Pause
:If D<0
:Then
:Disp "PAS DE SOLUTIONS"
:Else
:If D=0
:Then
:Disp "1 SOLUTION"
:Disp "-B/(2A)"
:-B/(2A)->E
:Pause //pour voir comment calculer la solution quand D=0
:EffEcr
:Disp "SOLUTION:",E
:Else
:If D>0
:Then
:Disp "2 SOLUTIONS:"
:Disp "" //pour faire un truc plus esthétique
:Disp "(-B+#(D))/(2A)"
:Disp "" //pour faire un truc plus esthétique
:Disp "-B-#(D))/(2A)"
:Pause //pour voir exactement les formules
:(-B+#(D))/(2A)->E
:(-B-#(D))/(2A)->F
:Disp "SOLUTION 1:",E,"","SOLUTION 2:",F
#=Racine carrée
voila si vous avez des suggestions/des allégements a proposer ne vous génez pas !
linkakro le 13/12/2014 à 22:45
Citation
bonjour , je suis débutant en programmation sur ti-82 alors me flinguez pas dès le début plz
Ce n'est pas mon intention, même si je manque parfois de tact. Si quelqu'un dénigrait autrui, je serais tenté de le virer.
Programme classique, beaucoup de monde commence par ça.
Je te déconseille d'omettre les End à la fin des alternatives même si c'est facultatif en fin de programme. Tu risques de les oublier quand tu ajouteras quelque chose d'autre à la suite.
Tu peux profiter des alternatives pour omettre la dernière condition (D>0) qui est de toute manière le complément des deux autres conditions (D=0, D<0).
Exemple d'alternatives.
Code
If D<0
Then
Disp "D<0"
Else
If D=0
Then
Disp "D=0"
Else
Disp "D>0"
End
End
Tu peux utiliser Prompt au lieu de Input si tu ne donnes pas de texte particulier à l'invité de saisie. De plus tu peux rester paresseux et mettre plusieurs variables dans un seul Prompt.
