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.

Answer 2

Функция RootCount(A, B, C) в Паскале будет выглядеть следующим образом:

function RootCount(A, B, C: real): integer;
var
  D: real;
begin
  D := B*B - 4*A*C; // вычисляем дискриминант

if D < 0 then
    Result := 0 // нет корней
  else if D = 0 then
    Result := 1 // один корень
  else
    Result := 2; // два корня
end;

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

Пример использования функции для трех квадратных уравнений:

var
  A1, B1, C1: real; // коэффициенты первого уравнения
  A2, B2, C2: real; // коэффициенты второго уравнения
  A3, B3, C3: real; // коэффициенты третьего уравнения
  Roots1, Roots2, Roots3: integer; // количество корней уравнений

begin
  // инициализация коэффициентов уравнений
  A1 := 1;
  B1 := -3;
  C1 := 2;

A2 := 2;
  B2 := 4;
  C2 := 2;

A3 := 1;
  B3 := 2;
  C3 := 3;

// вычисление количества корней для каждого уравнения
  Roots1 := RootCount(A1, B1, C1);
  Roots2 := RootCount(A2, B2, C2);
  Roots3 := RootCount(A3, B3, C3);

// вывод результатов
  writeln('Уравнение 1: ', Roots1, ' корня(ей)');
  writeln('Уравнение 2: ', Roots2, ' корня(ей)');
  writeln('Уравнение 3: ', Roots3, ' корня(ей)');
end.

В данном примере решаются три квадратных уравнения. Результат выполнения программы будет выводить количество корней для каждого из уравнений.