1-topshiriq to’g’ri burchakli uchburchakning a va

29. 1 dona shokolad tayyorlash uchun B gramm kakao ishlatiladi. A kilogram kakaodan
tayyorlash mumkin bo’lgan shokoladlar sonini chiqaruvchi dastur tuzing. (Ko’rsatma: 2ta Label, 1 ta Tex tBox, 1 ta Button. Natija: Labelda chiqarilsin)
30. O’lchamlari A baytga teng bo’lgan N ta fayl berilgan. Barcha fayllar to’liq necha kilobay tbo’lishini chiqaruvchi dastur tuzing. . (Ko’rsatma: 2ta Label, 1 ta TextBox, 1 ta Button.Natija: Labelda chiqarilsin)
3-TOPSHIRIQ
1. Berilgan yil kabisa yili yoki yili emasligini aniqlovchi dastur tuzing. (Sana
DateTimePickerdan tanlansin. Natija Labelda chop etilsin)
2. Uzunligi A santimetr bo’lgan taxta berilgan. Narvonning pillapoyalarini yasash uchun B
santimetrli taxta bo’laklari kerak. Berilgan taxtadan yasash mumkin bo’lgan pillapoyalar
sonini chiqaruvchi dastur tuzing. (2 ta Label, 2 ta TextBox, 1 ta Button. Natija Labelda
chiqarilsin)
3. Sutka boshidan beri N sekund o’tdi. Sutka boshidan necha to’liq minut o’tganini
chiqaruvchi dastur dastur tuzing. (1 ta Label, 1 ta TextBox, 1 ta Button. Natija Labelda
chiqarilsin)
int n;
if (textBox1->Text == "") {
DateTime^t = DateTime::Now;
n = Convert::ToInt16(t->Hour) * 60 + Convert::ToInt16(t->Minute);
if (n > 0) {
S->Text = "Natija:" + Convert::ToString(n);
}
else MessageBox::Show("Qiymat noto'g'ri kiritildi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);

}
else {

n = Convert::ToInt16(textBox1->Text);
if (n > 0) {
n = n / 60;
S->Text = "Natija:" + Convert::ToString(n);
}
else MessageBox::Show("Qiymat noto'g'ri kiritildi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);

}

4. 
   Tezligi V km/soat bo’lgan samolyot T soatda uchib o’tgan S yo’lni metrlarda chiqaruvchi
   

double v, t, s, v1, t1;
v = Convert::ToDouble(textBox1->Text);
t = Convert::ToDouble(textBox2->Text);
v1 = v * 0.2777777778;
t1 = t * 3600;
s = v1 * t1;
label4->Text = "V = " + Convert::ToString(v1) + " m/s ";
label5->Text = "T = " + Convert::ToString(t1) + " s ";
label6->Text = "S = " + Convert::ToString(s) + " m ";
}