произведение матриц

[Lampard]

народ,делаю произведение матриц,но он выдает ошибку на детерминанте,подскажите.Вот мой код:

uses crt;
const n=3;
type
        vector=array[1..n] of real;
        matrix=array[1..n] of vector;
var
        i,j,k:integer;
        a,b,c:matrix;
procedure zapmatr(var x:matrix);
        begin
        for i:=1 to n do
                for j:=1 to n do
                read(x[i,j]);
        end;
procedure determinant(var d,t,y,u:integer);
          begin
               for i:=1 to n do
                  for j:=1 to n do
                   begin
                        t:=sqr(-1)*a[1,1]*(a[2,2]*a[3,3]-a[3,2]*a[2,3]);
                        y:=(-1)*a[1,2]*(a[2,1])*a[3,3]-a[3,1]*a[2,3]);
                        u:=1*(a[2,1]*a[3,2]-a[3,1]*a[2,2]);
                        d:=a+b+c;
                        writeln('Determinant= ',d);
                   readln;
                   end.
procedure zapmatr1(var x:matrix);
        begin
                clrscr;
                for i:=1 to n do
                    for j:=1 to n  do
                    begin
                        read(x[i,j]);
                        x[i,j]:=x[i,j]/d;
                    end;
        end;
procedure vivmatr(var x:matrix);
        begin
        for i:=1 to n do
        begin
        for j:=1 to n do
                        write(x[i,j]:6:1);
        writeln;
      end;
  end;
begin
     clrscr;
     zapmatr(a);
     determinant;
     zapmatr1(b);
     for i:=1 to n do
        for j:=1 to n do
        begin
                for k:=1 to n do
                c[i,j]:=c[i,j]+a[i,k]*b[k,j];
        end;
  clrscr;
  writeln('          Matrica 1');
  vivmatr(a);
  writeln('          Matrica 2');
  vivmatr(b);
  writeln('          Rezul`tat');
  vivmatr(c);
  readkey;
end.

[Sazary]

Вы объявляете процедуру:

procedure determinant(var d,t,y,u:integer);

а вызываете ее без параметров:

determinant;

Так и объявите переменные не как формальные параметры:

procedure determinant;
var d,t,y,u:real;
begin

Вот в этом куске:

  t:=sqr(-1)*a[1,1]*(a[2,2]*a[3,3]-a[3,2]*a[2,3]);
 y:=(-1)*a[1,2]*(a[2,1])*a[3,3]-a[3,1]*a[2,3]);
 u:=1*(a[2,1]*a[3,2]-a[3,1]*a[2,2]);

Вы присваиваете значение вещественного типа целочисленной переменной.

А здесь:

 d:=a+b+c;

вообще складываете 3 матрицы и пытаетесь присвоить то, что получилось переменной типа integer.

[puporev]

sqr(-1)*

Это вообще круто!

делаю произведение матриц,но он выдает ошибку на детерминанте

А вообще зачем определитель при умножении матриц?

[Lampard]

Сообщение от puporev

Это вообще круто!

А вообще зачем определитель при умножении матриц?

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