Program KvadratickaRovnice;

{Pred kompilaci souboru zmente priponu souboru na .pas}

uses Crt;

var   a,b,c,x1,x2,x,x1r,x2r,x1i,x2i,d: real;

begin

 writeln; writeln; writeln; writeln;

 writeln('Vypocet korenu kvadraticke rovnice:');

 writeln('a*x^2 + b*x + c = 0');

 writeln('Po za dani hodnoty a nebo b nebo c, stiskni enter!');

 writeln;

 write('Zadej a: '); readln(a); 

 write('Zadej b: '); readln(b); 

 write('Zadej c: '); readln(c);

 d:=b*b-4*a*c;

 if a<>0 then

          begin

          writeln(' Rovnice je kvadraticka:');

          if d>=0 then 

                   begin

                    writeln('Rovnice ma reseni v oboru realnych cisel.'); 

                    writeln;

                    if d>0 then

                            begin

                             x1:=(-b-sqrt(d))/(2*a);  x2:=(-b+sqrt(d))/(2*a);

                             writeln('x1= ',x1:7:3,'    x2= ',x2:7:3);

                            end

                           else 

                             begin 

                              x:=-b/(2*a);

                              writeln('Rovnice ma 1 dvojnasobny koren:');

                              writeln ('x = ',x:7:3);

                             end;

                   end

                  else 

                    begin 

                     writeln('Rovnice ma reseni v oboru komplexnich cisel:');

                     x1r:=(-b)/(2*a);        x2r:=(-b)/(2*a);

                     x1i:=(-sqrt(-d))/(2*a); x2i:=(+sqrt(-d))/(2*a);

                     writeln('x1= ',x1r:7:3,', ',x1i:7:3,'i');

                     writeln('x2= ',x2r:7:3,', ',x2i:7:3,'i');

                    end    

          end   

         else

           begin 

             writeln('Rovnice je linearni:');

             if b<>0 then 

                      begin x:=-c/b;writeln('x = ',x:7:3);end

                     else if c<>0 

                       then writeln('Linearni rovnice nema reseni!')

                       else writeln('Lin.rovnice ma nekonecne mnoho reseni!');

           end; 

 writeln;    

 writeln('Po precteni vysledku stiskni enter!');

 repeat until keypressed; 

end.