програмування 
Усім відома гра “15”. Ось її правила. У прямокутній коробочці знаходяться 15 фішок, на яких написані числа від 1 до 15. Розмір коробочки – 4×4, таким чином у коробочці є одна порожня комірка. На початку гри фішки перемішані. Завдання гравця полягає в тому, щоб, не виймаючи фішки з коробочки, вибудувати фішки в правильному порядку.
#include <vcl.h>
#pragma hdrstop
#include <cstdlib>
#include <ctime>
#include <cmath>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#define WC 48
#define HC 48
byte pole[4][4]; // ігрове поле
byte ex,ey; // координати порожньої клітинки
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->Font->Size = 12;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
NewGame();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewGame()
{
// встановити розмір форми
ClientWidth = WC * 4;
ClientHeight = HC * 4;
int k = 1;
for (int i = 0; i < 4; i++)
for (int j = 0; j < 4; j++)
pole[i][j] = k++;
Mixer();
ShowPole();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Mixer()
{
int x1, y1;
int x2, y2;
int d;
Randomize();
x1 = 3; y1 = 3;
for (int i = 0; i < 150; i++)
{
do {
x2 = x1;
y2 = y1;
d = rand()%5;
switch (d) {
case 1: x2--; break;
case 2: x2++; break;
case 3: y2--; break;
case 4: y2++; break;
}
}
while ( (x2 < 0) || (x2 >= 4) || (y2 < 0) || (y2 >= 4));
pole[y1][x1] = pole[y2][x2];
pole[y2][x2] = 16;
x1 = x2;
y1 = y2;
};
ex = x1;
ey = y1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShowPole()
{
int x,y; // координати лівого верхнього кута клітинки
for (int i = 0; i < 4; i++)
for (int j = 0; j < 4; j++)
{
x = j * HC;
y = i * WC;
if (pole[i][j] != 16 ) {
Canvas->Brush->Color = clBtnFace;
Canvas->Rectangle(x,y, x+WC-1, y+HC-1);
Canvas->TextOutA(x+15,y+10,
IntToStr(pole[i][j]));
}
else {
Canvas->Brush->Color = clBtnHighlight;
Canvas->Rectangle(x,y, x+WC-1, y+HC-1);
}
}
}
bool Finish();
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
int cx = X / WC; // визначення координати x клітинки
int cy = Y / HC; // визначення координати y клітинки
if ((abs(cx - ex) == 1 && cy - ey == 0) ||
(abs(cy - ey) == 1 && cx - ex == 0))
{
pole[ey][ex] = pole[cy][cx];
pole[cy][cx] = 16;
ex = cx;
ey = cy;
ShowPole();
if (Finish())
{
ShowPole();
int r = MessageDlg("Ціль досягнута! Ще раз?", mtInformation, TMsgDlgButtons() << mbYes << mbNo, 0);
if (r == mrNo)
Form1->Close();
else
{
NewGame();
ShowPole();
}
}
}
}
//---------------------------------------------------------------------------
bool Finish()
{
bool result;
int row, col;
int k = 1;
result = true;
for (row = 0; row < 4; row++)
{
for (col = 0; col < 4; col++)
if ( pole[row][col] == k )
k++;
else {
result = false;
break;
}
if ( ! result ) break;
}
return (result) ;
};
void __fastcall TForm1::FormPaint(TObject *Sender)
{
ShowPole();
}