Предмет: Информатика,
автор: alesio12
Описать функцию RootCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения Ax2 + Bx + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта.(ПАСКАЛЬ)
помогите, очень прошу завтра надо сдать
Ответы
Автор ответа:
0
===== 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.
Приложения:
![](https://files.topotvet.com/i/224/2248af980c478e87c23600ed8d7ea3c7.jpg)
Похожие вопросы
Предмет: Қазақ тiлi,
автор: NikazZz5667
Предмет: Физика,
автор: Vsessss8153
Предмет: Українська мова,
автор: siwang1051
Предмет: Биология,
автор: dolsowsky
Предмет: Химия,
автор: vseznayka4