Autorisation : Membre
Nb de messages : 58
Inscrit le : Dim 26 Mar 2006, 21:57
Posté le : Dim 26 Mar 2006, 18:55
Tout le monde (je pense) a eu un probleme avec les identites remarquables.
Voila pourquoi j'ai fait ce programme (le premier...)
Code
ClrHome
Output(4,3,"LES PRODUITS3
Output(5,3,"REMARQUABLES"
Pause
ClrHome
Lbl Y
Menu("PAR MOI(BIEN SUR)","DEVELOPPEMENTS",D,"FACTORISATIONS",F,"QUITTER",Z
Lbl D
Menu("DEVELOPPEMENTS","(A-B)(A+B)",M,"(A+B)²",N,"(A-B)²",O,"RETOUR",X
Lbl F
Menu("FACTORISATIONS","A²-B²",P,"A²+2AB+B²",R,"A²-2AB+B²",Q,"RETOUR",X
Lbl X
Goto Y
Lbl M
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
(A-B)(A+B)->E
Disp "(A-B)(A+B)="
Disp E
Pause
ClrHome
Goto Y
Lbl N
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
(A+B)²->E
Disp (A+B)²="
Disp E
Pause
ClrHome
Goto Y
Lbl O
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
(A-B)²->E
Disp "(A-B)²="
Disp E
Pause
ClrHome
Goto Y
Lbl P
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
A²-B²->E
Disp "A²-B²="
Disp E
Pause
ClrHome
Goto Y
Lbl Q
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
A²+2*A*B+B²->E
Disp "A²+2AB+B²="
Disp E
Pause
ClrHome
Goto Y
Lbl R
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
A²-2*A*B+B²->E
Disp "A²-2AB+B²="
Disp E
Pause
ClrHome
Goto Y
Lbl Z
Stop
J'espere que ca vous aidera
Qu'en pensez vous, pour un 1er prog ?
---------------------- Je ne possède point de cable pour relier TI 82 STATS et Ordinateur.
Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Lun 27 Mar 2006, 18:06
Voilà ce que je propose :
Code
ClrHome
Output(4,3,"LES PRODUITS"
Output(5,3,"REMARQUABLES"
Pause
ClrHome
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
ClrHome
Lbl Y
Menu("PAR MOI(BIEN SUR)","DEVELOPPEMENTS",D,"FACTORISATIONS",F,"QUITTER",Z
Lbl D
Menu("DEVELOPPEMENTS","(A-B)(A+B)",M,"(A+B)²",N,"(A-B)²",Q,"RETOUR",X
Lbl F
Menu("FACTORISATIONS","A²-B²",P,"A²+2AB+B²",R,"A²-2AB+B²",Q,"RETOUR",X
Lbl X
Goto Y
Lbl M
(A-B)(A+B)->E
Disp "(A-B)(A+B)="
Goto A
Lbl N
(A+B)²->E
Disp (A+B)²="
Goto A
Lbl O
(A-B)²->E
Disp "(A-B)²="
Goto A
Lbl P
A²-B²->E
Disp "A²-B²="
Goto A
Lbl Q
A²+2*A*B+B²->E
Disp "A²+2AB+B²="
Goto A
Lbl R
A²-2*A*B+B²->E
Disp "A²-2AB+B²="
Lbl A
Disp E
Pause
ClrHome
Goto Y
Lbl Z
Stop
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 27 Mar 2006, 21:20
Même si ça date de la 3eme c'est utile. En plus, pour commencer à programmer, il vaut peut être mieu utilisé des forules simples (genre convertisseur franc=Euros, identités remarquable, convertisseur Celciu^=> Fahreneight...).