Advanced Search

Question: Second degree proc

Question:Second degree proc

Hadchitos 0 Maple 15
May 01 2012
0 
> seconddegree:= proc(a,b,c) 
 if a=0 then if b=0 and c=0 then print ('infinite solutions')  
elif b=0 and c<>0 then print ('impossible')  
elif b<>0 and c<>0 then print (' one solution',x=-(c)/(b))fi;   
delta:=b^(2)-4 *a*c;    
elif if delta=0 then print('double solution',x=-b/(2 a))  
elif delta >0 then print ('exist two  solutions',x1=((-b+sqrt(delta)))/(2 a),x2=((-b-sqrt(delta)))/(2 a))  
elif delta <0 then print ('exist two conjugate imaginary solutions', x1=((-b+I*sqrt(-delta)))/(2 a),x1=((-b-I*sqrt(-delta)))/(2 a))
fi;fi;end proc;  ;

Error, invalid 'elif' clause
Please Wait...