Un petit programme que j'ai fait (et qui ne mange pas de pain pour utiliser une expression un peu vieillote) cependant il a été fortement retouché par Sango (il y a longtemps de cela). Si vous êtes en première ce sera pas mal pour vous. Dans les 300 octets (mais il est court vous inquiétez pas).
sqrt( = racine carré
-> = sto (au dessus de la touche 'ON')
² = au carré (c'est pas très clair)
sqrt( = racine carré
-> = sto (au dessus de la touche 'ON')
² = au carré (c'est pas très clair)
- LE PROGRAMME:
:Disp "AX²+BX+C
:Prompt A,B,C
:B²-4AC->S
:Pause
:Lbl M
:EffEcr
:Menu("CANONIQUE","A(X-a)²+b",1,"sqrt(CANONIQUE)",2
:Lbl 1
:Disp "A(X-a)²+b
:Disp "D=",Rép>Frac
:Disp "a=",-B/(2A)>Frac
:Disp "b=",-D/(4A)>Frac
:Pause
:Goto M
:Lbl 2
:If D=0
:Disp "1 SOLUT° CAR D=0","A(X-a)²","a=",-B/(2A)>Frac
:If D<0
:Disp "0 SOLUT° CAR D<0
:If D>0
:Disp "2 SOLUT° CAR D>0","A(X-X1)(X-X2)","X1=",(-B-sqrt(D))/(2A)>Frac,"X2=",(-B+sqrt(D))/(2A)>Frac
:Pause
:Goto M