Programme

[jeminicriquet]

Bonsoir !

Ma professeur de mathématique m'a donner un programme à rentrer dans ma calculatrice sur les trinôme du second degré, lorsque je l'éxécute, j'ai delta, le nombre de solutions, mais après, je n'ai pas les solutions... Si quelqu'un peut m'aider en prenant mon MSN ! Merci EDIT : pas de coordonnées en clair.

[Dominique Lefebvre]

Bonsoir,

pas besoin de passer sur MSN! le forum ne te convient pas? De quelle calculatrice s'agit-il et as-tu le code de ton programme?

[jeminicriquet]

Oui, je l'ai, et enfait, j'ai trouver l'erreur !
Mais il est à valeur approché :/ (exemple 0.6233532553545...), si quelqu'un à le code d'un programme me donnant delta, le nombre de solution, et la valeur exacte du, des racine(s), si c'est possible, je sais qu'il existe, mais j'ai pas trouver le code à mettre dans ma calcu :)

Merci :)

[Dominique Lefebvre]

Oui, je l'ai, et enfait, j'ai trouver l'erreur !
Mais il est à valeur approché :/ (exemple 0.6233532553545...), si quelqu'un à le code d'un programme me donnant delta, le nombre de solution, et la valeur exacte du, des racine(s), si c'est possible, je sais qu'il existe, mais j'ai pas trouver le code à mettre dans ma calcu

Merci

pas "delta": le discriminant!!! Il faudra le répéter combien de fois!
Sur la TI 89 ou V200, tu peux obtenir l'affichage exact (et pas l'arrondi calculé) en le précisant par "mode". Pour les autres calculettes (ça existe?), je ne sais pas!

[Timothé Lefebvre]

Pour les autres calculettes (ça existe?), je ne sais pas!

Pfff ! Casio !! Pour les Casio tu peux faire pareil.
Les valeurs exactes sont données en appuyant sur Shift + Mode puis 1:MthIO pour une fx-92. Si tu as une Graph 35+ je t'avoue que je ne sais pas comment faire, en fait je garde toujours ces deux modèles sur moi

[jeminicriquet]

Je sais pas, j'ai pas trouver :/
Si quelqu'un qui si connait peut m'aider :)

[Dominique Lefebvre]

Je sais pas, j'ai pas trouver :/
Si quelqu'un qui si connait peut m'aider

Bojour,
Si tu n'as pas encore compris le sens des remarques ci-dessus, il conviendrait que tu nous indiques le type de ta calculatrice! parce que sans ça, on ne peut pas faire grand chose! Et également le code de ton programme....

[adrd]

Bonjour,

Pour Calculatrice Casio :

Correction des bugs en rouge

ClrText
Lbl 1
0->R
"A"?->A
A=0=>Goto 1
"B"?->B
"C"?->C
ClrText
" "
" "
" "
" "
" "
" "
Locate 1,1,"A="
Locate 3,1,A
Locate 11,1,"B="
Locate 13,1,B
Locate 1,2,"C="
Locate 3,2,C
B²-4AC->D
Locate 11,2,"D="
Locate 13,2,D
D->E
E=0=>Goto 3
While 1
Frac(E/4)->Z
Z=0=>E/4->E
Z;)0=>Break
WhileEnd
1->F
Lbl 2
F+2->F
While 1
Frac (E/F²)->Z
Z=0=>E/F²->E
Z;)0=>Break
WhileEnd
F²;)Abs E=>Goto 2
(D/E)->R
Lbl 3
E->S
-B->P
2A->Q
If QP
-Q->Q
IfEnd
While 1
Frac (P/2)=0 And Frac (Q/2)=0 And Frac (R/2)=0->Z
Z=>P/2->P
Z=>Q/2->Q
Z=R/2->R
Z=0=>Break
WhileEnd
1->F
Lbl 4
F+2->F
While 1
Frac (P/F)=0 And Frac (Q/F)=0 And Frac (R/F)=0->Z
Z=>P/F->P
Z=>Q/F->Q
Z=>R/F->R
Z=0=>Break
WhileEnd
(F-1)²->Z
Z;)Abs P And Z;)Abs R And Z;)Q=>Goto 4
Locate 2,5,"X= ----------------"
R=0->Z
Locate 11-Int((log Abs (P+.5))/2),3+Z,P P peut être égal à 0 (quand b=0 et c=0) donc + 0.5 pour pas avoir log de 0
R=1->Z
R;)0=>Locate 6+5Z,4,"+-"
Locate 11-Int((log Abs Q)/2),6,Q Abs peut être supprimé car Q > 0
R;)0 And R;)1=>Locate 9,4,R
R;)0=>Locate 14,4,";)"
R;)0=>Locate 16,4,S
Goto 1

L'affichage des solutions ressemble à ça :

---------------------------------------------------------
A=1_______B=10
C=1_______D=96
__________-5
____+- 2____ 6
_X= ------------------
__________1
A?
---------------------------------------------------------


L'affichage peut être modifier pour ressembler à ça :

---------------------------------------------------------
A=1_______B=10
C=1_______D=96

X = ( E +- F;)G ) / H
E=-5______F=2
G=6_______H=1
A?
---------------------------------------------------------

Tout ce qui se situe après :
Goto 4 >>
dans le programme doit être remplacé pour cet affichage par :

Locate 1,4,"X = ( E +- F;)G ) / H"
Locate 1,5,"E="
Locate 3,5,P
Locate 11,5,"F="
Locate 13,5,R
Locate 1,6,"G="
Locate 3,6,S
Locate 11,6,"H="
Locate 13,6,Q
Goto 1

[Dominique Lefebvre]

Quelle Casio, car à priori sur ces calculatrices, il existe plusieurs paramétrages selon le type de modèle....

[adrd]

Quelle Casio, car à priori sur ces calculatrices, il existe plusieurs paramétrages selon le type de modèle....

Casio Graph 35+
Casio Graph 65
et (peut être) modèle supérieur

[Dominique Lefebvre]

Voilà, comme ça le problème est bien posé!

[Dominique Lefebvre]

A titre d'exemple, et parce que j'aime bien ma calculatrice, voilà le même programme sur V200 (ou TI 89) qui sort les racines réelles et complexes d'un polynôme de degré 2:

degre2()
Prgm
Local a,b,c
ClrIO
Prompt a,b,c
b² - 4*a*c -> d
If d > 0 Then
Disp Solve(a*x^2 + b*x + c = 0,x)
ElseIf d=0 Then
Disp x=-b/(2*a)
Else
Disp cSolve(a*x^2 + b*x + c =0,x)
EndIf
EndPrgm

Je n'ai pas pu résisté à la vue de ton code! j'aime ma Texas!

[jeminicriquet]

Il va falloir que je l'ecrive demain ! Mais comme je mit connais pas en programme, je doit ecrire tout ske vous m'avait mit ? Et log, goto, c'est oU?

[Dominique Lefebvre]

Il va falloir que je l'ecrive demain ! Mais comme je mit connais pas en programme, je doit ecrire tout ske vous m'avait mit ? Et log, goto, c'est oU?

Bonsoir,
Mais non, c'est un programme pour TI-89 ou V200 ! C'était juste pour montrer la différence de concision entre un programme de V200 et celui d'une Casio.

Pour ton problème, il ne s'agit pas de modifier ton code, mais de trouver quel paramètre il faut modifier pour obtenir l'affichage exact des résultats plutôt que les arrondis. Si tu l'as, regarde dans la doc de ta calculatrice. Personnellement, je ne connais rien aux Casio!

[jeminicriquet]

Je ne crois pas qu'avec la casion on puisse choisir la valeur exacte, malheureusement :/

[adrd]

log : c'est une touche bleu
-> : c'est une touche bleu

? : PRGM(SHIFT+VARS) F4
Locate : PRGM F6 F4 F1
ClrText : PRGM F6 F1 F1

Lbl : PRGM F3 F1
Goto : PRGM F3 F2
=> : PRGM F3 F3
Break : PRGM F2 F3

While : PRGM F1 F6 F6 F1
WhileEnd : PRGM F1 F6 F6 F2

Abs : OPTN F6 F4 F1
Int : OPTN F6 F4 F2
Frac : OPTN F6 F4 F3

;) : PRGM F6 F3 F2
;) : PRGM F6 F3 F6
> : PRGM F6 F3 F3
< : PRGM F6 F3 F4


If : PRGM F1 F1
Then : PRGM F1 F2
IfEnd : PRGM F1 F4

And : OPTN F6 F6 F4 F1

" : ALPHA F2

[Dominique Lefebvre]

Bonjour,

Mias c'est quoi ces calculettes !! C'est incompréhensible comme langage! Sur une Casio, tu ne peux pas écrire en pseudo basic comme sur une TI 89 et autres ?

[Jiss]

OMG c'est quoi ce langage de programmation ?

Ça ressemble à rien que je connaisse oO

Au moins sur les Texas Instrument il y a moyen de comprendre avec la syntaxe, mais là .... :/