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) := (3, 4.5, -1.2);

 var k := RootCount(a, b, c);

 if k = 0 then

   Println('Нет действительных корней')

 else

   Println('Количество действительноых корней равно',k)

end.