Дано квадратное уравнение вида A*x^2 B*x C=0 Коэффициенты заданы 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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
