gn="justify">}
// ---------------------------------------- ---------------------------- __fastcall TMainForm :: drawPos (int p, double s)
{TCanvas * o = image-> Canvas;> Pen-> Color = clBlack; X = 30; + = p * s; Y = 50;> MoveTo (X, Y );> LineTo (X +5, Y-20);> MoveTo (X, Y);> LineTo (X-5, Y-20);
o-> LineTo (X +5, Y-20);> LineTo (X, Y);
o-> MoveTo (X, Y-20);> LineTo (X, Y-30); = 30;> LineTo (X +520, Y-30);
}
// ---------------------------------------- ----------------------------. h
# ifndef MatrixH
# define MatrixH
// ---------------------------------------- -----------------------------------
# include "RandGen.h"
class Matrix
{: (); (Matrix & m);
~ Matrix ();
void SetSize (int m, int n); Fill (int val); FindMax (); FindMin (); SetElem (int i, int j, int val); GetM (); GetN ( ); GetElem (int i, int j); SetGen (RandGen * pG); FillRand (); Determ (); & DelLine (int k);
Matrix & DelCol (int k);:
int M; N; ** A; * pGen;
};
# endif.cpp
# pragma hdrstop
# include
# include "Matrix.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init) :: Matrix ()
{= 0, (3, 3); (0);
} :: Matrix (Matrix & m)
{= mM; = mN; = (int **) malloc (sizeof (int *) * M); (int i = 0; i
{(int j = 0; j
}
} :: ~ Matrix ()
{(int i = 0; i
} Matrix :: SetSize (int m, int n)
{= m; = n; = (int **) malloc (sizeof (int *) * M); (int i = 0; i
} Matrix :: Fill (int val)
{(int i = 0; i
{(int j = 0; j
{[i] [j] = val;
}
}
} Matrix :: FindMax ()
{max = A [0] [0]; (int i = 0; i
{(int j = 0; j
{(A [i] [j]> max) = A [i] [j];
}
} max;
} Matrix :: FindMin ()
{min = A [0] [0]; (int i = ...
