составьте программу вычисления корней квадратного уравнения ...
составьте программу вычисления корней квадратного уравнения aх^2+вх+с=0 по данным значениям его коэффициентов.
Есть ответ
17.12.2022
230
Ответ
var a, b, c, d, x1, x2 : real; \ задание переменных действительных чисел.begin write('a = '); readln(a); \запрос у пользователя первого коэффициентаwrite('b = '); readln(b); \запрос у пользователя второго коэффициентаwrite('c = '); readln(c); \запрос у пользователя третьего коэффициентаd := b*b - 4*a*c; \ расчет дискриминантаif d=0 then \ветка для решения при нулевом дискриминантеbegin x1 := b / (2 * a) writeln (x1:3:3); end \ окончание при нулевом дискриминантеelse if d>0 then \ ветка для решения при положительном дискриминантеbegin x1 := (- b + sqrt(d) / (2 * a); \ первый кореньx2 := (- b - sqrt(d) / (2 * a); \ второй кореньwriteln (x1:3:3, ' ', x2:3:3); \ вывод ответаend else \ ветка решения для отрицательного дискриминантаwriteln ('Нет действительных корней'); end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022