Umístnení souboru www.TrSek.com/zadania/rovnica.pas

{ ROVNICA.PAS                                    Copyright (c) Pheo }
{ Kvadratická rovnica.                                              }
{                                                                   }
{ Datum:23.01.2000                             http://www.trsek.com }

program rovnica;
var a,b,c,D,Y,Z,O:real;
begin
     writeln ('Zadaj hodnoty a,b,c');
     readln (a,b,c);
     D:=b*b-4*a*c;
      if (D<0) then writeln ('Rovnica nema riesenie');

     O:=(-b)/2*a;
     if (D>0) then
              begin
                      Y:=(-b+sqrt(D))/2*a;
                      Z:=(-b-sqrt (D))/2*a;
               writeln ('Rovnica ma dva korene',Y:0:2 ,',',Z:0:2);
              end;
     if (D=0) then writeln ('Rovnica ma jeden koren',O:0:2);

     readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com