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

[dimon1988]

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

[dimon1988]

Еще вопросик, я вот написал сам умножение матриц,вроде все работает только почему-то иногда вылетают какие-то левые числа. Никак не пойму в чем дело

procedure matrix.Init;
var i,j:byte;
begin
writeln('Vvedite kolichestvo stolbcov matrici: ');
readln(a.n);
writeln('Vvedite kolichestvo strok matrici: ');
readln(a.m);
for i:=1 to a.m do begin
for j:=1 to a.n do begin
    writeln('Vvedite element [',i,',',j,']');
    readln(a.mas[i,j]);
    end;
    end;
end;

procedure matrix.Umnozh;
label endproc;
var i,j,r:byte;
    c:matrix;
    k,p:integer;
begin
if a.n<>b.m then begin
   writeln('Nelza umnozhit');
   goto endproc;
   end;
c.n:=b.n;
c.m:=a.m;
for j:=1 to a.m do begin
for i:=1 to a.n do begin
    r:=0;
    for k:=1 to c.m do begin
        r:=r+a.mas[i,k]*b.mas[k,j];
        end;
    c.mas[i,j]:=r;
    end;
    end;
result:=c;
endproc:
end;

Сообщение отредактировано: dimon1988 - 6.06.2007 0:16