Реферат Визначник твори прямокутних матриць. Теорема Коші-Біне

М мірний масив миноров

begin

ResultMemo.Lines.Add ('Перебори:');

SetLength (TempA.Mass, MAssA.M, MAssA.M);

SetLength (TempB.Mass, MAssB.N, MAssB.N);

SetLength (DetA, MassA.N);

SetLength (DetB, MassB.M);

TEmpA.M: = MAssA.M;

TEmpA.N: = MAssA.M;

TEmpB.M: = MAssB.N;

TEmpB.N: = MAssB.N;

For I: = 0 to MassPer.M - 1 do// пробігати по рядках

Begin

SA: = IntToStr (I +1) + 'A)';

SB: = IntToStr (I +1) + 'B)';

For J: = 0 to MassPer.N - 1 do// пробігати по всіх стовпцями -1

begin

SA: = SA + FloatToStr (MassPer.Mass [I, J]) + '';

SB: = SB + FloatToStr (MassPer.Mass [I, J]) + '';

VS_GenerateColMinorData (J, Trunc (MassPer.Mass [I, J]), TempA);

VS_GenerateRowMinorData (J, Trunc (MassPer.Mass [I, J]), TempB);

end; {For J: = 0 to MassPer.N - 1 do// пробігати по всіх стовпцях -1}

ResultMemo.Lines.Add ('');

ResultMemo.Lines.Add (SA);

VS_ShowMassToMemo ('', TempA, False);

DetA [I]: = VS_Det (TempA);

ResultMemo.Lines.Add ('DetA = '+ FloatToStr (Deta [I]));

ResultMemo.Lines.Add ('');

ResultMemo.Lines.Add (SB);

VS_ShowMassToMemo ('', TempB, False);

DetB [I]: = VS_Det (TempB);

ResultMemo.Lines.Add ('DetB = '+ FloatToStr (DetB [I]));

end; {For I: = 0 to MassPer.M - 1 do// пробігати по рядках}

end;

procedure TMainForm.VS_GenerateColMinorData (CurCol, Col: Integer;

var inMass: TVS_MassData);

// Формуємо масив мінор для КоШІ_БІНЕ

// На вході

// CurCol - номер столбюца в новому масиві

// COl - номер стовпчика для масиву, з якого будемо брати значення

// InMass - масив, в який будемо заносити значення

Var I: Integer;

begin

For I: = 0 To MassA.M -1 do

inMass.Mass [I, CurCol]: = MassA.Mass [I, Col -1];

end;

procedure TMainForm.VS_SortMassPerebor;

// Сортуємо елементи масиву переборовши для правильного обчислення мінорів

Var

K, I, J, Curr: Integer;

Rez: Real;

begin

For I: = 0 to MassPer.M - 1 do// пробігати по рядках

For J: = 0 to MassPer.N - 2 do// пробігати по всіх стовпцями -1

For K: = J + 1 to MassPer.N - 1 do

If MassPer.Mass [I, j]> MassPer.Mass [I, K] Then// Поточний елемент більше наступного - міняємо місцями

Begin

REz: = MassPer.Mass [I, j];

MassPer.Mass [I, j] : = MassPer.Mass [I, K];

MassPer.Mass [I, K] : = Rez;

end;

end;

procedure TMainForm.VS_Init2xMassPerebot;

// Формуємо 2хмерний масив переборовши

// На виході буде M * N мірний масив переборовши (НЕ Сортировка)

Var I, J, Curr, CurCol, CurRow: Integer;

De...