// 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
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=ReadInteger('Номер столбца для подсчета суммы:'); Writeln('S=',a.Col(k-1).Sum) end.
На случай, если я неверно понял задание и нужна сумма по КАЖДОЙ колонке:
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.Cols.Select(s->s.Sum).Println end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 7 *** Исходный массив [4,7] *** 13 -14 82 88 -38 55 89 11 74 -35 85 13 27 -80 -88 76 -64 -88 -50 28 -13 90 87 -71 -94 -59 95 -83
Мощность алфавита обозначается буквой N