Блог учителя Информатики

Решение задачи ExamBegin4


Условие задачи:

На вход подаются три целых числа — коэффициенты A, B, C квадратного уравнения A·x2 + B·x + C = 0 (A не равно 0). Каждое число вводится с новой строки. Найти корни данного уравнения. Корни вычисляются как вещественные числа. Если имеются два различных корня, то вначале выводить меньший, а затем больший (каждый на новой строке). Если корней нет, то вывести текст «NO».


uses PT4Exam;

var
  a, b, c: integer;
  d, x, x1, x2: real;

begin
  Task('ExamBegin4');
  Read(a, b, c);
  d := sqr(b) - 4 * a * c;
  if d < 0 then Write('NO')
  else begin
    if d = 0 then begin
      x := -(b / (2 * a));
      WriteLn(x:4:2);
    end
    else begin
      x1 := -(b + sqrt(d)) / (2 * a);
      x2 := -(b - sqrt(d)) / (2 * a);
      if x1 > x2 then begin
        WriteLn(x2:4:2);
        WriteLn(x1:4:2);
      end
      else begin
        WriteLn(x1:4:2);
        WriteLn(x2:4:2);
      end;
    end;
  end;
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий