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


Agar arifmetik progressiyaning birinchi hadi


Download 48.25 Kb.
bet2/17
Sana23.11.2023
Hajmi48.25 Kb.
#1795130
1   2   3   4   5   6   7   8   9   ...   17
Bog'liq
1-topshiriq to’g’ri burchakli uchburchakning a va-fayllar.org

6. Agar arifmetik progressiyaning birinchi hadi a1 va ayirmasi d ma’lum bo’lsa, ushbu arifmetik progressiyaning n ta hadining yig’indisini topish algoritmini tuzing (Ko’rsatma: 3 ta Label, 3 ta TextBox, 1 ta Button Natijalar Labelda chiqarilsin)
7. Uchburchakning a, b, c tomonlari berilgan. Ushbu uchburchakning barcha burchaklarini topish dasturini tuzing (Ko’rsatma: 6 ta Label, 6 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
8. Tomonlari a, b, c, bo’lgan uchburchakka uchburchakka ichki chizilgan aylananing yuzasini topish dasturini tuzing. (Ko’rsatma: 3 ta Label, 3 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
double a, b, c, r, S;
a = Convert::ToDouble(textBox1->Text);
b = Convert::ToDouble(textBox2->Text);
c = Convert::ToDouble(textBox3->Text);
r = (a+b-c) / 2;
S = r*(a + b + c) / 2;
label4->Text = "Uchburchakka ichki chirilgan aylananing yuzasi = " + S;
9. Tomonlari a, b, c, bo’lgan uchburchakka uchburchakka ichki chizilgan aylananing yuzasini topish dasturini tuzing. (Ko’rsatma: 3 ta Label, 3 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
10. Geometrik progressiyaning birinchi b1, ko’paytmasi q berilgan. n-hadini topish algoritmini tuzing.( Ko’rsatma: 3 ta Label, 3 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
int b1, q, n;
float S;
b1 = Convert::ToInt16(textBox1->Text);
q = Convert::ToInt16(textBox2->Text);
n = Convert::ToInt16(textBox3->Text);
if (q != 1) {
S = b1*(1 - pow(q, n)) / (1 - q);
}
else {
MessageBox::Show("q birga teng emas", "Error",
MessageBoxButtons::OK);
}
label5->Text = Convert::ToString(S);
}
private: System::Void textBox1_KeyPress(System::Object^ sender,
System::Windows::Forms::KeyPressEventArgs^ e) {
if (e->KeyChar == '.') {
if (this->textBox1->Text->Contains(".") && !this->textBox1->SelectedText-
>Contains("."))
e->Handled = true;
}
// Allow negative numbers
else if (e->KeyChar == '-' && !(this->textBox1->Text->Contains("-"))) {
e->Handled = true;
textBox1->Text = "-" + textBox1->Text;
}
// Accept only digits ".", "-" and the Backspace character
else if (!Char::IsDigit(e->KeyChar) && e->KeyChar != 0x08) {
e->Handled = true;
}
}
11. Uzunlik o’lchov birliklari uchun (sm dan m, mm, km, dm ga) konvertatsiya dasturini tuzing (Ko’rsatma: 2 ta Label, 5 ta RadioButton, 2 ta TextBox va 1 ta Button. Natijalar Labelda chiqarilsin)
12. Maktab o’quvchilarini sayohatga olib borish kerak. Hokimiyat o’quvchilar uchun avtobus ajratishi lozim. Avtobusga N ta o’quvchi ketadi. O’quvchular soni M ta. Hokimiyat nechta avtobus ajratishi lozim va oxirgi avtobusga nechta o’quvchi ketishini aniqlash dasturini tuzing. (Ko’rsatma: 2 ta Label, 2 ta TextBox va 1 ta Button. Natijalar Labelda chiqarilsin)
13. Insonning tug’ilgan yili va oyi ma’lum. Uning necha yil va necha oy yashaganini aniqlash dasturini tuzing. (Ko’rsatma: 1 ta dateTimePicker, 2 ta label, 1 ta button. Natija Label chiqarilsin)

Download 48.25 Kb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8   9   ...   17




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