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

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


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

Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (A > 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней.
Корни квадратного уравнения находятся по формуле x1, 2 = (−B ± (D)1/2)/(2·A), где D — дискриминант, равный B2 − 4·A·C.


uses
  PT4;

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

begin
  Task('Begin39');
  read(a, b, c);
  d := sqr(b) - 4 * a * c;
  x1 := (-b - sqrt(d)) / (2 * a);
  x2 := (-b + sqrt(d)) / (2 * a);
  write(x1, x2);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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