<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>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.
<em>Контрольный пример</em>P(x)=3x²-4x+5, A=2.5
(x-A)P(x)=3x³-11.5x²+15x-12.5
<u>Результат выполнения программы</u>Степень полинома: 2
Коэффициенты полинома по убыванию степеней: 3 -4 5
Значение А: 2.5
Коэффициенты результирующего полинома
3 -11.5 15 -12.5
Ответ:
1
Объяснение:
...............................
Перевод из 10-ой с/с в 2-ую
1)-73₁₀ = -1001001₂
2)-11₁₀ = -1011₂
3)-97₁₀ = 1100001₂
4) 43₀ = 101011₂
5) 83₁₀ = 1010011₂
6) 15₁₀<span> = 1111</span>₂
Var len: Integer;
begin
write('Введите строку: ');
readln(s); // считываем из стандартного потока ввода, например.
len := length(s); запоминаем длину строки
end;
Key Words for FKN + antitotal forum (CS VSU):