// 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.
Результат выполнения программы Степень полинома: 2 Коэффициенты полинома по убыванию степеней: 3 -4 5 Значение А: 2.5 Коэффициенты результирующего полинома 3 -11.5 15 -12.5
Сравнение диаграмм занятие сомнительное. Что Excel, что Word - они совместимы друг с другом, из одного можно экспоритровать в другой без проблем. Но все же постараемся выделить плюсы и минусы.
Плюсы: быстрота построения. То есть прямо "на коленке" можно сделать диаграмму не прибегая к сторонней Делаешь доклад и прямо тут же делаешь диаграмму. Минусы: урезанный функцианал. Для построения все же лучше использовать Excel (все таки Word это текстовый процессор и полноценного функционала для построения диаграмм от него не стоит ожидать) Да собственно и все. Больше никакой разницы нет.
// 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