Delphi dasturlash muhitida ilova oynasining eni 600 dan va bo‘yi 500 dan oshsa, ogohlantiruvchi yozuv chiqadigan dastur

Bilet №3, savol №3

Javob

Bitta button o‟rnatib, uning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
begin
If (Form1.Width<600) or (Form1.Height<500) then begin
Form1.Width:=Form1.Width+16; Form1.Height:=Form1.Height+9; End else
ShowMessage('Oyna boshqa kengaymaydi');
end;

Ko'proq vazifalar

1 2 3

Fan: Informatika fanidan imtixon savollariga javoblar 10 sinf
Bilet: №3

Telegram

Organish.uz
BSB-CHSB.com

U erda biz BSB, CHSB, maktab imtihonlari, DTM variantlari va boshqalarning echimlarini nashr etamiz.

BSB Javoblari

5 sinf
6 sinf
7 sinf
8 sinf
9 sinf
10 sinf
11 sinf

CHSB Javoblari

5 sinf
6 sinf
7 sinf
8 sinf
9 sinf
10 sinf
11 sinf

Imtihon Javoblari

9 sinf
11 sinf