[kalbim]

Здравствуйте!Помогите, пожалуйста, разобраться в коде программы на Delphi. Я еще новичек и не очень хорошо понял принцип работы с массивами. Если кому не трудно, напишите пожалуйста объяснение к каждой строке.

Код:

d:real;                      //d=|R|определитель матрицы R
r: array of array of real;   //корреляционная матрица R=х*х(транспонированая)
x: array of array of real;   //матрица стандартизированных векторов

//нахождение корреляционной матрицы R
     for t:=0 to m-1 do
         for i:=0 to m-1 do
            if t<>j then
              for j:=0 to n-1 do begin
                 r[t, i]:=r[t, i]+x[j, t]*x[j, i];
                 StringGrid5.Cells[i, t]:=floattostr(r[t, i]);
              end;

     //нахождение определителя матрицы R
     for t:=0 to m-1 do
         for i:=t+1 to m-1 do begin
            a:=r[i, t];
            for j:=t to m-1 do
               r[i, j]:=r[i,j]-a*(r[t, j]/r[t, t]);
            
            end;

     d:=1;
     for i:=0 to m-1 do
         d:=d*r[i, i];

Admin: Пользуемся тегами!