Определитель квадратной матрицы

[Tomoyo]

Лучше с ним)
Объясните, пожалуйста, момент с перестановками. Я запуталась в обозначениях(((
И еще вот это: det:=1.0

[puporev]

det:=1.0

В начале цикла умножения начальное значение всегда равно 1 (1.0 чтобы знать, что число вещественное). Потом на него умножают и результат растет. Так при возведении в степень, при подсчете факториала в цикле и т.д.
Процедура перестановки строк нужна когда главный элемент, на который нужно делить либо ноль(делить нельзя) либо число очень близкое к нолю(получается недостоверный результат).
В этом случае ищут строку, у которой главный элемент максимальный и строки переставляют местами. От этого значение определителя не меняется, меняется его знак.

procedure Per(k,n:integer;var a:Tmatrix;var p:integer);
//входные параметры - к-номер текущей строки;n-размер матрицы; 
//входной и выходной параметр - матрица а; выходной параметр - количество перестановок -р;
var z:Real;j,i:integer;//z-буфер для обмена элементов строк
begin
 z:=abs(a[k,k]);//запоминаем модуль текущего главного элемента
 i:=k; //запоминаем номер текущей строки
 p:=0; //перестановок еще нет
 for j:=k+1 to n-1 do//смотрим по строкам от следующей до последней
   begin
     if abs(a[j,k])>z then //если в этом столбце какой то элемент больше
        begin
          z:=abs(a[j,k]);//запоминаем этот элемент
          i:=j;  //запоминаем номнр строки
          p:=p+1;//увеличиваем счетчик перестановок
        end;
   end;
   if i>k then  //если нужная строка ниже текущей
   for j:=k to n-1 do //то переставляем(меняем местами) соответствующие элементы строк
      begin
        z:=a[i,j]; //запоминаем
        a[i,j]:=a[k,j];//ставим на место a[i,j]->a[k,j]
        a[k,j]:=z;    //ставим на место a[k,j]->a[i,j]
      end;
end;

[Tomoyo]

Огромное спасибо! Вот бы наш препод так хорошо объяснял материал. И давал бы его побольше...