Помогите!!!Пожалуйста!!С программкой в Паскале...

[Yulichkaa]

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

[Carbon]

Держи функцию.

const MAX=100;
TMatrix=array [1..MAX,1..MAX] of extended;

procedure Inverse(var A,Result:TMatrix; dim:integer);
var i,j,k:integer;
    temp:TMatrix;
    value:extended;
begin

  for i:=1 to dim do
    for j:=1 to dim do
    begin
      temp[i,j]:=A[i,j];
     
      if i=j then
        Result[i,j]:=1.0
      else
        Result[i,j]:=0.0;
    end;

  for i:=1 to dim-1 do
  begin
    value:=temp[i,i];


    for j:=1 to dim do
    begin
      temp[i,j]:=temp[i,j]/value;
      Result[i,j]:=Result[i,j]/value;
    end;

    for j:=i+1 to dim do
    begin
      value:=temp[j,i];

      for k:=1 to dim do
      begin
        temp[j,k]:=temp[j,k]-temp[i,k]*value;
        Result[j,k]:=Result[j,k]-Result[i,k]*value;
      end;
    end;

  end;

  value:=temp[dim,dim];

  for i:=1 to dim do
  begin
    temp[dim,i]:=temp[dim,i]/value;
    Result[dim,i]:=Result[dim,i]/value;
  end;

  for i:=dim downto 2 do
    for j:=i-1 downto 1 do
    begin
      value:=temp[j,i];

      for k:=1 to dim do
      begin
        temp[j,k]:=temp[j,k]-temp[i,k]*value;
        Result[j,k]:=Result[j,k]-Result[i,k]*value;
      end;
    end;
  
end;

Если нужны комментарии, могу кинуть исходник. Здесь я их печатать не собираюсь.