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

mainList: =TList. Create;

nowCharCode: =65;

fl: =true;

sizeOfAction: =0;

end;

procedure TmatrEditor. matrVievClick (Sender: TObject);

begin

itemNomb. Text: =matrViev. Cells [matrViev. Col,matrViev. Row];

infLab. caption: =matrRecLink (mainList [nowItem]) ^. strName+' ['+IntToStr (matrViev. Col+1) +'] ['+IntToStr (matrViev. Row+1) +'] ';

end;

procedure TmatrEditor. TESTClick (Sender: TObject);

begin

transp (nowMatr);

for i: =1 to nmax do

for j: =1 to nmax do

begin

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

end;

end;

procedure TmatrEditor. Button1Click (Sender: TObject);

var nowRand: real;

begin

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

for i: =1 to nmax do

for j: =1 to nmax do

begin

nowRand: = (1-2*random (2)) *random (100) /10;

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

matrRecLink (mainList [nowItem]) ^. mt [i] [j]: =nowRand;