Вопросик по 4-х значным матрицам

[Mr.Qwerty]

Добрый вечер уважаемые форумчане! У меня возникла такая проблемка, преподаватель в институте задал задание с 4-х значной матрицей, и заданий с ними дал много, соб-но хочу написать программу для того чтобы решала эти матрицы, не могли бы помочь с алгоритмом действий, ну или даже если возможно с кодом? Буду очень благодарен за помощь!)

[ОДИНОЧЕСТВО В СЕТИ]

что есть

4-х значная матрица

?

[Mr.Qwerty]

4 столбца, 4 строки)
вот одно из заданий:
|1 -2 1 3|
|2 1 -2 1|
|3 0 2 1|
|-1 1 4 1|

[Daramant]

задание с 4-х значной матрицей

Это называется: матрица размерности 4 на 4 или квадратная матрица размерности 4.
Что решать то?
Перемножение матриц, умножения матрицы на вектор или число, транспонирование, нахождение обратной матрицы или определителя?
Вам должны были объяснить как это делать, алгоритмы дать, разве нет?

[Mr.Qwerty]

Нужно найти определители, да хз, весь гугл обшарил, не нашел метода, точнее нашел, но он не применим, здесь нужен алгоритм, по другому прогу никак не напишешь (

[ОДИНОЧЕСТВО В СЕТИ]

program Project3;// готовая прога

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=4; { размерность матрицы }
type matr=array[1..n,1..n] of real;
var a,b:matr;
   i,j:longint;
   dt:Real;
procedure PrintMatr(m:matr;n:integer);
{ процедура вывода матрицы на экран }
var i,j:integer;
 begin
 for i:=1 to n do
   begin
   for j:=1 to n do
     write(m[i,j]:6:3);
   writeln;
   end;
 end;
procedure GetMatr(a:matr; var b:matr; m,i,j:integer);
{ Вычеркивание из матрицы строки и столбца }
var ki,kj,di,dj:integer;
 begin
 di:=0;
 for ki:=1 to m-1 do
   begin
   if (ki=i) then di:=1;
   dj:=0;
   for kj:=1 to m-1 do
     begin
     if (kj=j) then dj:=1;
     b[ki,kj]:=a[ki+di,kj+dj];
     end;
   end;
 end;
Function Determinant(a:matr;n:integer):real;
{ Вычисление определителя матрицы }
var i,j,k:longint;
   d:Real;
   b:matr;
 begin
 d:=0; k:=1;
 if (n<1) then
   begin
   writeln('Determinant: Cann''t run. N=',n); halt;
   end;
 if (n=1)
   then d:=a[1,1]
 else if (n=2)
   then d:=a[1,1]*a[2,2]-a[2,1]*a[1,2]
 else { n>2 }
   for i:=1 to n do
     begin
     GetMatr(a,b,n,i,1);
     {writeln('i=',i,' a[',i,',1]=',a[i,1]);
     PrintMatr(b,n-1);}
     d:=d+k*a[i,1]*Determinant(b,n-1);
     k:=-k;
     end;
 Determinant:=d;
 end;
begin
{ Заполнение матрицы }
for i:=1 to n do
for j:=1 to n do
 Readln(a[i,j]);
{ Печать исходной матрицы }
PrintMatr(a,n);
{ Вычисление и вывод определителя }
dt:=Determinant(a,n);
writeln('=========');
writeln('Determinant=',dt:6:5);
readln;
end.

[Mr.Qwerty]

ОДИНОЧЕСТВО В СЕТИ, спасибо большое, очень помогла)Плюсиг тебе)