Задача с объектами, матрица,вектор... Опции

[dimon1988]

Помогите решить задачу, а то я что-то зашел в тупик...
"Нахождение суммы,разности,присваивания,произведения векторов и матриц различных типов (целого,вещественного,комплексного). С помощью этих объектов найдите n-ю степень матрицы"
Уже столько форумов перерыл, нигде ничего толкового нету...может вы мне поможите
Буду очень благодарен

[volvo]

Используя мои определения типов - так:

procedure mult(const m1, m2: tmatrix; var r: tmatrix);
var i, j, k: integer;
begin
  r.zero(m1.get_row_count, m2.get_vector(1)^.size);

  for i := 1 to m1.get_row_count do
    for j := 1 to m2.get_vector(1)^.size do begin

      for k := 1 to m2.get_row_count do
        r.get_vector(i)^.put(j, r.get_vector(i)^.get(j)^ +
          m1.get_vector(i)^.get(k)^ * m2.get_vector(k)^.get(j)^);

    end;
end;