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


Natural n soni va haqiqiy a1, a2, …, an sonlar berilgan. Bu sonlarning yig’indisini aniqlang. (Ko’rsatma, n ta son ListBoxda bo’lsin. Natija labelda chop etilsin)


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

29. Natural n soni va haqiqiy a1, a2, …, an sonlar berilgan. Bu sonlarning yig’indisini aniqlang. (Ko’rsatma, n ta son ListBoxda bo’lsin. Natija labelda chop etilsin)
30.≤ 27natural son berilgan. Raqamlari yig’indisi n ga teng bo’lgan barcha uch qiymatli sonlar topilsin. (1 ta Label, 1 ta Button, 1 ta TextBox. Natija ListBoxga chiqarilsin)
2-TOPSHIRIQ
1. Sonli yozuvida bir xil raqamlari bo’lmagan barcha N xonali sonlarni o’sish tartibida chop qiling. (Ko’rsatma: 1 ta Label, 1 ta TextBox, 1 ta Button. Natija: ListBoxda chiqarilsin)
2. n ta butun sonlar ketma-ketligini kiriting. (ListBoxga kiritiladi) Hamma musbat sonlar yig’indisini toping. (Natija Labelga chop etilsin)
3. [2; n] intervalda bo’luvchilar yig’indisi eng katta bo’lgan natural sonni toping. (Natija
Labelga chop etilsin)
int n;
n = Convert::ToInt16(textBox1->Text);
int s = 0, k = 0, max=0;
MessageBox::Show("Qiymat noto'g'ri kiritildi!", "Xatolik", MessageBoxButtons::OK, MessageBoxIcon::Error);
for (size_t i = n; i >= 2; i--)
{
s = 0;

for (size_t j=n; j > 0; j--)


{
if (i%j == 0) {
s++;
}
}
if (max < s) {
max = s;
k = i;
}
}
S->Text = "Natija:" + Convert::ToString(k);

4. n ta sondan eng kattasini topuvchi dasturni tuzing (N ta son listBoxda bo’ladi. Natija
Labelda chop etilsin)
n = Convert::ToInt32(textBox1->Text);
double a;
if (listBox1->Items->Count <= n - 1)
{
a = Convert::ToDouble(textBox2->Text);
listBox1->Items->Add(Convert::ToString(a));
}
else
MessageBox::Show("Boshqa son kiritib bo'lmaydi!", "Xatolik",
MessageBoxButtons::OK, MessageBoxIcon::Error);
int n = Convert::ToInt32(textBox1->Text);
if (listBox1->Items->Count <= n - 1)
{
MessageBox::Show("ListBox hali to'lmadi , son kiriting !", "Xatolik",
MessageBoxButtons::OK, MessageBoxIcon::Error);
}
else
{
double max = Convert::ToDouble(listBox1->Items[0]);
for (int i = 0; i <= n - 1; i++)
{
if (Convert::ToDouble(listBox1->Items[i]) > max)
max = Convert::ToDouble(listBox1->Items[i]);
}
label6->Text = textBox1->Text+ " ta son ichida eng katta son : " +
Convert::ToString(max);
}


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