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

0 Комментариев

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

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

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

Листинг задания Begin391
2
3
4
5
6
7
8
9
10
11
12
13
14 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.
Поделиться:

begin, pascal, programming, Programming Taskbook, pt4, паскаль, программирование

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

Вы должны быть авторизированы для отправки комментария.