Исходник «Лабораторные # 1,2,3,4»

Выполнено в Borland Builder 6. Сдавалось Романову Е.Л.

//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
    
template class vector
   {
   T *dt;
   int n, sz;
   public:
   vector()
      {
      n = 0;
      dt = new T[10];
      sz = 10;
      }
   void Extend()
      {
      if (n != sz-1) return;
      sz *= 2;
      T *q = new T[sz];
      for (int i=0; i
         q[i] = dt[i];
      delete dt;
      dt = q;
      }
   void InsSort(T in)
      {
      int i, j;
      Extend();
      if (n == 0)
         {
         dt[n++] = in;
         return;
         };
      for (i=0; i
      for (j=n; j>i; j--)
         dt[j] = dt[j-1];
      dt[j] = in;
      n++;
      };
   void Add(T in)
      {
      Extend();
      dt[n] = in;
      n++;
      };
   void rez()
      {
      if (!n)
         {
         Form1->BitBtn23->Enabled = False;
         Form1->BitBtn24->Enabled = False;
         Form1->CSpinEdit1->Enabled = False;
         }
      else
         {
         Form1->BitBtn23->Enabled = True;
         Form1->BitBtn24->Enabled = True;
         Form1->CSpinEdit1->Enabled = True;
         }
      Form1->CSpinEdit1->MinValue = 1;
      Form1->CSpinEdit1->MaxValue = n;
      if (n == 1)
         {
         Form1->CSpinEdit1->Value = 1;
         Form1->CSpinEdit1->ReadOnly = True;
         }
      else
         Form1->CSpinEdit1->ReadOnly = False;
      }
   void rem(int k)
      {
      for (; k
         dt[k] = dt[k+1];
      n--;
      }
   T & operator[](int k)
      {
      return dt[k];
      };
};
//---------------------------------------------------------------------------
class Matx
{
   int size;                               // Размерность матрицы
   int **X;                                 // ДМУ на стрки матрицы
   public:
   Matx(Matx &S)                            // Конструктор (копирование)