Дано квадратное уравнение вида A*x^2+B*x+C=0
10-11 класс
|
Коэффициенты заданы A= 4.00 B= -52.00 C= 144.00
A>0, D>0. Формулы для помощи: d=B^2 - 4*a*c; x1,2=(-b +- Sqrt(d))/(2*a)
Вывести вначале меньший корень, затем больший.
Нужно написать программу в Pascal'e.
Как-то так крч=)
program z1;
var a,b,c,d,x1,x2:real;
begin
a:=4.00;
b:=-52.00;
c:=144.00;
d:=b*b - 4*a*c;
x1:=(-b+ Sqrt(d))/(2*a);
x2:=(-b- Sqrt(d))/(2*a);
if x1>x2 then begin
writeln('Меньший корень',x2,'Больший корень',x1)
end else
writeln('Меньший корень ',x1,'Больший корень ',x2);
end.
Другие вопросы из категории
изображением при печати?
1) Качество печати изображения будет высоким, размер рисунка на бумаге не изменится.
2) Качество печати изображения будет высоким, размер рисунка на бумаге изменится.
3) Качество печати будет значительно хуже изображения, размер рисунка на бумаге не изменится.
4) Качество печати будет значительно хуже изображения, размер рисунка на бумаге изменится.
Читайте также
Программирование
Решить квадратное уравнения вида ax^2 + bx + c = 0
К решению математическая модель:
Дано:
Нужно:
Связь:
При:
из коэффициентов может равняться нулю(в том числе и все одновременно).
Распишите именно как сдавать,на чистовик,не что нужно делать,а именно как в задании.
порядка n(n=5).
Если в данной матрице a нет отрицательных элементов,
то транспонировать её, иначе выдать сообщение.
1. Разработать схему алгоритма программы
2. Составить программу на языке Паскаль по разработанному алгоритму
Задание 3.
Дана квадратная матрица размерностью N. Подсчитать количество отрицательных элементов по строкам. ВВЕДИТЕ РАЗМЕРНОСТЬ МАТРИЦЫ N:-
->5
Через пробел введите N*N элементов массива:
--> 10 3 2 6 8
3 -2 7 -1 4
4 5 -10 9 -12
5 0 2 4 5
6 3 -3 -5 2
Количество: 0,2,2,0,2