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

[I, J]: = 0;

MassC.Mass [I, J]: = 0;

end; {For J: = 1 to MaxN do}

// Обнуляємо змінні розмірностей масивів

MassA.N: = DefValueMas;// Встановлюємо розмірність матриці за замовчуванням

MassA.M: = MassA.N;

MassB.N: = MassA.N;

MassB.M: = MassA.N;

MassC.N: = MassA.N;

MassC.M: = MassA.N;

MassA.Name: = 'A';

MassB.Name: = 'B';

MassC.Name: = 'C';

ResultMemo.Clear;// Очищаємо Мемо-поле. p> end;

procedure TMainForm.VS_InputMass (var InMass: TVS_MassData);

// Вводимо Елементи масиву

Var

I, K: Integer;

begin

If InMassForm = Nil Then Application.CreateForm (TInMassForm, InMassForm);

with InMassForm do

Begin

Caption: = 'Введення масиву';

strGrid.RowCount: = InMass.M +1;// вказали кількість рядків рамним М

strGrid.ColCount: = InMass.N +1;// Вказали кількість стовпців, рівним N

For I: = 0 To InMass.N -1 do// Робимо шапку для стовпців

strGrid.Cells [I +1, 0]: = 'N =' + IntToStr (I +1);

For I: = 0 To InMass.M -1 do// Робимо шапку для рядків

strGrid.Cells [0, I +1]: = 'M =' + IntToStr (I +1);

// Заносимо результати масиву в сітку, якщо вводили раніше

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

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

Try

strGrid.Cells [I +1, K +1]: = FloatToStr (InMass.Mass [K, I]);// Виводимо масив у сітку

except

strGrid.Cells [I +1, K +1]: = '0 ';

end;

btnNext.Caption: = 'Далі';

btnCancel.Caption : = 'Відміна';

If ShowModal = Mrok Then// Виводимо форму, чекаємо реакції користувача

Begin

SetLength (MassA.Mass, InMass.M +1, InMass.N +1);// Встановили розмір масиву в пам'яті

For I: = 0 To InMass.N -1 do// пробігати по рядках масиву

For K: = 0 To InMass.M -1 do// пробігати по стовпцях масиву

Try// Включаємо обробку помилок

InMass.Mass [K, I]: = StrToInt (InMassForm.strGrid.Cells [I +1, K +1]);// Заносимо елемент з сітки в масив

except// Якщо сталася помилка, наприклад з перекладом рядка в число

InMass.Mass [I, K]: = 0;// Якщо помилка - заносимо в масив 0

end; {except}

VS_ShowMassToMemo ('Успішно введена матриця', InMass);// Виводимо матрицю в Мемо

end; {If ShowModal = Mrok Then}

end;

end;

procedure TMainForm.N3Click (Sender: TObject);

// Виводимо результат. Просто виводимо масив

begin

VS_ShowMass ('', MassC)

end;

procedure TMainForm.nDetAClick (Sender: TObject);

// Визначаємо визначник матриці А

Var Det: Real;

begin

Det: = VS_Det (MassA);// обчислюємо визначник

ResultMemo.Line...