Delphi заготовки

на основе примера
http://mathem.h1.ru/examples/example.html?3


Функции работы с матрицами


Const
maxCount=30;
type
  TArrayReal=array[0..maxCount, 0..maxCount] of real;
var
   Count:integer;


{функция расчета обратной матрицы }
procedure GetBackMatrix(source:TArrayReal;var Back:TArrayReal);
var k, i, j: integer;
begin
 for i:=0 to Count - 1 do
 for j:=0 to Count - 1 do Back[i,j]:=source[i,j];

 for k:=0 to Count - 1 do
 begin
      for i:=0 to Count - 1 do
       for j:=0 to Count - 1 do
       begin
            if (i=k) and (j=k) then
               source[i,j] := 1/Back[i,j];
            &nb ... Читать дальше »

... Читать дальше »