Предмет: Информатика,
автор: haly333
составьте программу вычисления корней квадратного уравнения aх^2+вх+с=0 по данным значениям его коэффициентов.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Геометрия,
автор: dyyddyt
Предмет: Українська мова,
автор: zhelizkalizka
Предмет: Другие предметы,
автор: Аноним
Предмет: Геометрия,
автор: polinapampam