Курсовая работа: Розрахунок норм вектору

Shift: TShiftState);

procedure operListDblClick (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Save1Click (Sender: TObject);

procedure Open1Click (Sender: TObject);

procedure itemNombChange (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const maxAct=15;

type matrRec = record

strName: string [20];

case typeOf: (vect,matr) of

matr: (mt: matrix_);

vect: (vt: vector);

end;

matrRecLink = ^matrRec;

var

matrEditor: TmatrEditor;

nowCharCode: byte;

nowMatr: matrix_;

nowVect: vector;

mainList: TList;

nowEl: matrRecLink;

i,j: size;