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

text: =FloatToStr (matrRecLink (mainList [nowItem]) ^. mt [matrViev. Col] [matrViev. Row]);

matrViev. Cells [vectViev. Col,vectViev. Row]: =text;

end; }

end;

procedure TmatrEditor. operListDblClick (Sender: TObject);

begin

if (nowItem<>-1) and (sizeOfAction<2) then

begin

if length (opViev. Text) >0 then

begin

if multA. Checked then begin

opViev. Text: =opViev. text+'x'; act: =0; end;

if minusA. Checked then begin

opViev. Text: =opViev. text+'-'; act: =1; end;

if plusA. Checked then begin

opViev. Text: =opViev. text+'+'; act: =2; end;

end;

new (opers [sizeOfAction+1]);

opers [sizeOfAction+1] ^. typeOf: =matr;

for i: =1 to nmax do

for j: =1 to nmax do

opers [sizeOfAction+1] ^. mt [i] [j]: =matrRecLink (mainList [nowItem]) ^. mt [i] [j];

sizeOfAction: =sizeOfAction+1;

opViev. Text: =opViev. text+matrRecLink (mainList [nowItem]) ^. strName;

end;

end;

procedure TmatrEditor. Button5Click (Sender: TObject);

var newItem: TListItem;

begin