Предмет: Информатика,
автор: Алина78123
Срочно!!!! Помогите пожалуйста!!! Программы паскаля
составьте программу решения квадратного уравнения ax2 +bx +c=0 Коэффициенты a в с введите с клавиатуры. Выведите на экран значения корней x1 x2 если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение "Нет корней", если уравнение не имеет корней.
Ответы
Автор ответа:
0
var
a, b, c, d, x1, x2: real;
begin
Write('Введите через пробел значения a,b,c: ');
Readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d < 0 then Writeln('Нет действительных корней')
else if d = 0 then Writeln('Один корень ', -b / (2 * a))
else
begin
d := sqrt(d);
x1 := (-b - d) / (2 * a);
x2 := (-b + d) / (2 * a);
Writeln('x1=', x1, ', x2=', x2)
end
end.
Тестовое решение:
Введите через пробел значения a,b,c: 4 3.2 -2
x1=-1.2124038404636, x2=0.412403840463596
![ax^2+bx+c=0 \ D=b^2-4ac \ x= frac{-bmp sqrt{D}}{2a} ax^2+bx+c=0 \ D=b^2-4ac \ x= frac{-bmp sqrt{D}}{2a}](https://tex.z-dn.net/?f=ax%5E2%2Bbx%2Bc%3D0+%5C+D%3Db%5E2-4ac+%5C+x%3D+frac%7B-bmp+sqrt%7BD%7D%7D%7B2a%7D+)
a, b, c, d, x1, x2: real;
begin
Write('Введите через пробел значения a,b,c: ');
Readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d < 0 then Writeln('Нет действительных корней')
else if d = 0 then Writeln('Один корень ', -b / (2 * a))
else
begin
d := sqrt(d);
x1 := (-b - d) / (2 * a);
x2 := (-b + d) / (2 * a);
Writeln('x1=', x1, ', x2=', x2)
end
end.
Тестовое решение:
Введите через пробел значения a,b,c: 4 3.2 -2
x1=-1.2124038404636, x2=0.412403840463596
Автор ответа:
0
Т.е. можно писать программу с вариациями, но sqrt там будет всегда
Автор ответа:
0
хорошо. а правильно sqrt или sqr? или это разные команды?
Похожие вопросы
Предмет: Алгебра,
автор: Yudinnikita
Предмет: Русский язык,
автор: zhyldyzbekkyzyzulfiy
Предмет: Математика,
автор: Kamila12390
Предмет: Математика,
автор: sanizaliznyak
Предмет: Математика,
автор: vipandrt