'ProgramMode:RUN
ClrText
" Outlil Mathematique"
"        V 2.5"
"     _#E59E_GPL 2026"
"     Levi Bruce"
""DispsLbl 0
ClrText
Menu "Outils | Pg 1","Quadratique",1,"taille superficie",2,"Pythagorique",3,"plus",4,"Outils_+__+_ ",Z,"fin",9
Lbl 9
Stop
Lbl 1
"A"?->A
"B"?->B
"C"?->C
ClrText
" "
" "
" "
" "
(-)(B/(2A))->X
AX^<2>+BX+C->Y
"AX_^<2>__+_BX_+_C"->GraphY1
Locate 1,1,"X"
Locate 5,1,X
Locate 1,2,"Y"
Locate 5,2,YDispsX-1->X
If AX^<2>+BX+C>Y
Then 
Locate 1,3,"MINIMUM en"
Locate 12,3,YDispsY>0=>"Aucune vraie solution"DispsElse 
Locate 1,3,"MAXIMUM en"
Locate 12,3,YDispsIfEnd
Goto 0
Lbl 2
Menu "Formes","Sphere",A,"Cylindre",B,"Rect Pyramide",C,"Cone",D,"retour",X
Lbl X
Goto 0
Lbl A
"R"?->R
((4frac3)piR^3)->V
(4piR^2)->S
"VOLUME"
VDisps"Surface"
SDispsGoto 2
Lbl B
"R"?->R
"H"?->H
(piR^<2>H)->V
(2piR^<2>+2piRH)->S
"VOLUME"
VDisps"Surface"
SDispsGoto 2
Lbl C
"L"?->L
"W"?->W
"H"?->H
((1frac3)LWH)->V
"VOLUME"
VDispsGoto 2
Lbl D
"R"?->R
"H"?->H
"L"?->L
((1frac3)pi*R^<2>*H)->V
If L>0
Then 
(piR^<2>+piRL)->S
Else 
0->S
IfEnd
"VOLUME"
VDisps"Surface"
SDispsGoto 2
Lbl 3
"ENTR [0] FOR inconnu"
"A"?->A
"B"?->B
"C"?->C
If A=0
Then 
Sqrt(C^<2>-B^<2>)->D
IfEnd
If B=0
Then 
Sqrt(C^<2>-A^<2>)->D
IfEnd
If C=0
Then 
Sqrt(A^<2>+B^<2>)->D
IfEnd
DDispsGoto 0
Lbl 4
ClrText
Menu "Outils | Pg 2","Distance",6,"Point Median",7,"retour",0
Lbl 6
ClrText
"X1"?->A
"Y1"?->B
"X2"?->C
"Y2"?->D
Sqrt((C-A)^<2>+(D-B)^<2>)->E
"DIST:"
EDispsClrText
Goto 4
Lbl 7
"X1"?->A
"Y1"?->B
"X2"?->C
"Y2"?->D
(((A+C)frac2))->X
(((B+D)frac2))->Y
"X"
XDisps"Y"
YDispsGoto 4
Lbl Z
Prog "MLIB2"
Goto 0
