Регистрация
roman286
10.12.2020 20:31
Информатика
Есть ответ 👍

Написать программу с подпрограммой процедурой для решения :
на вычисления корней квадратного уравнения вида


где все коэффициенты в первом случае - отрицательные числа, во втором случае только b отрицательное число, в третьем случае только c отрицательное число. (т. е. три вызова подпрограммы с разными исходными данными)

285
335
Посмотреть ответы 2

Ответы на вопрос:

nastagaeva0672
nastagaeva0672
4,5(79 оценок)

procedure roots(a, b, c: real; var x1, x2: real;

    var fail: boolean);

begin

  var d : = b * b - 4 * a * c;

  if d < 0 then

    fail : = true

  else

  begin

    fail : = false;

    d : = sqrt(d);

    x1 : = (-b - d) / (2 * a);

    x2 : = (-b + d) / (2 * a);

  end

end;

begin

  var x1, x2: real;

  var fail: boolean;

  loop 3 do

  begin

    var (a, b, c) : = readreal3('введи a, b, c: ');

    roots(a, b, c, x1, x2, fail);

    if fail then

      println('нет действительных корней')

    else if x1 = x2 then

      println('x =', x1)

    else

      println('x1 =', x1, '   x2 =', x2)

  end

end.

Лейла483929488392
Лейла483929488392
4,4(64 оценок)
Когда задаешь вопрос, внизу есть иконка с картинкой. нажимаешь на неё и выбераешь фото с .

Популярно: Информатика