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

void __fastcall TMain::Mina(int x, int y)

{

Canvas->Brush->Color = clGreen;

Canvas->Pen->Color = clBlack;

Canvas->Rectangle(x+16,y+26,x+24,y+30);

// korpusi

Canvas->Rectangle(x+8,y+30,x+32,y+34);

Canvas->Pie(x+6,y+28,x+34,y+44,x+34,y+36,x+6,y+36);

// korpusdagi chiziq

Canvas->MoveTo(x+12,y+32); Canvas->LineTo(x+28,y+32);

// asosi

Canvas->MoveTo(x+8,y+36); Canvas->LineTo(x+32,y+36);

// vertikal "mo’ylov"

Canvas->MoveTo(x+20,y+22); Canvas->LineTo(x+20,y+26);

// yon tomondagi "mo’ylovlar"

Canvas->MoveTo(x+8, y+30); Canvas->LineTo(x+6,y+28);

Canvas->MoveTo(x+32,y+30); Canvas->LineTo(x+34,y+28);

}

// Bayroqni chizish

void __fastcall TMain::Flag(int x, int y)

{

TPoint p[4]; // bayroq koordinatlari va quyi nuqtalar

// bayroqning dastagi nuqtalari

p[0].x=x+4; p[0].y=y+4;

p[1].x=x+30; p[1].y=y+12;

p[2].x=x+4; p[2].y=y+20;

// mo’yqalam va qalam rangini o’rnatish

Canvas->Brush->Color = clRed;

Canvas->Pen->Color = clRed;// bayroq xoshiyasi qizil

// bo’lishi kerak

Canvas->Polygon(p,2); // bayroq

// dastagi

Canvas->Pen->Color = clBlack;

Canvas->MoveTo(p[0].x, p[0].y);

Canvas->LineTo(x+4,y+36);

TPoint m[5]; // М harfi

m[0].x=x+8; m[0].y=y+14;

m[1].x=x+8; m[1].y=y+8;

m[2].x=x+10; m[2].y=y+10;

m[3].x=x+12; m[3].y=y+8;

m[4].x=x+12; m[4].y=y+14;

Canvas->Pen->Color =clWhite;

Canvas->Polyline(m,4);

Canvas->Pen->Color = clBlack;

}

// asosiy menyudagi Yangi o’yin bo’yrug’i

void __fastcall TMain::Yangioyin1Click(TObject *Sender)

{

NewGame();

ShowPole(status);

}

// "?" menyusidagi Dastur xaqida bo’yrug’i

void __fastcall TMain::Dasturxaqida2Click(TObject *Sender)

{

About->ShowModal();

}

// "?" menyusidagi Ma’lumotnoma bo’yrug’i

void __fastcall TMain::Dasturxaqida1Click(TObject *Sender)

{

/* Windows tarkibiga kirgan hh.exe utilitasi ma’lumotnomani tasvirlashni ta’minlaydi. mappid kaliti ma’lumotnoma bo’limini tasvirlashni beradi. */

WinExec("hh.exe -mapid 1 saper.chm", SW_RESTORE);

}

// *** Dastur xaqida forma ***

// OK tugmasini bosdi

void __fastcall TAbout::Button1Click(TObject *Sender)

{

ModalResult = mrOk;

}
15 o’yini

“15” o’yini hammaga ma’lum. Mana uning qoidasi. To’g’riburchakli qutida 1 dan 15 gacha sonlar yozilgan 15 ta soqqa joylashgan. qutining o’lchami – 4x4, shunung uchun qutida bitta bo’sh katak bor. O’yin boshida soqqalar aralashtirilgan (1.52-rasm). O’yinchining vazifasi quyidagidan iborat, чтобы, невынимая фишки из коробочки, выстроить фишки в правильном порядке. (1.53-rasm).