Описать функцию RootCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения Ax2 + Bx + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта.
нужна решить в ПАСКАЛЕ
Ответы
Ответ дал:
2
===== 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.
Приложения:
![](https://st.uroker.com/files/bde/bdef51b93a229fd4f3f269fe28b381a7.jpg)
Аноним:
Доброго времени суток, извините, если отвлёк. Могли бы глянуть моё задание.....
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад