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

ziroMatr (nowEl^. mt);

nowEl^. strName: =matrRecLink (mainList [nowItem]) ^. strName;

for i: =1 to nmax do vectViev. Cells [i-1,0]: ='';

for i: =1 to nmax do

for j: =1 to nmax do

matrViev. Cells [i-1,j-1]: =FloatToStr (nowEl^. mt [i] [j]);

dispose (mainList [nowItem]);

mainList [nowItem]: =nowEl;

// --------------------------------

vectViev. Color: =clScrollBar;

vectViev. Ctl3D: =false;

vectViev. Enabled: =false;

matrViev. Color: =clWindow;

matrViev. Ctl3D: =true;

matrViev. Enabled: =true;

// ------------------------------

operList. Items [nowItem]. SubItems [0]: ='Matrix';

end;

end;

procedure TmatrEditor. Button4Click (Sender: TObject);

begin

if matrRecLink (mainList [nowItem]) ^. typeOf = Vect then

begin

ziroVect (matrRecLink (mainList [nowItem]) ^. vt);

for i: =1 to nmax do

vectViev. Cells [i-1,0]: ='0';

end;

// ---------------------

if matrRecLink (mainList [nowItem]) ^. typeOf = Matr then