Описать функцию RootCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения Ax2 + Bx + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта.
нужна решить в ПАСКАЛЕ
нужна решить в ПАСКАЛЕ
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
function RootCount(a, b, c: real): integer;
begin
var D := b * b - 4*a*c;
if D > 0 then
Result := 2
else if D =0 then
Result := 1
else
Result := 0
end;
begin
var (a,b,c) := ReadReal3('Задайте A, B, C:');
Println('Кличество корней равно', RootCount(a, b, c))
end.