Определитель матрицы nxn

[Andrew2012]

Помогите пожалуйста написать комментарии для каждой строки программы.
Условие задачи: Найти детерминант матрицы А размером nxn.

Program Determinant;
const
 N1=10;
type
Matrice=array[1..N1,1..N1] of real;
var
A:matrice;
I,J,N:integer;
D:real;

Function Det(A:Matrice;N:integer):real;
var
B:matrice;
I:integer;
T,Mn,S:real;

Function Minor(var C:matrice;A:Matrice;N,I,J:integer):real;
var
Im,Jm,Ia,Ja,Nm:integer;
begin
Nm:=N-1; Im:=1; Ia:=1;
while Im<=Nm do
  if Ia<>I then
    begin
      Jm:=1; Ja:=1;
      while Jm<=Nm  do
        if Ja<>J then
          begin
            C[Im,Jm]:=A[Ia,Ja];
            Ja:=Ja+1; Jm:=Jm+1;
          end
                 else Ja:=Ja+1;
        Ia:=Ia+1; Im:=Im+1;
    end
           else Ia:=Ia+1;
end; {*Minor*}

begin
if N=1 then Det:=A[N,N];
if N=2 then Det:=A[1,1]*A[2,2]-A[2,1]*A[1,2];
if N>2 then
  begin
    S:=0;
    for I:=1 to N do
      begin
        Mn:=Minor(B,A,N,I,1);
        if (I mod 2)=1 then begin
                             T:=Det(B,N-1);
                             S:=S+T*A[I,1];
                            end
                       else begin
                             T:=Det(B,N-1);
                             S:=S-T*A[I,1];
                            end;
      end;
    Det:=S;    
  end;
end; {*Determ*}

begin
Write('Vvedite porajdok matrichi N: '); readln(N);
for I:=1 to N do
  begin
   writeln('Vvoditeelementu stroki ',I:2);
   for J:=1 to N do readln(A[I,J]);
  end;
D:=Det(A,N);
Writeln('Opredelitel raven: ',D:7:4);
readln;
end.

[Mixim]

Набор данных функций вычисляет определитель матрицы разложением по строке. Зайди на элементарную Википедию, там аналогичным образом считается определитель матрицы третьего порядка. Когда прочтешь и разберешься, думаю, сам комментарии напишешь. Сам когда-то вычислял определитель таким образом.
Серьезно в код не всматривался, но условие:

if N=2 then

можно убрать

[Andrew2012]

Program Determinant;//название программы
const N1=10;//константа (используется везде (не изменяется))
type Matrice=array[1..N1,1..N1] of real;//свой тип массива
var//глобальные переменные (способный измениться по ходу программы)
        A:matrice;//переменная с нашим массивом
        I,J,N:integer;//переменные для работы с массивом
        D:real;//переменная для нахождения детерминанта
 
Function Det(A:Matrice;N:integer):real;
var
        B:matrice;
        I:integer;
        T,Mn,S:real;
 
        Function Minor(var C:matrice;A:Matrice;N,I,J:integer):real;
//нахождение дополнительного минора
        var
                Im,Jm,Ia,Ja,Nm:integer; 
//Im - строки минора, Jm - столбцы минора, Ia - строки матрицы А, Ja - столбцы матрицы А, Nm - порядок (размерность) минора.
        begin
                Nm:=N-1; //порядок минора на единицу меньше порядка матрицы
                Im:=1; //берем первую строку
                Ia:=1;
                while Im<=Nm do
                        if Ia<>I then
                        begin
                                Jm:=1; Ja:=1;
                                while Jm<=Nm  do
                                        if Ja<>J then
                                        begin
                                                C[Im,Jm]:=A[Ia,Ja];    
                                                Ja:=Ja+1; Jm:=Jm+1; //определяем какой элемент будет стоять перед минором ?
                                        end
                                else 
                                        Ja:=Ja+1;
                                Ia:=Ia+1; 
                                Im:=Im+1;
                        end
                        else 
                                Ia:=Ia+1;
        end; {*Minor*}
 
begin
        if N=1 then //если  n=1
                Det:=A[N,N]; //нашей функции передается число из массива
        if N=2 then 
                Det:=A[1,1]*A[2,2]-A[2,1]*A[1,2];//нашей функции передается число из массива
        if N>2 then//всё что больше 2 
        begin
                S:=0; //сумма
                for I:=1 to N do
                begin
                        Mn:=Minor(B,A,N,I,1);//находим дополнительный минор
                        if (I mod 2)=1 then //если после деления на 2 равно единице
                        begin
                                T:=Det(B,N-1); 
                                S:=S+T*A[I,1];
                        end
                        else //если не равно выполняется
                        begin
                                T:=Det(B,N-1);
                                S:=S-T*A[I,1];
                        end;
                end;
                Det:=S;    
        end;
end; {*Determ*}
 
begin
        Write('Vvedite porajdok matrichi N: '); 
        readln(N);//ввод длины массива не больше 10
        for I:=1 to N do
        begin
                writeln('Vvoditeelementu stroki ',I:2);
                for J:=1 to N do //заполнение массива
                        readln(A[I,J]);
        end;
        D:=Det(A,N);//нахождение деттерминанта
        Writeln('Opredelitel raven: ',D:7:4);//вывод результата
        readln;//пауза
end.

Как-то так?

[Юля23]

а как сделать i от 0 до N-1 и j от 0 до N-1?

[Вадим Мошев]

Сообщение от Юля23

а как сделать i от 0 до N-1 и j от 0 до N-1?

Создайте новую тему для своих вопросов. Одна тема - один атвор.