Задать вопрос
11 ноября, 13:16

Написать програму решения уравнения ах ^3 + вх = 0 для произвольных а, в

+2
Ответы (2)
  1. 11 ноября, 14:30
    0
    var

    a, b, x2, x3 : real;

    begin

    writeln ('Введите коэффициент a') ;

    readln (a) ;

    writeln ('Введите коэффициен b') ;

    readln (b) ;

    if b = 0 then

    begin

    if a = 0 then writeln ('X - любое число')

    else writeln ('Корни ур-я равны: 0')

    end

    else

    if (a = 0) or (- b / a < = 0) then writeln ('Корни ур-я равны: 0')

    else

    begin

    x2 : = sqrt (-b / a) ;

    x3 : = - sqrt (-b / a) ;

    writeln ('Корни ур-я равны 0, ', x2,' ', x3) ;

    end;

    readln;

    end.
  2. 11 ноября, 16:55
    0
    (Pascal.)

    program ...;

    var a, b, x1, x2, x3:real;

    begin

    writeln ('Введите коэффициент a') ;

    readln (a) ;

    writeln ('Введите коэффициен b') ;

    readln (b) ;

    x1:=0;

    if (b>0) and (a>0) then writeln ('Корни ур-я равны ', x1)

    else

    x2:=sqrt (-b/a) ;

    x3:=-sqrt (-b/a) ;

    writeln ('Корни ур-я равны ', x1, x2, x3) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать програму решения уравнения ах ^3 + вх = 0 для произвольных а, в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы