Сделать программу на DELPHI
Описать функцию RootsCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения A∙x2 + B∙x + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: D = B2 - 4∙A∙С.

Предыдущий
вопрос Следующий
вопрос

Вот пример программы на DELPHI, которая реализует функцию RootsCount и находит количество корней для трех заданных квадратных уравнений:

program RootsCountProgram;
{$APPTYPE CONSOLE}
function RootsCount(A, B, C: Double): Integer;
var
D: Double;
begin
D := B * B - 4 * A * C;
if D > 0 then
Result := 2
else if D = 0 then
Result := 1
else
Result := 0;
end;
var
A1, B1, C1: Double;
A2, B2, C2: Double;
A3, B3, C3: Double;
begin
A1 := 1;
B1 := -5;
C1 := 6;
A2 := 1;
B2 := 0;
C2 := -4;
A3 := 1;
B3 := 2;
C3 := 1;
Writeln('Number of roots for equation 1: ', RootsCount(A1, B1, C1));
Writeln('Number of roots for equation 2: ', RootsCount(A2, B2, C2));
Writeln('Number of roots for equation 3: ', RootsCount(A3, B3, C3));
Readln;
end.

В данном примере функция RootsCount определяет количество корней квадратного уравнения по значению дискриминанта. Далее, для трех заданных уравнений вычисляется количество корней с помощью этой функции и выводится на экран.

Программа ожидает ввод данных с клавиатуры для завершения работы (Readln).