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.

Answer 2

Конечно, я помогу вам! Вот описание функции RootCount(A, B, C) на языке Паскаль:

pascalCopy code
function RootCount(A, B, C: real): integer;
var
  D: real;
begin
  D := B*B - 4*A*C;
  if D > 0 then
    RootCount := 2 // Два различных корня
  else if D = 0 then
    RootCount := 1 // Один корень
  else
    RootCount := 0; // Нет корней
end;

Эта функция вычисляет дискриминант D по формуле D = B^2 - 4AC и затем определяет количество корней квадратного уравнения, основываясь на значении дискриминанта.

Для каждого из трех квадратных уравнений с данными коэффициентами вы можете вызвать функцию RootCount, передавая ей соответствующие значения A, B и C. Например:

pascalCopy code
var
  Eq1, Eq2, Eq3: integer;
begin
  Eq1 := RootCount(1, -2, 1); // Ax^2 - 2x + 1 = 0
  Eq2 := RootCount(2, 4, 2); // 2x^2 + 4x + 2 = 0
  Eq3 := RootCount(3, -1, 5); // 3x^2 - x + 5 = 0

  writeln('Количество корней уравнения 1: ', Eq1);
  writeln('Количество корней уравнения 2: ', Eq2);
  writeln('Количество корней уравнения 3: ', Eq3);
end.

В этом примере функция RootCount вызывается три раза для разных квадратных уравнений, и результаты выводятся на экран.

Надеюсь, это поможет вам с вашей задачей! Если у вас возникнут еще вопросы, не стесняйтесь задавать. Удачи вам со сдачей!