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

int col; // gorizantal bo’yicha kataklar nomeri

int row; // vertikal bo’yicha kataklar nomeri

col = X/WK;

row = Y/HK;

if (Pole[col][row]>=200)

// ochilgan rasm o’rnida tugma bosildi

return;

if (no == 0) // ochilgan kataklar yo’q

{

no = 1;

open1.x = col;

open1.y = row;

// katak ochilgan kabi belgilandi

Pole[open1.x][open1.y] += 100;

Kletka(open1.x,open1.y);

return;

}

if (no == 1)

{

// bitta katak ochilgan, ikkinchisini ochish kerak

open2.x = col;

open2.y = row;

// agar bitta katak ochilgan bo’lsa va unga

//sichqoncha tugmasi bosilsa, unda xech narsa sodir

//bo’lmasligi kerak

if ((open1.x==open2.x) && (open1.y==open2.y))

return;

else

{

no = 2; // endi ikkita katak ochildi

Pole[open2.x][open2.y] += 100;

Kletka(open2.x,open2.y);//ikkinchi katakni ochamiz

// ochilgan kataklar bir xilligini tekshiramiz

if(Pole[open1.x][open1.y]==Pole[open2.x][open2.y])

// ikkita bir xil kataklar ochilgan

{

nf++;

Form1->Timer1->Enabled=true; // taymerni yuklash

// OnTimer xodisani qayta ishlash funksiyasi

// ikkita bir xil rasmlarni "o’chiradi"

}

return;

}

}

if (no==2)

{

// ikkita turli rasmlar ochildi, ularni yopamiz va

// bosish amalga oshirilgan yangisini ochamiz

// ochilgan kataklarni yopish

Pole[open1.x][open1.y] -= 100;

Pole[open2.x][open2.y] -= 100;

Kletka(open1.x,open1.y);

Kletka(open2.x,open2.y);

// opqn1 ga joriy katak nomerini yozish

open1.x = col;

open1.y = row;

no = 1; // ochilgan kataklar hisoblagichi

// joriy katakni ochish

Pole[open1.x][open1.y] += 100;

Kletka(open1.x,open1.y);

}

}

// taymerdan signal

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

/* Xozir ikkita bir xil rasmlar aks ettiriladi.

Ularni topilgan kabi belgilash va ekrandan

o’chirish.*/

Pole[open1.x][open1.y] += 100;

Pole[open2.x][open2.y] += 100;

no = 0; // ochilgan kataklar soni

// Kataklarni qayta chizish

Kletka(open2.x,open2.y);

Kletka(open1.x,open1.y);

// taymerni to’xtatish

Form1->Timer1->Enabled = false;

if (nf == W*H/2)

{

// barcha juftliklarni ochish

Canvas->Font->Name = "Tahoma";

Canvas->Font->Size = 16;

Canvas->Font->Color = clBlue;

Canvas->Font->Color = clBlack;

Canvas->TextOut(100,160,"Game Over!");

Canvas->Font->Size = 10;

Canvas->TextOut(120,210,"Yusupov R.A., 2018");

}

}

// Paint xodisani qayta ishlash