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

s.Add ('Визначник матриці А дорівнює' + FloattoStr (Det));// Виводимо результат у Мемо

ShowMessage (FloatToStr (Det));// Виводимо результат у діалогове вікно

end;

procedure TMainForm.NDetBClick (Sender: TObject);

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

Var Det: Real;

begin

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

ResultMemo.Lines.Add ('Визначник матриці B дорівнює' + FloattoStr (Det));// Результат обчислень виводимо в мемо

ShowMessage (FloatToStr (Det));// Результат виводимо в діалогове вікно

end;

procedure TMainForm.VS_ShowMassToMemo (Caption: String; InMass: TVS_MassData; ShowRazm: Boolean = True);

// Виводимо масив в мемо

Var S: String;

I, J: Integer;

begin

If ShowRazm Then ResultMemo.Lines.Add (Caption + InMass.Name + 'm =' + IntToStr (InMass.M) + 'n = '+ IntToStr (InMass.n))

Else ResultMemo.Lines.Add (Caption);

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

Begin

S: ='';// Готуємося до формування рядка

For J: = 0 To InMass.N -1 Do// пробігати по стовпцях

S: = S + FloatToStr (InMass.Mass [i, j]) + '';// Формуємо рядок елементів

ResultMemo.Lines.Add (S);// Виводимо рядок у Мемо

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

end;

procedure TMainForm.N5Click (Sender: TObject);

Var DetA, DetB, Det : Real;

begin

ResultMemo.Clear;

// Вирішуємо det C звичайним способом

VS_VerMass (MAssA, MAssB);// Перевіряємо масиви. Якщо в першому масиві число стовпців менше, ніж у другому, міняємо матриці місцями

ResultMemo.Lines.Add ('1) ');

VS_ShowMassToMemo ('Нехай', MassA);// Виводимо матрицю А

VS_ShowMassToMemo ('', MassB);// Виводимо матрицю Б

VS_MultiplicMass (MassA, MassB, MassC);// Множимо матриці

VS_ShowMassToMemo ('отримуємо матрицю', MassC);// Виводимо матрицю С

Det: = VS_Det (MassC);

ResultMemo.Lines.Add ('Разом: Det C =' + FloatToStr (Det));

ResultMemo.Lines.Add ('2) ');

// Вирішуємо по Біне-Коші

If (MassA.M> MassA.N) Then

Begin// потрапили під умову, коли М> n, значить визначник дорівнює 0

ResultMemo.Lines.Add ('m> n масиву А, виходячи з т. Біне - Коші, DetC = 0 ');

Exit// Завершуємо процедуру

end;

// If (MassB.M> MassB.N) Then

// Begin// потрапили під умову, коли М> n, значить визначник дорівнює 0

// ResultMemo.Lines.Add ('m> n масиву B, виходячи з т. Біне - Коші, DetC = 0 ');

// Exit// Завершуємо процедуру

// end;

If (MassA.M = MassA.N) And (MassA.M = MassA.N)

Then// потрапили під умову, коли обидві матриці кувадратние

Begin

ResultMemo.Lines.Add ('m...