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

Test-uz.Ru
Organish.uz
Sor-soch.com

Imtihon Javoblari

9 sinf
11 sinf

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