Question

Описать функцию RootCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения Ax2 + Bx + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта.
нужна решить в ПАСКАЛЕ

Answer 1

===== 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.