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

Ответ

Автор - BobbyFresnel

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

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.