Clear["Global`*"];

(* El funcionamiento del if es: IF(Condición, verdadero, falso) *)
(* En cualquiera de las opciones, se ejecuta y acaba *)
(* La separación entre la opción verdadero y falso es la coma *)
(* El final del If lo da el corchete ] *)
(* Para escribir 'distinto' se hace con los símbolos ! e = y lo traduce a != *)

Ecuacion2Grado[a_, b_,c_]:=
	      Module[{Discrim=0, Denom=0,Raiz=0,Znum1=0,Znum2=0,Sol1=0,Sol2=0,Racom=0, Racom1=0,Racom2=0},
                         If[a==0,
                             If[b!=0,Sol1=((-c)/b);
                                   Print["a=",a,", ","b=",b,", ","c=",c,", ", "Sol1=",Sol1],           (* En caso contrario. Lo marca la coma ] *)
                                   Print["a=",a,", ","b=",b,", ","c=",c,", Solución trivial"];
                                 ],
                                Discrim=(b^2)-4a c;
                                Denom=2 a;
                              If[Discrim<0,            
                                  Print["El discriminante es negativo"];
                                  Print["Las soluciones son complejas"];
                                  Racom=(Sqrt[Abs[Discrim]]);
                                  Racom1=(-b+Racom)/Denom;
                                  Racom2=(-b-Racom)/Denom;
                                  Print["a=",a,", ","b=",b,", ","c=",c,", ", "Racom1=",Racom1,", ", "Racom2=", Racom2],
                                  Print["El discriminante es positivo"];
                                  Print["Las soluciones son reales"];
                                  Raiz=(Sqrt[Discrim]);
                                  Znum1=-b+Raiz;
                                  Znum2=-b-Raiz;
                                  Sol1=Znum1/Denom;
                                  Sol2=Znum2/Denom;
                                  Print["a=",a,", ","b=",b,", ","c=",c,", ", "Sol1=",Sol1,", ", "Sol2=", Sol2]
                                 ]
                            ]

                            ]

Ecuacion2Grado[0, 2,3]

Ecuacion2Grado[0, 0,3]

Ecuacion2Grado[1, -1,-1]

Ecuacion2Grado[1, 2,4]

Ecuacion2Grado[1, 1,1]