Написать программу на языке Паскаль для нахождения корней квадратного уравнения по его коэффициентам с помощью дискриминанта. В случае отрицательного дискриминанта на экран должно выводиться сообщение, что уравнение не имеет корней. В случаях, когда дискриминант нулевой или положительный, на экран должны выводиться соответствующие сообщения о найденных корнях. Программу сохраните в файле под именем «Квадратное уравнение».
очень срочно прошу
очень срочно прошу
More Questions From This User See All
Answers & Comments
Поскольку задание тривиальное и находится по любому запросу в интернете, позволю себе использовать различные навороты PascalABC.NET:
##
var a:= ReadArrReal(3);
var d:= a[1]**2 - 4*a[0]*a[2];
print(if (d < 0) then 'No Roots!' else 'Answer: ' + if (d = 0) then ''+(-a[1]/(2*a[0])) else ((-a[1]+sqrt(d))/(2*a[0]))+' '+((-a[1]-sqrt(d))/(2*a[0])))
Обратите внимание на необычный синтаксис.