// xcas version=0.9.0 fontsize=14 font=0 currentlevel=1
// fltk 7Fl_Tile 11 56 874 302 14 0
[
// fltk N4xcas7EditeurE 11 56 874 244 14 0
334 ,
second_degre():={
local a,b,c,D,x1,x2;
input(a,b,c);
D:=b^2-4*a*c;
si D<0 alors
  print("Pas de solution")
fsi
si D=0 alors
  x1:=-b/(2*a);
  print("Une seule solution : ");
  retourne(x1);
fsi
si D>0 alors
  x1:= (-b-sqrt(D))/(2*a);
  x2:= (-b+sqrt(D))/(2*a);
  print("Deux solutions : ");
  retourne(x1,x2);
  retourne(x2);
fsi
}
:;,
// fltk N4xcas10Log_OutputE 11 300 874 38 14 0
// Parsing second_degre£// Success compiling second_degre£
,
// fltk N4xcas8EquationE 11 338 874 20 14 0 1
"Done"
]
,
// fltk 7Fl_Tile 11 360 874 100 14 0
[
// fltk N4xcas19Multiline_Input_tabE 11 360 874 22 14 0
second_degre()
,
// fltk N4xcas10Log_OutputE 11 382 874 38 14 0
Deux solutions : £Evaluation time: 4.431£
,
// fltk N4xcas8EquationE 11 420 874 40 14 0 1
(-5-sqrt(17))/2,(-5+sqrt(17))/2
]
,
// fltk 7Fl_Tile 11 462 874 25 14 0
[
// fltk N4xcas19Multiline_Input_tabE 11 462 874 24 14 0

,
// fltk N4xcas10Log_OutputE 11 486 874 1 14 0

]
// context 1437 giac archive
7 0 8 8 0 0 'cas_setup' 7 0 11 0 0 0
0 0 0
0 0 0
0 1 0
0 0 0
7 0 2 1 e_Inpu
1 Á462 87
0 12 0
7 0 4 0 8 0
0 50 0
0 0 0
0 25 0
0 0 0
0 0 0
0 0 0
8 0 0 'xyztrange' 7 0 16 1 Þ<U<
1 ß<    
1 ¿c Xcas
1  f remi
1 ¿pdf  -
1 ßÃ©e Sa
1 ¿- Bord
1 gistrÃ
1 ¿quemen
1 Á_#¾¡Ë
1        
1 ¿      
0 1 0
1 ¿      
1        
0 3 0
7 0 0 7 0 0 8 0 15 7 0 2 0 1 0
6 2 ok 8 0 15 7 0 2 8 0 0 program 7 0 3 7 1 0 7 0 0 8 0 42 7 0 2 7 1 6 6 1 a 6 1 b 6 1 c 6 1 D 6 2 x1 6 2 x2 7 0 5 8 0 0 'saisir' 7 1 3 6 1 a 6 1 b 6 1 c 8 0 15 7 0 2 8 0 1 7 0 2 8 0 7 7 0 2 6 1 b 0 2 0
8 0 2 8 0 4 7 1 2 8 0 4 7 1 2 0 4 0
6 1 a 6 1 c 6 1 D 8 0 -1 si 7 0 3 8 0 35 7 1 2 6 1 D 0 0 0
8 0 0 'bloc' 7 0 1 8 0 0 print 12 15 |Pas de solution 6 5 undef 8 0 -1 si 7 0 3 8 0 0 '==' 7 0 2 6 1 D 0 0 0
8 0 0 'bloc' 7 0 3 8 0 15 7 0 2 8 0 5 7 0 2 8 0 2 6 1 b 8 0 4 7 1 2 0 2 0
6 1 a 6 2 x1 8 0 0 print 12 21 |Une seule solution :  8 0 43 6 2 x1 6 5 undef 8 0 -1 si 7 0 3 8 0 37 7 1 2 6 1 D 0 0 0
8 0 0 'bloc' 7 0 5 8 0 15 7 0 2 8 0 5 7 0 2 8 0 1 7 0 2 8 0 2 6 1 b 8 0 2 8 0 0 'sqrt' 6 1 D 8 0 4 7 1 2 0 2 0
6 1 a 6 2 x1 8 0 15 7 0 2 8 0 5 7 0 2 8 0 1 7 0 2 8 0 2 6 1 b 8 0 0 'sqrt' 6 1 D 8 0 4 7 1 2 0 2 0
6 1 a 6 2 x2 8 0 0 print 12 17 |Deux solutions :  8 0 43 7 1 2 6 2 x1 6 2 x2 8 0 43 6 2 x2 6 5 undef 6 12 second_degre 8 0 15 7 0 2 8 0 4 7 0 2 8 0 1 7 0 2 0 -5 0
8 0 2 8 0 7 7 0 2 0 17 0
10 0 1 0
0 2 0
8 0 6 0 2 0
6 2 x1 8 0 0 'xcas_mode' 0 0 0