Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 5510
Réponses : 8
Type : discussion
Etat : réponses autorisées

Les Produits (ou identités) remarquables

Dark TI le 26/03/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 ?
webmaster le 26/03/2006 à 19:51
Pas mal du tout, mais je doute que ca soit ton tout premier programme. Tu as bien fait un programme qui affiche "COUCOU", non ?

@+ et Bravo. Le Webmaster beer.gif
Dark TI le 26/03/2006 à 21:47
oui et bien sur comme tout le monde disons que c'est mon 1er prog qui sert a quelque chose...
webmaster le 26/03/2006 à 21:55
bigmouth.gif minied.gif godgrace.gif
Ratuss le 27/03/2006 à 17:17
Pas mal! en tout cas, (surtout pour un 1er prg bigmouth.gif )

Ps: a mon avis tu dois avoir moyen de faire plus court clown.gif
webmaster le 27/03/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


@+ Le Webmaster beer.gif
Jcotnys le 27/03/2006 à 19:12
les identités remarquables??? ca date de la 3ème ! ! !
laugh.gif laugh.gif laugh.gif laugh.gif
mais c bien com program au cas où t'as oublié les formules ! minied.gif
webmaster le 27/03/2006 à 19:46
Ne soit pas méchant avec les autres membres ! laugh.gif
Sangohan38 le 27/03/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...).

En plus, si c'est son premier prog, je dit bravo!