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


toping (1 ta Label, 1 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)


Download 49.33 Kb.
bet14/17
Sana21.04.2023
Hajmi49.33 Kb.
#1373416
1   ...   9   10   11   12   13   14   15   16   17
Bog'liq
dasturlash

toping (1 ta Label, 1 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
26. To’g’ri to’rtburchakka tashqi chizilgan doiraning yuzi S berilgan bo’lsa, to’g’ri to’rtburchak yuzini toping. (1 ta Label, 1 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
27. Markazlari bir nuqtada bo’lgan R1 va R2 radiusli doiralar hosil qilgan halqa yuzini hisoblang. (2 ta Label, 2 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
28. Parallelepipedning a,b va c qirralari berilgan bo’lsa bo’lsa, uning hajmining yarmini va yuzini hisoblang (3 ta Label, 3 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
29. Perimetri P bo’lgan kvadratning yuzini topish dasturini tuzing.
30. Berilgan A va B sonlar modullarining o’rta geometrigini hisoblang (2 ta Label, 2 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
4-TOPSHIRIQ
1. Uchburchakning o’rta chiziqlari hosil qilgan kichik uchburchak perimetri A va yuzasi B berilgan. Katta uchburchakning perimetri va yuzini toping. (2 ta Label, 2 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
int a, b;
a = Convert::ToDouble(maskedTextBox1->Text);
b = Convert::ToDouble(maskedTextBox1->Text);
label1->Text = "Asosiy uchburchak yuzasi: " + Convert::ToString(a *
4);
label2->Text = "Asosiy uchburchak perimetri: " +
Convert::ToString(b * 2)

2. Ox o’qida A(x1), B(x2) va C(x3) nuqtalar berilgan. AB va BC kesmalar uzunliklari
yig’indisini aniqlang. (3 ta Label, 3 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)

  1. Birinchi listBoxda foydalanuvchilarning ismi va familiyalari berilgan. 2-listBoxda ushbu ism familiyalarni faqat bosh harfda chop eting

if (ism->Text == "" && familya->Text == "")
MessageBox::Show("Qiymatlar kiritilmadi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);
else
if (ism->Text == "")
MessageBox::Show("Ismga qiymat kiritilmadi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);
else
if (familya->Text == "")
MessageBox::Show("Familyaga qiymat kiritilmadi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);
else {
String ^a = ism->Text, ^b = familya->Text;
i->Text = "Ism:" + a->ToUpper();
f->Text = "Familya:" + b->ToUpper();
}


Download 49.33 Kb.

Do'stlaringiz bilan baham:
1   ...   9   10   11   12   13   14   15   16   17




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling