Windows Form


WHILE операторни қўлланг. Windows Form режимда чексиз суммани ҳисобланг. Суманинг қийматини аниқлиги билан топинг


Download 349.57 Kb.
bet4/8
Sana31.03.2023
Hajmi349.57 Kb.
#1311063
1   2   3   4   5   6   7   8
Bog'liq
ФЖКМ масалалар ечиш мисоллари

    Bu sahifa navigatsiya:
  • WHILE
WHILEоператорни қўлланг. Windows Form режимда чексиз суммани ҳисобланг. Суманинг қийматини аниқлиги билан топинг. Натижаларни: сумманинг қиймати ва – амалдаги аниқлик вергульдан кейин 6 хона аниқлиги билан textBoxga чиқаринг. Даструни ишлаб чиқишда нольга ёки чексизликга тенг бўладиган ҳадларни ҳисобдан чиқариш кераклигини инобатга олинг









double x = Convert.ToDouble(textBox1.Text);
double surat, maxraj;
double SUMMA1 = 0;
double SUMMA2 = 1000;
double epsilon = 1000.00;
int n = 0;
while(epsilon > 0.001)
{
surat = Math.Cos((2*n+1) * x);
maxraj = (2 * n + 1) * (2 * n + 1);
if ((surat == 0) || (maxraj == 0))
{
continue;
}
else
{
SUMMA1 = SUMMA1 + surat / maxraj;
}

epsilon = Math.Abs(SUMMA1 - SUMMA2);


SUMMA2 = SUMMA1;
n = n + 1;
}
textBox2.Text = SUMMA1.ToString("f6");
textBox3.Text = epsilon.ToString("f6");
textBox4.Text = n.ToString();






WHILE операторни қўлланг. Windows Form режимда чексиз суммани ҳисобланг. Суманинг қийматини аниқлиги билан топинг. Натижаларни: сумманинг қиймати ва – амалдаги аниқлик вергульдан кейин 6 хона аниқлиги билан textBoxga чиқаринг. Даструни ишлаб чиқишда нольга ёки чексизликга тенг бўладиган ҳадларни ҳисобдан чиқариш кераклигини инобатга олинг









double x = Convert.ToDouble(textBox1.Text);
double surat, maxraj;
double SUMMA1 = 0;
double SUMMA2 = 1000;
double epsilon = 1000.00;
int n = 0;
while(epsilon > 0.001)
{
surat = Math.Pow(-1,n)*Math.Sin((n+1) * x);
maxraj = (n + 1);
if ((surat == 0) || (maxraj == 0))
{
continue;
}
else
{
SUMMA1 = SUMMA1 + surat / maxraj;
}

epsilon = Math.Abs(SUMMA1 - SUMMA2);


SUMMA2 = SUMMA1;
n = n + 1;
}
textBox2.Text = SUMMA1.ToString("f6");
textBox3.Text = epsilon.ToString("f6");
textBox4.Text = n.ToString();




Download 349.57 Kb.

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




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