Сократить код

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <time.h>
#include <stdio.h>
#include <stdlib.h>
 
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TStringGrid *StringGrid1;
TStringGrid *StringGrid2;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TLabel *Label4;
TLabel *Label5;
TEdit *Edit1;
TEdit *Edit2;
TEdit *Edit3;
TMainMenu *MainMenu1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 typedef int pat[6];
 typedef int ver1[6][6][14];
 typedef int ver2[6][6];
 int e,r,n,summa,MV[14],q[53];
  ver1 ver;
  ver2 a;
  pat ig1,ig2,ig3,ig4,ig5,ig6,ig7,ig8,ig9,ig10,ig11,ig12,cm1,cm2,cm3,cm4,cm5,cm6,cm7,cm8,cm9,cm10,cm11,cm12;
//-----------------------------------------------------------
void Massiv()
{
int i,j,b;
for (i=1;i<=13;i++)
  for (j=1;j<=4;j++) q[(i-1)*4+j]=i;
randomize();
for (i=1;i<=52;i++)
{
  j=random(52);
  b=q[i];
  q[i]=q[j];
  q[j]=b;
}
}
//-----------------------------------------------------------
void zanos_ig(int w,int x,int y)
{
 switch (x)
 {
  case 1:ig1[y]=w;break;
  case 2:ig2[y]=w;break;
  case 3:ig3[y]=w;break;
  case 4:ig4[y]=w;break;
  case 5:ig5[y]=w;break;
 }
 switch (y)
 {
  case 1:ig6[x]=w;break;
  case 2:ig7[x]=w;break;
  case 3:ig8[x]=w;break;
  case 4:ig9[x]=w;break;
  case 5:ig10[x]=w;break;
 }
 if (x==6-y) ig12[x]=w;
 if (x==y) ig11[x]=w;
}
//-----------------------------------------------------------
void podschet(pat a, int& s)
{
int p,l,sum=0,z[13];
for (p=1;p<=13;p++) z[p]=0;
for (p=1;p<=13;p++)
  for (l=1;l<=5;l++) if (a[l]==p) z[p]=z[p]+1;
 if (z[1]==1 && z[10]==1 && z[11]==1 && z[12]==1 && z[13]==1) sum=150;
 if (z[1]==4) sum=200;
 if (z[1]==3 && z[13]==2) sum=100;
 for (p=2;p<13;p++) if (z[p]==4) sum=160;
 for (p=1;p<13;p++)
   if (z[p]==3)
     for (l=1;l<13;l++) if (z[l]==2) sum=80;
 if (sum==0)
  for (p=1;p<13;p++) if (z[p]==3) sum=40;
 if (sum==0)
  for (p=1;p<13;p++)
   if (z[p]==2)
    for (l=p+1;l<13;l++) if (z[l]==2) sum=20;
 if (sum==0)
  for (p=1;p<13;p++)
   if (z[p]==2) sum=10;
 if (sum==0)
  for (p=1;p<9;p++)
   if (z[p]==1 && z[p+1]==1 && z[p+2]==1 && z[p+3]==1 && z[p+4]==1) sum=50;
s=sum;
}
//------------------------------------------------------------
void reit_t(pat z, int x, int y, ver1 we)
{
 int a1,p,l,l1,nul=0,q1[13];bool fl;
 for (p=1;p<5;p++) if (z[p]==0) nul=nul+1;
 for (p=1;p<13;p++) q1[p]=0;
 for (p=1;p<13;p++)
  for (l=1;l<5;l++) if (z[l]==p) q1[p]=q1[p]+1;
//------1-10-11-12-13-----------------------
if (q1[1]<2 && q1[10]<2 && q1[11]<2 && q1[12]<2 && q1[13]<2
 && q1[2]==0 && q1[3]==0 && q1[4]==0 && q1[5]==0 && q1[6]==0 && q1[7]==0 && q1[8]==0 && q1[9]==0)
  {
   we[x][y][1]=1;
   we[x][y][10]=1;
   we[x][y][11]=1;
   we[x][y][12]=1;
   we[x][y][13]=1;
  }
//-------1-2-3-4-5--------------------------
 if (q1[1]<2 && q1[2]<2 && q1[3]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[6]==0 && q1[7]==0 && q1[8]==0 && q1[9]==0)
  {
   we[x][y][1]=1;
   we[x][y][4]=1;
   we[x][y][5]=1;
   we[x][y][2]=1;
   we[x][y][3]=1;
  }
//-------2-3-4-5-6--------------------------
 if (q1[6]<2 && q1[2]<2 && q1[3]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[7]==0 && q1[8]==0 && q1[9]==0)
  {
   we[x][y][6]=1;
   we[x][y][5]=1;
   we[x][y][4]=1;
   we[x][y][3]=1;
   we[x][y][2]=1;
  }
//-------3-4-5-6-7--------------------------
 if (q1[6]<2 && q1[7]<2 && q1[3]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[8]==0 && q1[9]==0)
  {
   we[x][y][6]=1;
   we[x][y][4]=1;
   we[x][y][5]=1;
   we[x][y][7]=1;
   we[x][y][3]=1;
  }
//-------4-5-6-7-8--------------------------
 if (q1[6]<2 && q1[7]<2 && q1[8]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[9]==0)
  {
   we[x][y][6]=1;
   we[x][y][4]=1;
   we[x][y][5]=1;
   we[x][y][7]=1;
   we[x][y][8]=1;
  }
//-------5-6-7-8-9--------------------------
 if (q1[6]<2 && q1[7]<2 && q1[8]<2 && q1[9]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
  {
   we[x][y][6]=1;
   we[x][y][9]=1;
   we[x][y][5]=1;
   we[x][y][7]=1;
   we[x][y][8]=1;
  }
//-------6-7-8-9-10-------------------------
 if (q1[6]<2 && q1[7]<2 && q1[8]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
  {
   we[x][y][6]=1;
   we[x][y][9]=1;
   we[x][y][10]=1;
   we[x][y][7]=1;
   we[x][y][8]=1;
  }
//-------7-8-9-10-11------------------------
 if (q1[11]<2 && q1[7]<2 && q1[8]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[6]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
  {
   we[x][y][11]=1;
   we[x][y][9]=1;
   we[x][y][10]=1;
   we[x][y][7]=1;
   we[x][y][8]=1;
  }
//--------8-9-10-11-12----------------------
 if (q1[11]<2 && q1[12]<2 && q1[8]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[6]==0 && q1[7]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
  {
   we[x][y][11]=1;
   we[x][y][9]=1;
   we[x][y][10]=1;
   we[x][y][12]=1;
   we[x][y][8]=1;
  }
//---------9-10-11-12-13--------------------
 if (q1[11]<2 && q1[12]<2 && q1[13]<2 && q1[9]<2 && q1[10]<2 && q1[5]==0 &&
 q1[6]==0 && q1[7]==0 && q1[8]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
  {
   we[x][y][11]=1;
   we[x][y][9]=1;
   we[x][y][10]=1;
   we[x][y][12]=1;
   we[x][y][13]=1;
  }
//--------четверка--------------------------
 for (p=1;p<13;p++)
 {
   if (q1[p]==3 && nul>0) we[x][y][p]=1;
 }
//---------три+2----------------------------
 for (p=1;p<13;p++)
 {
  if (q1[p]==3)
  {
   for (l=1;l<13;l++)
     if (q1[l]>0 && nul>0) we[x][y][l]=1;
  }
 }
//--------тройка----------------------------
 for (p=1;p<13;p++)
 {
  if (q1[p]==2 && nul>0) we[x][y][p]=1;
 }
//---------2+2------------------------------
 for (p=1;p<13;p++)
 {
  if (q1[p]==2 && nul>0)
  {
    for (l=1;l<13;l++)
      if (q1[l]>0 && l!=p) we[x][y][l]=1;
  }
 }
}
//------------------------------------------------------------
void mcv(ver2 ww, ver1 qq)
{
 int p,o,i,l,k; pat z;
 for (p=1;p<5;p++)
  for (o=1;o<5;o++)
   for (i=1;i<13;i++) qq[p][o][i]=0;
 for (p=1;p<5;p++)
  for (o=1;o<5;o++)
  {
    if (ww[p][o]==0)
    {
      for (i=1;i<5;i++)
      {
       z[i]=ww[p][i];
       reit_t(z,p,o,qq);
      }
      for (i=1;i<5;i++)
      {
       z[i]=ww[i][o];
       reit_t(z,p,o,qq);
      }
      if (p==o)
       for (i=1;i<5;i++)
       {
        z[i]=ww[i][i];
        reit_t(z,p,o,qq);
       }
      if (p==6-o)
       for (i=1;i<5;i++)
       {
        z[i]=ww[i][6-i];
        reit_t(z,p,o,qq);
       }
     }
   }
}
//------------------------------------------------------------
int reit(pat z)
{
int a1,p,l,l1,nul=0,q1[13];  float r=100,rm=100;  bool fl;
for (p=1;p<=5;p++)  if (z[p]==0) nul++;
for (p=1;p<=13;p++) q1[p]=0;
for (p=1;p<=13;p++)
  for (l=1;l<=5;l++)
    if (z[l]==p) q1[p]=q1[p]+1;
//------1-10-11-12-13-----------------------
 if (q1[1]<2 && q1[10]<2 && q1[11]<2 && q1[12]<2 && q1[13]<2 &&
 q1[2]==0 && q1[3]==0 && q1[4]==0 && q1[5]==0 && q1[6]==0 && q1[7]==0 && q1[8]==0 && q1[9]==0)
 {
   r=(1-q1[1])*MV[1]/4*(25-n)/(52-n)+(1-q1[10])*MV[10]/4*(21-n)/(48-n)+(1-q1[11])*
   MV[11]/4*(22-n)/(49-n)+(1-q1[12])*MV[12]/4*(23-n)/(50-n)+(1-q1[13])*MV[13]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------1-2-3-4-5--------------------------
 if (q1[1]<2 && q1[2]<2 && q1[3]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[6]==0 && q1[7]==0 && q1[8]==0 && q1[9]==0)
 {
   r=(1-q1[1])*MV[1]/4*(25-n)/(52-n)+(1-q1[2])*MV[2]/4*(21-n)/(48-n)+(1-q1[3])*
   MV[3]/4*(22-n)/(49-n)+(1-q1[4])*MV[4]/4*(23-n)/(50-n)+(1-q1[5])*MV[5]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------2-3-4-5-6--------------------------
 if (q1[6]<2 && q1[2]<2 && q1[3]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[7]==0 && q1[8]==0 && q1[9]==0)
 {
   r=(1-q1[6])*MV[6]/4*(25-n)/(52-n)+(1-q1[2])*MV[2]/4*(21-n)/(48-n)+(1-q1[3])*
   MV[3]/4*(22-n)/(49-n)+(1-q1[4])*MV[4]/4*(23-n)/(50-n)+(1-q1[5])*MV[5]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------3-4-5-6-7--------------------------
 if (q1[6]<2 && q1[7]<2 && q1[3]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[8]==0 && q1[9]==0)
 {
   r=(1-q1[6])*MV[6]/4*(25-n)/(52-n)+(1-q1[7])*MV[7]/4*(21-n)/(48-n)+(1-q1[3])*
   MV[3]/4*(22-n)/(49-n)+(1-q1[4])*MV[4]/4*(23-n)/(50-n)+(1-q1[5])*MV[5]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------4-5-6-7-8--------------------------
 if (q1[6]<2 && q1[7]<2 && q1[8]<2 && q1[4]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[9]==0)
 {
   r=(1-q1[6])*MV[6]/4*(25-n)/(52-n)+(1-q1[7])*MV[7]/4*(21-n)/(48-n)+(1-q1[8])*
   MV[8]/4*(22-n)/(49-n)+(1-q1[4])*MV[4]/4*(23-n)/(50-n)+(1-q1[5])*MV[5]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------5-6-7-8-9--------------------------
 if (q1[6]<2 && q1[7]<2 && q1[8]<2 && q1[9]<2 && q1[5]<2
  && q1[10]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
 {
   r=(1-q1[6])*MV[6]/4*(25-n)/(52-n)+(1-q1[7])*MV[7]/4*(21-n)/(48-n)+(1-q1[8])*
   MV[8]/4*(22-n)/(49-n)+(1-q1[9])*MV[9]/4*(23-n)/(50-n)+(1-q1[5])*MV[5]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//--------6-7-8-9-10-------------------------
 if (q1[6]<2 && q1[7]<2 && q1[8]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[11]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
 {
   r=(1-q1[6])*MV[6]/4*(25-n)/(52-n)+(1-q1[7])*MV[7]/4*(21-n)/(48-n)+(1-q1[8])*
   MV[8]/4*(22-n)/(49-n)+(1-q1[9])*MV[9]/4*(23-n)/(50-n)+(1-q1[10])*MV[10]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//--------7-8-9-10-11-------------------------
 if (q1[11]<2 && q1[7]<2 && q1[8]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[6]==0 && q1[12]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
 {
   r=(1-q1[11])*MV[11]/4*(25-n)/(52-n)+(1-q1[7])*MV[7]/4*(21-n)/(48-n)+(1-q1[8])*
   MV[8]/4*(22-n)/(49-n)+(1-q1[9])*MV[9]/4*(23-n)/(50-n)+(1-q1[10])*MV[10]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------8-9-10-11-12-------------------------
 if (q1[11]<2 && q1[12]<2 && q1[8]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[6]==0 && q1[7]==0 && q1[13]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
 {
   r=(1-q1[11])*MV[11]/4*(25-n)/(52-n)+(1-q1[12])*MV[12]/4*(21-n)/(48-n)+(1-q1[8])*
   MV[8]/4*(22-n)/(49-n)+(1-q1[9])*MV[9]/4*(23-n)/(50-n)+(1-q1[10])*MV[10]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------9-10-11-12-13-------------------------
 if (q1[11]<2 && q1[12]<2 && q1[13]<2 && q1[9]<2 && q1[10]<2
  && q1[5]==0 && q1[6]==0 && q1[7]==0 && q1[8]==0 && q1[1]==0 && q1[2]==0 && q1[3]==0 && q1[4]==0)
 {
   r=(1-q1[11])*MV[11]/4*(25-n)/(52-n)+(1-q1[12])*MV[12]/4*(21-n)/(48-n)+(1-q1[13])*
   MV[13]/4*(22-n)/(49-n)+(1-q1[9])*MV[9]/4*(23-n)/(50-n)+(1-q1[10])*MV[10]/4*(24-n)/(51-n);
   if (r<rm) rm=r;
 }
//-------четверка--------------------------
 for (p=1;p<13;p++)
  if (q1[p]==3 && nul>0)
  {
   r=(4-q1[p])*MV[p]/4*(25-n)/(52-n);
   if (r<rm) rm=r;
  }
//--------3+2-------------------------
 for (p=1;p<13;p++)
  if (q1[p]==3)
   for (l=1;l<13;l++)
    if (q1[l]>0 && nul>0)
    {
      r=(2-q1[l])*MV[l]/4*(25-n)/(52-n);
      if (r<rm) rm=r;
    }
//-------тройка--------------------------
 for (p=1;p<13;p++)
  if (q1[p]==2 && nul>0)
  {
    r=(3-q1[p])*MV[p]/4*(25-n)/(52-n);
    if (r<rm) rm=r;
  }
//-------2+2--------------------------
 for (p=1;p<13;p++)
  if (q1[p]==2 && nul>0)
   for (l=1;l<13;l++)
    if (q1[l]>0 && l!=p)
    {
      r=(2-q1[l])*MV[l]/4*(25-n)/(52-n);
      if (r<rm) rm=r;
    }
  for (p=1;p<13;p++)
  if (q1[p]==2 && rm==100)
  {
    r=0;
    if (r<rm) rm=r;
  }
if (rm==100 && nul<=3) rm=2*rm;
return rm;
}
//------------------------------------------------------------
void MC(int x)
{
float s1,s2=1000;
int p1,o1,p,o,x1=0,y1=0;
pat qw;
MV[x]=MV[x]-1;
if (n==1)
{
  x1=1;
  y1=1;
  p=1;
  o=1;
}
else
  for (p=1;p<=5;p++)
   for (o=1;o<=5;o++)
    if (a[p][o]==0 && ver[p][o][x]==1)
    {
      s1=0;
      a[p][o]=x;
      for (p1=1;p1<5;p1++) qw[p1]=a[p][p1];
      s1=reit(qw);
      for (p1=1;p1<5;p1++) qw[p1]=a[p1][p];
      s1+=reit(qw);
      if (p==o)
      {
        for (p1=1;p1<5;p1++) qw[p1]=a[p1][p1];
        s1+=reit(qw);
      }
      if (p==6-o)
      {
        for (p1=1;p1<5;p1++) qw[p1]=a[p1][6-p1];
        s1+=reit(qw);
      }
      if (s1<s2)
      {
        s2=s1;
        x1=p;
        y1=o;
      }
      a[p][o]=0;
    }
 if (x1==0 && y1==0)
  for (p=1;p<=5;p++)
   for (o=1;o<=5;o++)
    if (a[p][o]==0)
    {
      s1=0;
      a[p][o]=x;
      for (p1=1;p1<5;p1++) qw[p1]=a[p][p1];
      s1=reit(qw);
      for (p1=1;p1<5;p1++) qw[p1]=a[p1][p];
      s1+=reit(qw);
      if (p==o)
      {
        for (p1=1;p1<5;p1++) qw[p1]=a[p1][p1];
        s1+=reit(qw);
      }
      if (p==6-o)
      {
        for (p1=1;p1<5;p1++) qw[p1]=a[p1][6-p1];
        s1+=reit(qw);
      }
      if (s1<s2)
      {
        s2=s1;
        x1=p;
        y1=o;
      }
      a[p][o]=0;
    }
Form1->StringGrid2->Cells[x1][y1]=IntToStr(x);
a[x1][y1]=x;
mcv(a,ver);
if (n==25)
 for (p=1;p<=5;p++)
  for (o=1;o<=5;o++)
  {
    switch (p)
    {
     case 1:cm1[o]=a[p][o];break;
     case 2:cm2[o]=a[p][o];break;
     case 3:cm3[o]=a[p][o];break;
     case 4:cm4[o]=a[p][o];break;
     case 5:cm5[o]=a[p][o];break;
    }
    switch (o)
    {
     case 1:cm6[p]=a[p][o];break;
     case 2:cm7[p]=a[p][o];break;
     case 3:cm8[p]=a[p][o];break;
     case 4:cm9[p]=a[p][o];break;
     case 5:cm10[p]=a[p][o];break;
    }
    if (p==6-o) cm12[p]=a[p][o];
    if (p==o)   cm11[p]=a[p][o];
   }
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)   //Выйти из игры
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)    //Новая игра
{
int x,y,p,o,l;
 Label4->Visible=false;
 Label5->Visible=false;
 Edit3->Text="";
 Edit2->Text="";
 Edit3->Visible=false;
 Edit2->Visible=false;
 for(x=0;x<=5;x++)
  for(y=0;y<=5;y++)
  {
    StringGrid1->Cells[x][y]="";
    StringGrid2->Cells[x][y]="";
  }
 for(x=0;x<=5;x++)
  for(y=0;y<=5;y++)
  {
    StringGrid1->Cells[x][y]="";
    StringGrid2->Cells[x][y]="";
    switch (x)
    {
      case 1:ig1[y]=0;break;
      case 2:ig2[y]=0;break;
      case 3:ig3[y]=0;break;
      case 4:ig4[y]=0;break;
      case 5:ig5[y]=0;break;
    }
    switch (y)
    {
      case 1:ig6[x]=0;break;
      case 2:ig7[x]=0;break;
      case 3:ig8[x]=0;break;
      case 4:ig9[x]=0;break;
      case 5:ig10[x]=0;break;
    }
if (x==6-y) ig12[x]=0;
if (x==y)   ig11[x]=0;
  }
 for(p=1;p<=5;p++)
  for(o=1;o<=5;o++)
   for(l=1;l<=13;l++) ver[p][o][l]=1;
Massiv();
for(p=1;p<=25;p++)
  if (q[p]>13) q[p]=q[26];
for(p=1;p<=5;p++)
  for(o=1;o<=5;o++)
   a[p][o]=0;
for(p=1;p<=13;p++) MV[p]=4;
n=1; summa=0;
Edit1->Text=IntToStr(q[1]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int p,o,l;
 for (p=1;p<=5;p++)
  for (o=1;o<=5;o++)
   for (l=1;l<=13;l++) ver[p][o][l]=1;
Massiv();
 for (p=1;p<=25;p++) if (q[p]>13) q[p]=q[26];
 for (p=1;p<=5;p++)
  for (o=1;o<=5;o++) a[p][o]=0;
 for (p=1;p<=13;p++) MV[p]=4;
 n=1; summa=0;
 Form1->Edit1->Text=IntToStr(q[1]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 int sum=0;
 if (n<=25 && StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=="")
 {
   zanos_ig(q[n],StringGrid1->Col,StringGrid1->Row);
   MC(q[n]);
   n++;
   StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=IntToStr(q[n-1]);
   Edit1->Text=IntToStr(q[n]);
 }
 else
 {
   if (n<=25) ShowMessage("Эта ячейка занята!");
   Edit1->Text=IntToStr(q[n]);
 }
 if (n==26)
 {
   ShowMessage ("Подсчёт результатов.");
   podschet(ig1,sum);
   StringGrid1->Cells[1][0]=IntToStr(sum);
   summa+=sum;
   podschet(ig2,sum);
   StringGrid1->Cells[2][0]=IntToStr(sum);
   summa+=sum;
   podschet(ig3,sum);
   StringGrid1->Cells[3][0]=IntToStr(sum);
   summa+=sum;
   podschet(ig4,sum);
   StringGrid1->Cells[4][0]=IntToStr(sum);
   summa+=sum;
   podschet(ig5,sum);
   StringGrid1->Cells[5][0]=IntToStr(sum);
   summa+=sum;
   podschet(ig6,sum);
   StringGrid1->Cells[0][1]=IntToStr(sum);
   summa+=sum;
   podschet(ig7,sum);
   StringGrid1->Cells[0][2]=IntToStr(sum);
   summa+=sum;
   podschet(ig8,sum);
   StringGrid1->Cells[0][3]=IntToStr(sum);
   summa+=sum;
   podschet(ig9,sum);
   StringGrid1->Cells[0][4]=IntToStr(sum);
   summa+=sum;
   podschet(ig10,sum);
   StringGrid1->Cells[0][5]=IntToStr(sum);
   summa+=sum;
   podschet(ig11,sum);
   if (sum!=0)
   {
     StringGrid1->Cells[0][0]=IntToStr(sum+10);
     summa+=sum+10;
   }
   else StringGrid1->Cells[0][0]=IntToStr(0);
   podschet(ig12,sum);
   if (sum!=0)
   {
     StringGrid1->Cells[0][0]=StringGrid1->Cells[0][0]+'+'+IntToStr(sum+10);
     summa+=sum+10;
   }
   else StringGrid1->Cells[0][0]=StringGrid1->Cells[0][0]+'+'+IntToStr(0);
   Form1->Edit2->Text=IntToStr(summa);
   Edit2->Visible=true;
   Label4->Visible=true;
   //--------------------------------------
   ShowMessage("Подсчёт результатов у компьютера.");
   summa=0;
   podschet(cm1,sum);
   StringGrid2->Cells[1][0]=IntToStr(sum);
   summa+=sum;
   podschet(cm2,sum);
   StringGrid2->Cells[2][0]=IntToStr(sum);
   summa+=sum;
   podschet(cm3,sum);
   StringGrid2->Cells[3][0]=IntToStr(sum);
   summa+=sum;
   podschet(cm4,sum);
   StringGrid2->Cells[4][0]=IntToStr(sum);
   summa+=sum;
   podschet(cm5,sum);
   StringGrid2->Cells[5][0]=IntToStr(sum);
   summa+=sum;
   podschet(cm6,sum);
   StringGrid2->Cells[0][1]=IntToStr(sum);
   summa+=sum;
   podschet(cm7,sum);
   StringGrid2->Cells[0][2]=IntToStr(sum);
   summa+=sum;
   podschet(cm8,sum);
   StringGrid2->Cells[0][3]=IntToStr(sum);
   summa+=sum;
   podschet(cm9,sum);
   StringGrid2->Cells[0][4]=IntToStr(sum);
   summa+=sum;
   podschet(cm10,sum);
   StringGrid2->Cells[0][5]=IntToStr(sum);
   summa+=sum;
   podschet(cm11,sum);
   if (sum!=0)
   {
     StringGrid2->Cells[0][0]=IntToStr(sum+10);
     summa=summa+sum+10;
   }
   else StringGrid2->Cells[0][0]=IntToStr(0);
   podschet(cm12,sum);
   if (sum!=0)
   {
     StringGrid2->Cells[0][0]=StringGrid2->Cells[0][0]+'+'+IntToStr(sum+10);
     summa+=sum+10;
   }
   else StringGrid2->Cells[0][0]=StringGrid2->Cells[0][0]+'+'+IntToStr(0);
   Form1->Edit3->Text=IntToStr(summa);
   Edit3->Visible=true;
   Label5->Visible=true;
   if (StrToInt(Edit2->Text)>StrToInt(Edit3->Text)) ShowMessage("Вы выиграли!!"); else ShowMessage("ВЫ ПРОИГРАЛИ!");
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender) //Правила игры
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include <vector>
#include <windows.h>
#include <iostream>
#include <algorithm>
#include <vcl.h>
#pragma hdrstop
#include <stdlib.h>
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
using namespace std;
int z=0, k=0, x=0, y=0, n=50, r, n1=52, t, sum1=0, sum2=0;
vector<int> arr(52, 0); //будет содержать наши 52 числа
vector<int> comp(25); //вариант хода компа
vector<int> w(5, 2); //сюда будем считывать строки
vector<int> c(5, 0); //сюда будем считывать столбцы
int Arr1[5] = {1, 10, 11, 12, 13};
vector<int> w2(Arr1,Arr1+5);
int Arr2[5] = {1, 1, 1, 13, 13};
vector<int> w3(Arr2,Arr2+5);
vector<int> d1; //сюда будем считывать диагональ
vector<int> d2; //сюда будем считывать вторую диагональ
 
int scet(vector<int>& v1, int y)
{
  int temp=0, temp1=0, sum=0;
  sort(v1.begin(), v1.end());  //сортируем по возрастанию переданный вектор
  vector<int> w1(v1);   //новый вектор такой же, как v1
  w1.erase( unique(w1.begin(), w1.end() ), w1.end() );    //удаляем повторяющиеся элементы
  for(int i=0;i<w1.size();i++)
  {
    if (temp1<(count(v1.begin(),v1.end(),w1[i])))
    {
      temp1=count(v1.begin(),v1.end(),w1[i]);
      temp=v1[i];
    }
  }
  if(v1.size()==w1.size())
  {
    if (v1==w2) sum=sum+150;
    else
    {
      if (v1[0]==(v1[4]-4)) sum=sum+50;
      else {if (y==1) sum=sum-10;
    }
  }
  }
else
{
  if (w1.size()==4) sum=sum+10;
  if (w1.size()==3) if(temp1==3) sum=sum+40; else sum=sum+20;
  if (w1.size()==2) if(temp1==4)if(temp==1) sum=sum+200; else sum=sum+160;
  else if(v1==w3) sum=sum+100;  else sum=sum+80;
}
w1.clear();
if(y!=0) sum=sum+10;
return sum;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
randomize();
for (int i = 0; i < 52; i++) //цикл, что бы заполнить вектор
{
  k++; // свой счетчик, что бы когда мы доходили до числа после числа
       //кратного 13 сбрасывать его на 1. Получится 4 последовательности с 1 по 13
  if (i<25) comp[i]=i; // пока i меньше 25 заполняем ходы компа от 0 до 24
  if (((k-1)%13)==0) k=1; // тут при 14 27 40 сброс счетчика на 1
  arr[i]=k;
} // тут заносим в вектор наше число
t=rand()%n1; //выбираем рандомное число от 0 до 51
r=arr[t]; //приравниваем к значение из нашего вектора под номером t
arr.erase(arr.begin()+t); //удаляем из вектора это число
n1--; //уменьшаем счетчик на 1, т.к. удалили один элемент
Form1->Label4->Caption=r; // выводим полученое число, что бы игрок видел
random_shuffle (comp.begin(), comp.end() );}// перемешиваем числа в векторе компа
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(k==1 && z<n)
{
  k=0;
  if (z%2!=0 || Form1->RadioGroup1->ItemIndex==1)
  {
    Form1->StringGrid1->Enabled=true;
    Form1->StringGrid2->Enabled=false;
    if (Form1->RadioGroup1->ItemIndex==1) Form1->StringGrid2->Cells[comp[z]%5][comp[z]/5]=r;
    t=rand()%n1;
    r=arr[t];
    Form1->Label4->Caption=r;
    arr.erase(arr.begin()+t);
    n1--;
  }
  else
  {
    Form1->StringGrid1->Enabled=false;
    Form1->StringGrid2->Enabled=true;
  }
  z++;
}
if (z==n)
{
  for (int i=0; i<5; i++)
  {
    w.clear(); c.clear();
    d1.push_back(StrToInt(Form1->StringGrid1->Cells[i][i]));
    d2.push_back(StrToInt(Form1->StringGrid1->Cells[4-i][i]));
    for (int j=0; j<5; j++)
    {
      w.push_back(StrToInt(Form1->StringGrid1->Cells[i][j]));
      c.push_back(StrToInt(Form1->StringGrid1->Cells[j][i]));
    }
    if(i==4)
    {
      sum1=sum1+scet(d1, 1);
      sum1=sum1+scet(d2, 1);
    }
    sum1=sum1+scet(c, 0);
    sum1=sum1+scet(w, 0);
  }
  d1.clear(); d2.clear();
  for (int i=0; i<5; i++)
  {
    w.clear(); c.clear();
    d1.push_back(StrToInt(Form1->StringGrid2->Cells[i][i]));
    d2.push_back(StrToInt(Form1->StringGrid2->Cells[4-i][i]));
    for (int j=0; j<5; j++)
    {
      w.push_back(StrToInt(Form1->StringGrid2->Cells[i][j]));
      c.push_back(StrToInt(Form1->StringGrid2->Cells[j][i]));
    }
    if(i==4)
    {
      sum2=sum2+scet(d1, 1);
      sum2=sum2+scet(d2, 1);
    }
    sum2=sum2+scet(c, 0);
    sum2=sum2+scet(w, 0);
  }
  if(Form1->RadioGroup1->ItemIndex==0)
  {
    if (sum1<sum2) {ShowMessage("Игрок 1 проиграл");
  }
  if (sum1>sum2) ShowMessage("Игрок 2 проиграл");
  if (sum1==sum2)ShowMessage("Ничья!");
}
else
{
  if (sum1<=sum2) ShowMessage("Игрок проиграл");
  if (sum1>sum2) ShowMessage("Компьютер проиграл");
}
Form1->Button1->Enabled=false;
Form1->Label7->Caption=StrToInt(sum1);
Form1->Label8->Caption=StrToInt(sum2);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{Application->Terminate();}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
if(Form1->RadioGroup1->ItemIndex==0)
{
  Form1->Label1->Caption="Игрок 1";
  Form1->Label2->Caption="Игрок 2";
  Form1->Label5->Caption="Сумма очков Игрока 1";
  Form1->Label6->Caption="Сумма очков Игрока 2";
  n=50;
  Form1->StringGrid1->Enabled=true;
  Form1->StringGrid2->Enabled=false;
}
else
{
  Form1->Label1->Caption="Игрок";
  Form1->Label2->Caption="Компьютер";
  Form1->Label5->Caption="Сумма очков Игрока";
  Form1->Label6->Caption="Сумма очков Компьютера";
  n=25;
  Form1->StringGrid1->Enabled=true;
  Form1->StringGrid2->Enabled=false;
}
for(int i=0;i<5;i++)
{
  for(int j=0; j<5;j++)
  {
    Form1->StringGrid1->Cells[i][j] = "";
    Form1->StringGrid2->Cells[i][j] = "";
    Form1->Label7->Caption="0";
    Form1->Label8->Caption="0";
    z=0;
    Form1->Button1->Enabled=true;
  }
}
}
void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=="")
{
  if (k==1) StringGrid1->Cells[x][y]="";
  Form1->StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=r;
  x=StringGrid1->Col;
  y=StringGrid1->Row;
  k=1;
}
else ShowMessage("Ячейка занята");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (StringGrid2->Cells[StringGrid2->Col][StringGrid2->Row]=="")
{
  if (k==1) StringGrid2->Cells[x][y]="";
  Form1->StringGrid2->Cells[StringGrid2->Col][StringGrid2->Row]=r;
  x=StringGrid2->Col;
  y=StringGrid2->Row;
  k=1;
}
else ShowMessage("Ячейка занята");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
MessageBox(NULL,"Код Vergil","О авторе", MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
sum1=0; sum2=0;
for(int i=0;i<5;i++)
{
  for(int j=0; j<5;j++)
  {
    Form1->StringGrid1->Cells[i][j] = "";
    Form1->StringGrid2->Cells[i][j] = "";
    Form1->Label7->Caption="0";
    Form1->Label8->Caption="0";
    z=0;
    Form1->Button1->Enabled=true;
  }
}
}
 
void __fastcall TForm1::N2Click(TObject *Sender)
{ Form2->ShowModal(); }