Предмет: Информатика,
автор: rip15444
Pascal //Вводится `5` целых чисел коэффициенты уравнения(фото)
Найти все целые различные корни этого уравнения.
Приложения:
Ответы
Автор ответа:
1
Пример решения уравнения
## uses NumLibABC;
var a := ReadArrReal('Введите коэффициенты в порядке возрастания степеней:', 5);
a := a + |1.0|;
var P := new Polynom(a);
var oL := new PolRt(P);
var r := oL.Value;
var L := new List<integer>;
foreach var d in r do
if d.Imaginary = 0 then
begin
var x := Round(d.Real, 6);
if Frac(x) = 0 then
L.Add(Trunc(x))
end;
var b := L.Distinct.ToArray;
if b.Length > 0 then
b.Print
else
Print('Не найдено целых корней')
Приложения:
rip15444:
Понял, спасибо
Похожие вопросы
Предмет: Русский язык,
автор: nazima2
Предмет: Английский язык,
автор: kim39
Предмет: Қазақ тiлi,
автор: bahty201184
Предмет: Физика,
автор: Дягилева1