Pascal

program kvRov;

uses crt;

var a,b,c,D,x1,x2,Re,Im,x:real;

  pom:string;

begin

  a:=strToFloat(acko.text);

  b:=strToFloat(becko.text);

  c:=strToFloat(cecko.text);





  if((a=0)and(b=0)) then begin

    seznam.Items.Add('Neni to rovnice.');

    seznam.Items.Add('');

    end;



  if(a=0) and (b<>0) then begin

    x:=-c/b;

    seznam.Items.Add('Linearni rovnice');

    pom:=('x= '+floatToStr(x));

    seznam.items.Add(pom);

    seznam.Items.Add('');

    end;



  if((a<>0)and((b<>0)or(b=0))) then begin

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

    if d<0 then begin

      D:=ABS(D);

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

      Im:=SQRT(D)/(2*a);

      if im<0 then begin

        pom:= ('x1= '+ floatToStr(Re)+'+'+ floatToStr(Im)+'i');

        seznam.items.Add(pom);

        pom:= ('x2= -'+floatToStr(Re)+'+'+ floatToStr(Im)+'i');

        end //im<0;

       else begin

        pom:= ('x1= '+floatToStr(Re)+'-'+ floatToStr(Im)+'i');

         seznam.items.Add(pom);

        pom:= ('x2= -'+floatToStr(Re)+'-'+ floatToStr(Im)+'i');

        seznam.items.Add(pom);

       end

    end

    else begin

      x1:=(-b+SQRT(D))/(2*a);

      x2:=(-b-SQRT(D))/(2*a);

      pom:=('x1= '+floatToStr(x1));

      seznam.items.Add(pom);

      pom:=('x2= '+floatToStr(x2));

      seznam.items.Add('x2= ');

      end;//D>0;



     end; //cely if

     seznam.Items.Add('');

  end;

end.