Помогите! (задача с матрицей) Опции

[Zolushka]

Помогите кто-нибудь решить задачку по программированию!!!!
Даны квадратная матрица А порядка m, натуральное число n, действительные числа pn, pn-1,..., p0. Получить матрицу pnAn + pn-1An-1 + ... + p1A + p0E, где E – единичная матрица порядка m. (n это индексы у р, а у А это степень, просто не знаю как тут это написать)
Если я не принесу сделанную эту задачку мне можно вешаться, сделайте плииииииииииииз!!!

ЗЫ Мне там нужно чтоб использовались процедуры и функции. (Но вообще то решите хоть как-то!!!!!)

Сообщение отредактировано: Zolushka - 31.03.2006 22:20

[Zolushka]

Ааааааааааа, совсем запуталась. Написала какой-то бред. Помогите мне исправить пожалуйста!!!

Код

Program L1;
const
   N = 5;
   M = 4;
Type
   TMatrix= array [1..M, 1..M] of real;

Procedure MatrixPower(var h:TMatrix; a:TMatrix);
Var
   i,j,k:integer;
Begin
   for i:=1 to m do
    for j:=1 to m do begin
      a[i,j]:=0;
      h[i,j]:=a[i,j]+ a[i,k]*a[k,j];
    end;
end;

Procedure MatrixScale(var h:TMatrix; a:TMatrix; p:real);
var
   i,j,k:integer;
Begin
   For k:=1 to n do begin
    writeln ('Введите действительное число р,k);
    read (p);
   end;
   for i:=1 to m do
    for j:=1 to m do
     h[i,j]:=p* a[i,j];
end;

Procedure MatrixAdd (Var h:TMatrix; a,b:TMatrix);
var
   i,j:integer;
Begin
   for i:=1 to m do
    for j:=1 to m do
    h[i,j]:=a[i,j]+b[i,j];
end;

Procedure MatrixPrint(a:TMatrix);
var
   i,j:integer;
Begin
   for i:=1 to m do Begin
    for j:=1 to m do
      write(a[i,j]:9:2);
    writeln;
   end;
end;


var
   a: TMatrix;
   T,Res: TMatrix;
   i, j: Integer;
BEGIN
   for i:=1 to m do
     for j:=1 to m do
       a[i,j]:=random(20);
   MatrixPrint(a);

   For i:=1 to n do begin
     MatrixPower(T, a);
     MatrixScale(T, T,n);
     MatrixAdd(Res, Res, T);
   end;
   MatrixPrint(Res);
End.