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


Download 48.25 Kb.
bet1/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


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

1-TOPSHIRIQ
1. To’g’ri burchakli uchburchakning a va b katetlari berilgan. Ushbu uchburchakning perimetri va yuzasini topish dasturini tuzing. (Ko’rsatma: 2 ta Label, 2 ta TextBox, 1 ta Button. Natija Labelda chiqarilsin)
2. Ikkita a va b son berilgan. Bu sonlarning o’rta arifmetigining kubini va o’rta geometrigining modulini topish dasturini tuzing. (Ko’rsatma: 2 ta Label, 2 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
3. Teng tomonli uchburchakning tomonlari a berilgan. Ushbu uchburchakning yuzini,
balandligini, unga tashqi chizilgan aylananing radiusini topish dasturini tuzing. Ko’rsatma: 1 ta Label, 1 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
int a;
double s,r,h;
a = Convert::ToInt16(textBox1->Text);
if (a>0)
{
s = sqrt(3)*a*a / 4;
r = a / sqrt(3);
h = a*sqrt(3) / 2;
S->Text += s;
R->Text += r;
H->Text += h;
}
else MessageBox::Show("Qiymat noto'g'ri kiritildi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);
}
4. Uchburchakning burchaklari 1, 2, 3 va unga tashqi chizilgan aylananing R radius
berilgan. Ushbu uchburchakning tomonlari uzunliklarini topish dasturini tuzing ((Ko’rsatma: 4 ta Label, 4 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)

5. ax2+bx+c=0 kvadrat tenglamaning a, b, c koeffisiyentlari berilgan. (Bu tenglamada va
diskriminant noldan katta deb hisoblang.) Ushbu tenglamaning yechimlarini topish dasturini tuzing ((Ko’rsatma: 3 ta Label, 3 ta TextBox, 1 ta Button. Natijalar Labelda chiqarilsin)
float a, b, c, x1, x2, D;
a = Convert::ToInt32(textBox1->Text);
b = Convert::ToInt32(textBox2->Text);
c = Convert::ToInt32(textBox3->Text);
D = b*b - 4 * a*c;
if (D>0)
{
x1 = -(b + Math::Sqrt(D)) / 2 * a;
x2 = -(b - Math::Sqrt(D)) / 2 * a;label6->Text = "Kvadrat tenglama 2 ta yechimga ega\n Natija : \n x1 = " +
Convert::ToString(x1) + " \n x2 = " + Convert::ToString(x2);
}
else
{
if (D == 0)
{
x1 = -(b) / 2 * a;
label6->Text = "Kvadrat tenglama 2 ta yechimga ega\n Natija : x = "
+ Convert::ToString(x1);
}
else
{
MessageBox::Show("Diskremenantning qiymati 0 dan kichik , kvadrat
tenglama yechimga ega emas!!!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);
}
}


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