%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:460
File Name:2 DEGRE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\ClrText
"aX\x^2 + bX + C = 0"
"a = "?\->A
\If A=1998:\Then \GotoF:\IfEnd
"b = "?\->B
"c = "?\->C
(B\x^2-4*A*C)\->D
" "
"DELTA = ":D\Disp\If D<0:\Then \Goto1:\IfEnd
\If D=0:\Then \Goto2:\IfEnd
\If D>0:\Then \Goto3:\IfEnd
\Lbl 1
"PAS DE SOLUTIONS"\Disp\Goto0
\Lbl 2
(-(B\ab/c(2*A))\->Z
"1 SOLUTION :"
"X = ":Z\Disp\Goto0
\Lbl 3
((-B+\sqrtD)\ab/c(2*A))\->X
((-B-\sqrtD)\ab/c(2*A))\->Y
"2 SOLUTIONS :"
"X = ":X\Disp"X' = ":Y\Disp\Goto0
\Lbl F
\ClrText
"x1+x2=-b\slasha"
"x1x2=c\slasha"\Disp\ClrText
"Si somme S connue"
"Si produit P connu"
"x et y solutions de"
"X\x^2 - S*X + P = 0"
"=>systeme symetrique"
"=> x1 = y2"
"=> x2 = y1"\Disp\Goto0

%End