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

MainMenu;

N1: TMenuItem;

NMultiplication: TMenuItem;

N2: TMenuItem;

InputMassB: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

nDetA: TMenuItem;

NDetB: TMenuItem;

ResultMemo: TMemo;

N5: TMenuItem;

DetC: TMenuItem;

nmbn1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

OpenDialog: TOpenDialog;

procedure InputMassAClick (Sender: TObject);

procedure NMultiplicationClick (Sender: TObject);

procedure VS_MultiplicMass (Var inMassA, InMassB, MassOut: TVS_MassData);

procedure InputMassBClick (Sender: TObject);

procedure VS_InputMass (Var InMass: TVS_MassData);

procedure VS_ShowMass (inCaption: String; inMass: TVS_MassData);

procedure FormShow (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure nDetAClick (Sender: TObject);

function VS_Det (InMass: TVS_MassData): Real;

procedure NDetBClick (Sender: TObject);

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

procedure N5Click (Sender: TObject);

procedure DetCClick (Sender: TObject);

Procedure AssignMass (InMAss: TVS_MassData; Var OutMass: TVS_MassData);

Procedure VS_VerMass (Var Massin1, MAssIn2: TVS_MassData);

Procedure VS_LoadData (Var InMAss: TVS_MassData);

Procedure VS_GetRazmOnFile (FileName: String; Var Col, Row: Integer);

Function VS_GetColOnFile (InStr: String): Integer;

// Мінори

function VS_Minor (II, Jj: Integer; InMass: TVS_MassData): REal;

Procedure VS_InitMassInStr (InStr: String; CurRow: Integer; Var InMass: TVS_MassData);

Procedure VS_InitMassPErebor;

Procedure VS_Init2xMassPerebot;

Procedure VS_SortMassPerebor;

Procedure VS_GetMAssForDet;

Function VS_IfMassEq (Massin1, MAssIn2: TVS_MassData): Boolean;

Function VS_GetKoshi_Bine: Real;

procedure VS_GenerateColMinorData (CurCol, Col: Integer; Var inMass: TVS_MassData);

procedure VS_GenerateRowMinorData (CurCol, Col: Integer; Var InMass: TVS_MassData);

Procedure VS_MinorMass (InMass: TVS_MassData; Var OutMass: TVS_MassData);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure lll1Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

MainForm: TMainForm;

MassP: TVS_MAssPerebor;

MassPer,

MassA,

MassB, MassC: TVS_MassData;

DetB,

DetA: TVS_MAssPerebor;// Масив детермінант А