#include <iostream.h>;
#include <conio.h>;
#include <io.h>;
#include <vcl.h>;

const int len = 5;

typedef bool TBool[len][len];
typedef float TFloat[len][len];
typedef char* TChar[len][len];

   FILE *out;

   AnsiString s;
   TChar MAdd,img1,img2,img3,m_town;
   bool  fl, b_exit;

   TBool b_img1,b_img2,b_img3,m_graf,m_bmat,m_bmat_exp,m_napr,m_graf_exp;
   TFloat Mex,Ak,Mat,Mat1,Mat2,Mat_Res_1,Mat_Res_2,Mat_Res_M;

   int   n,i, j, x, y, kolich;
   float f_sum, f_summa, f_min,MA[len], AM[len];

//-----------------------------------------------------------------------------
void Transposition (float MA0, float MA1, float MA2, float MA3,float MA4,
     float AM0, float AM1, float AM2, float AM3, float AM4, int n_ )
{
   MA[0]=MA0;  MA[1]=MA1;  MA[2]=MA2;  MA[3]=MA3;  MA[4]=MA4;
   AM[0]=AM0;  AM[1]=AM1;  AM[2]=AM2;  AM[3]=AM3;  AM[4]=AM4;
   n = n_;
}
//-----------------------------------------------------------------------------
void Print_Float_Matrix(float Matrix[len][len],char* str)
{
   fprintf(out,"\n");
   fprintf(out,str);
   fprintf(out,"\n");
   for (int i=0; i<len; i++)
       {
         for (int j=0; j<len; j++)
            fprintf(out,"%5.1f ",Matrix[i][j]);
            fprintf(out,"\n");
       }
   fprintf(out,"Press <Enter> to continue\n");
//   getch();
}
//-----------------------------------------------------------------------------
void Print_Char_Matrix(TChar Matrix,char* str)
{
   fprintf(out,"\n");
   fprintf(out,str);
   fprintf(out,"\n");
   for (int i=0; i<len; i++)
       {
         for (int j=0; j<len; j++)
            if(Matrix[i][j]!=NULL)
               {fprintf(out,Matrix[i][j]);}
            else
               fprintf(out," X");
            fprintf(out,"\n");
       }
   fprintf(out,"Press <Enter> to continue\n");
}
//-----------------------------------------------------------------------------
bool Compare_Float_Matrix(TFloat First,TFloat Second,TFloat Res, TChar Town_Res)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
            if(*First[i,j]>*Second[i,j])
               {
                 *Res[i,j] = *Second[i,j];
                 *Town_Res[i,j] = "m";
               }

               else
                {
                  *Res[i,j] = *First[i,j];
                  *Town_Res[i,j] = "c";
                }

}
//-----------------------------------------------------------------------------
bool Compare_Float_Matrix_X(TFloat First,TFloat Second,TFloat Res, TChar Town_Res)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
            if(*First[i,j]>*Second[i,j])
               {
                 *Res[i,j] = *Second[i,j];
                 *Town_Res[i,j] = "u";
               }
}

//-----------------------------------------------------------------------------
bool Copy_Char_Matrix(TChar From, TChar To)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
         *To[i,j] = *From[i,j];
}
//-----------------------------------------------------------------------------
bool Add_Float_Matrix(TFloat Matrix, TFloat Main_Matrix, TFloat Second_Matrix)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
         *Matrix[i,j] = *Main_Matrix[i,j] +  *Second_Matrix[i,j];
}
//-----------------------------------------------------------------------------
bool Copy_Bool_Matrix(TBool From, TBool To)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
         *To[i,j] = *From[i,j];
}
//-----------------------------------------------------------------------------
bool Copy_Float_Matrix(TFloat From, TFloat To)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
         *To[i,j] = *From[i,j];
}
//-----------------------------------------------------------------------------
void Print_Bool_Matrix(bool Matrix[len][len],char* str)
{
   fprintf(out,"\n");
   fprintf(out,str);
   fprintf(out,"\n");
   for (int i=0; i<len; i++)
       {
         for (int j=0; j<len; j++)
            fprintf(out,"%5.1f ",Matrix[i][j]);
            fprintf(out,"\n");
       }
//   fprintf(out,"Press <Enter> to continue\n");
//   getch();
}
//-----------------------------------------------------------------------------
void Calculate(int town )
{
   for (i=0; i<len; i++)
      for (j=0; j<len; j++)
         {
            Mex[j][i]=MA[j]-(AM[i]+6);
            while( Mex[j][i]<0){Mex[j][i]+=24;}
            Ak[i][j]=AM[j]-(MA[i]+6);
            while( Ak[i][j]<0){Ak[i][j]+=24;}
         }

   for (i=0; i<len; i++)
      for (j=0; j<len; j++)
         {
            if (Mex[i][j]<4) {Mat[i][j]=Ak[i][j]; MAdd[i][j]="2";}
            else  if (Ak[i][j]<4) {Mat[i][j]=Mex[i][j]; MAdd[i][j]="1";}
            else if (Mex[i][j]<Ak[i][j]) {Mat[i][j]=Mex[i][j]; MAdd[i][j]="1";}
            else {Mat[i][j]=Ak[i][j]; MAdd[i][j]="2";}
      }
  f_summa=n*24;
  for (i=0; i<len; i++)
    for (j=0; j<len; j++)
      {
        if (Mat[i][j]<4) {m_bmat[i][j]=false; m_napr[i][j]=false;}
        else {m_bmat[i][j]=true;  m_napr[i][j]=true;}
        m_graf[i][j]=false;
      }
//------------------------------------------------------------------------
  b_exit=true;
    while (b_exit)
      {
        f_sum=0;
        kolich=0;
        for (i=0; i<len; i++)
            for (j=0; j<len; j++)
               {
                  m_bmat_exp[i][j] = m_bmat[i][j];
                  m_graf_exp[i][j] = false;
               }

        f_min=24;
        for (i=0; i<len; i++)
            for (j=0; j<len; j++)
               if ((m_napr[i][j])&&(m_bmat_exp[i][j])&&(f_min>Mat[i][j])){f_min=Mat[i][j];  x=i;  y=j;}

        for (int k=0; k<len; k++)
            {
               m_bmat_exp[x][k]=false;
               m_bmat_exp[k][y]=false;
            }
        m_napr[x][y]=false;
        m_graf_exp[x][y]=true;
        f_sum+=Mat[x][y];
        kolich++;
        fl=false;
        for (i=0; i<len; i++)
            for (j=0; j<len; j++)
               if (m_bmat_exp[i][j])fl=true;
//-----------------------------------------------------------------------------
        while (fl)
        {
          f_min=24;
            for (i=0; i<len; i++)
              for (j=0; j<len; j++)
              if ((m_bmat_exp[i][j])&&(f_min>Mat[i][j]))
                         {f_min=Mat[i][j]; x=i; y=j;}
            for (int k=0; k<len; k++)
            {
                m_bmat_exp[x][k]=false;
                m_bmat_exp[k][y]=false;
            }
            f_sum+=Mat[x][y];
            m_graf_exp[x][y]=true;
            kolich++;
            fl=false;
            for (i=0; i<len; i++)
                for (j=0; j<len; j++)
                    if (m_bmat_exp[i][j]) {fl=true;}
        }
        if ((kolich==n)&&(f_summa>f_sum))
        {   f_summa=f_sum;
            for (i=0; i<len; i++)
               for (j=0; j<len; j++)
                  m_graf[i][j]=m_graf_exp[i][j];
        }
        b_exit=false;
        for (i=0; i<len; i++)
            for (j=0; j<len; j++)
                if (m_napr[i][j]) b_exit=true;
   }
//---------Вывод на экран----------------------------------------------------
   Print_Float_Matrix(Mex,"Waiting in Mexico");
   Print_Float_Matrix(Ak,"Waiting in Akapulco");
   Print_Float_Matrix(Mat,"Waiting");
   //Print_Bool_Matrix(m_graf,"Elements as table");

   for (i=0; i<len; i++)
      for (j=0; j<len; j++)
         if (m_graf[i][j])
            {
               s = ' ';
               s = "Brigada "+
               IntToStr(i+1)+ " s reysami " +
               IntToStr(i)+" from Akapulco and "+
               IntToStr(j)+" from Mexico must lives in "+
               MAdd[i][j]+"\n";
               fprintf(out,s.c_str());
            }

  switch (town)
   {
      case 1: Copy_Float_Matrix(Mat,Mat1);
      case 2: Copy_Float_Matrix(Mat,Mat2);
   }

  s = "Min waiting time is " + FloatToStr(f_summa)+ "\n";
  fprintf(out,s.c_str());
}
//-----------------------------------------------------------------------------
void Mexico_2_Akapulko()
{
    fprintf(out,"\nMexico <-> Akapulko\n");
    Transposition( 6, 7.5, 11.5, 19, 0.5, 5.5, 9, 15, 18.5, 0, 5); //Mexico2Acapulko
    Calculate(1);

    Transposition( 6, 10, 13, 15, 19, 10, 15, 17, 22, 0, 5);       //Acapulko2SantaLucia
    Calculate(2);

    Add_Float_Matrix(Mat_Res_1,Mat2,Mex);
    Add_Float_Matrix(Mat_Res_2,Mat2,Ak);


    Compare_Float_Matrix(Mat_Res_1,Mat,Mat_Res_M,m_town);
    Compare_Float_Matrix_X(Mat_Res_M,Mat_Res_2,Mat_Res_M,m_town);

    Print_Char_Matrix(m_town,"Result Matrix!\n");

}
//-----------------------------------------------------------------------------
void  Mexico_2_SantaLucia()
{
    fprintf(out,"\nMexico <-> Santa Lucia\n");
    Transposition( 6, 7.5, 11.5, 19, 0.5, 10, 15, 17, 22, 0, 5);    //Maxico2SantaLucia
    Calculate(1);

    Transposition( 6, 7.5, 11.5, 19, 0.5, 5.5, 9, 15, 18.5, 0, 5);  //SantaLucia2Acapulko
    Calculate(3);

    Add_Float_Matrix(Mat_Res_1,Mat2,Mex);
    Add_Float_Matrix(Mat_Res_2,Mat2,Ak);


    Compare_Float_Matrix(Mat_Res_1,Mat,Mat_Res_M,m_town);
    Compare_Float_Matrix_X(Mat_Res_M,Mat_Res_2,Mat_Res_M,m_town);

    Print_Char_Matrix(m_town,"Result Matrix!\n");



}
//-----------------------------------------------------------------------------
void Akapulko_2_SantaLucia()
{
 fprintf(out,"\nAkapulko <-> Santa Lucia\n");

   Transposition( 6, 10, 13, 15, 19, 10, 15, 17, 22, 0, 5);       //Akapulko2SantaLucia
   Calculate(2);

   Transposition( 6, 7.5, 11.5, 19, 0.5, 5.5, 9, 15, 18.5, 0, 5); //Mexico2Acapulko
   Calculate(3);

   Add_Float_Matrix(Mat_Res_1,Mat2,Mex);
   Add_Float_Matrix(Mat_Res_2,Mat2,Ak);


   Compare_Float_Matrix(Mat_Res_1,Mat,Mat_Res_M,m_town);
   Compare_Float_Matrix_X(Mat_Res_M,Mat_Res_2,Mat_Res_M,m_town);

   Print_Char_Matrix(m_town,"Result Matrix!\n");





}
//-----------------------------------------------------------------------------
bool Compare_Bool_Matrix(TBool* First,TBool* Second,TChar* First2,TChar* Second2)
{
   for (int i=0; i<len; i++)
      for (int j=0; j<len; j++)
       if (First[i,j] || Second[i,j])
         if(*First[i,j]!=*Second[i,j])
            if(*First2[i,j]!=*Second2[i,j])
               {
                  *m_bmat[i,j] = false;
                  return false;

               }
   return true;
}
//-----------------------------------------------------------------------------
void main()
{


   DeleteFile(".\\!Результаты.txt");
   out = fopen(".\\!Результаты.txt","a+");

   Mexico_2_Akapulko();
   Mexico_2_SantaLucia();
   Akapulko_2_SantaLucia();

   
   fclose(out);

}
//-----------------------------------------------------------------------------