Ответы на вопрос:
// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('степень полинома: '); var p: =readarrreal('коэффициенты полинома по убыванию степеней: ',n+1); var a: =readreal('значение а: '); var q: =new real[n+2]; q[0]: =p[0]; q[n+1]: =-p[n]*a; for var i: =1 to n do q[i]: =p[i]-a*p[i-1]; writeln('коэффициенты результирующего полинома'); q.println end. контрольный пример p(x)=3x²-4x+5, a=2.5 (x-a)p(x)=3x³-11.5x²+15x-12.5 результат выполнения программы степень полинома: 2 коэффициенты полинома по убыванию степеней: 3 -4 5 значение а: 2.5 коэффициенты результирующего полинома 3 -11.5 15 -12.5
Популярно: Информатика
-
Alieta22.10.2022 13:45
-
krisgyseva06.04.2021 09:51
-
chovganirina04.05.2023 09:43
-
Vladko1337lol02.06.2022 03:35
-
silvi8213.07.2021 07:30
-
limpompo211203.04.2020 19:20
-
вор918.11.2021 09:04
-
Vika1711200301.10.2020 21:23
-
Vampir18105.06.2021 17:15
-
София3568643118.01.2021 04:49