Napíšte program, pomocou ktorého vypočítate korene kvadratickej rovnice.
Upravte program pre ľubovoľný počet opakovaní.

1. riesenie

program kvadraticka;
     uses crt;
     var a,b,c,D,x1,x2,IM,R,x:real;
         ch:char;
     begin
     repeat
     clrscr;
     write ('zadaj konstanty a, b, c ');
     readln (a,b,c);
     writeln;
     if a=0 then
        if b=0 then
           if c=0 then writeln ('rovnica ma nekonecne vela rieseni')
                      else writeln ('rovnica nema riesenie')
                             else begin
                       x:=-c/b;
                       writeln ('rovnica ma koren x=' ,x:5:2,',nie je to vsak kvadraticka rovnica');
                       end
           else begin
           D:=(b*b)-4*a*c;
           if D=0 then begin
           x1:=-b/2*a;
           writeln('korene su realne nasobne: ');
           writeln;
           writeln ('x1=x2= ',x1:6:2);
           end
           else if D>0 then begin
           writeln('korene su realne rozne: ');
           writeln;
           x1:=(-b+sqrt(D))/(2*a);
           x2:=(-b-sqrt(D))/(2*a);
           writeln ('x1= ',x1:6:2);
           writeln ('x2= ',x1:6:2)
           end
            else
             begin
             writeln ('korene su komplexne');
             writeln;
             R:=-b/(2*a);
             IM:=sqrt(Abs(D))/(2*a);
             writeln ('x1=',R:4:1,'+',IM:4:1,'i');
             writeln ('x2=',R:4:1,'-',IM:4:1,'i');
             end;
             end;
             gotoxy (10,20);
             writeln ('ak chces skoncit stlac K alebo k inak stlac lub klaves');
             ch:=readkey;
              until (ch='K') or (ch='k');
              end.




2. riesenie

program Kvadraticka_rovnica;
var a,b,c,D: Integer;
begin
  Writeln('ax^2 + bx + c = 0');
  Write('Zadaj a, b, c: ');
  Readln(a, b, c);

  D:=Sqr(b)-4*a*c;
  if D < 0 then Write('v R nema riesenie');
  if D = 0 then Write('x = ',(-b)/(2*a):0);
  if D > 0 then begin
       Writeln('x1 = ',(-b+Sqrt(D))/(2*a):0:5);
       Writeln('x2 = ',(-b-Sqrt(D))/(2*a):0:5);
  end;
  Readln
end.






Zostav program na zjednodusenu verziu vypoctu realnych korenov

  kvadratickej rovnice

                          2

                        ax + bx + c = 0

  za predpokladu, ze a<>0, b<>0, c<>0. Hodnoty a,b,c su vstupne.}



Uses Crt;

Var a,b,c,diskr,odm,x1,x2:Real;

    znak                 :char;

Begin

    Clrscr;

        WriteLn('Zadaj koeficienty a,b,c ');

	Read(a,b,c);

    Writeln('Rovnica s koeficientmi ',a:4:2,' ',b:4:2,' ',c:4:2);

    diskr:=sqr(b)-4*a*c;

    If diskr<>0 then Write('Nema realne korene ')

                else

    If diskr=0  then Write('Ma dvojnasovny koren ',-b/(2*a):4:2)

                else

                   Begin

                       odm:=sqrt(diskr);

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

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

                       Write('Ma korene: ',x1:4:2,', ',x2:4:2);

                   End;

    znak:=ReadKey;

End.