R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

int WK, HK; // kataklar o’lchami (rasmlar)

void __fastcall TForm1::FormCreate(TObject *Sender)

{

int np; // pictures faylidagi rasmlar soni

Pictures = new Graphics::TBitmap();

try {

Pictures->LoadFromFile ("pictures.bmp");

}

catch (EFOpenError &e)

{

ShowMessage("Rasm joylashgan faylga murojaat"

" qilishda xatolik.");

return;

}

/* pictures faylida barcha rasmlar joylashgan.

Предполагается, что каждая картинка квадратная.

Считаем, что в файле 8,10,12,14 или 15 картинок:

Rasm Katak Maydon

---------------------

8 16 4x4

10 20 4x5

12 24 4x6

14 28 4x7

15 30 5x6

*/

HK = Pictures->Height-1; // rasmlar balandligi

WK = HK; // rasmlar kengligi

np = Pictures->Width / WK;

if (np < 15) H = 4;

else H = 5;

W = (np*2)/H;

// maydon (forma) o’lchamini o’rnatish

ClientHeight = H * HK;

ClientWidth = W * WK;

// taymerni sozlash

Timer1->Enabled = false;

Timer1->Interval = 200;

NewGame();

}

// yangi o’yin

void __fastcall TForm1::NewGame()

{

/*Pole ning xar bir yaycheykasiga rasm nomerini yozish kerak. Xar bir rasm juft bo’lganligi sababli, i soni xam Pole ning ikkita yaycheykasiga yozilishi kerak*/