Матрица, Многочлен матрицы Опции

[NoRToN]

Дано: порядок квадратной матрицы A, ее элементы и
коэффициенты многочлена.
Задание: вычислить заданный многочлен от матрицы A.

[volvo]

Основной блок исправляем:

Код

begin
For i := 1 To size Do
  For j := 1 To size Do
    a[i, j] := Random(20);

matrixPrint(a);
for i := 1 to n do
  begin
    write('p[', i, '] = '); readln(p[i])
  end;

For i := 1 To n Do
  Begin
    matrixPower(T, a, n - i);
    matrixScale(T, T, p[i]);
    matrixAdd(Res, Res, T)
  End;

matrixPrint(Res)
end.

а описание:

Код

Const
n = 3;
p: Array[1 .. n] Of Real =
  (1.0, -2.0, 3.0);

меняем на:

Код

Const
n = 3;
Var
p: Array[1 .. n] Of Real;

И все...