SaveText.Ru

Без имени
  1. program Vasil;
  2. var
  3.   a, b, c, x1, x2, discriminant : real;
  4. begin
  5.   {ввыод данных}
  6.   write('a = ');
  7.   readln(a);
  8.   write('b = ');
  9.   readln(b);
  10.   write('c = ');
  11.   readln(c);
  12.  
  13.   {дискриминант}
  14.   discriminant := sqr(b) - 4 * a * c;  
  15.  
  16.   if discriminant < 0 then
  17.     writeln('Квадратное уравнение не имеет корней')
  18.   else
  19.     begin
  20.       if discriminant = 0 then
  21.         begin
  22.           {квадратное уравнение имеет два одинаковых корня}
  23.           x1 := -b / (2 * a);
  24.           x2 := x1;
  25.         end
  26.        else
  27.          begin
  28.            {уравнение имеет два разных корня}
  29.            x1 := (-b + sqrt(discriminant)) / (2 * a);
  30.            x2 := (-b - sqrt(discriminant)) / (2 * a);
  31.          end;
  32.        
  33.        {вывод корней уравнения}
  34.        writeln('x1 = ', x1:8:3);
  35.        writeln('x2 = ', x2:8:3);
  36.      end;
  37.   readln;
  38. end.

Share with your friends:

Print