Windows Form


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


Download 349.57 Kb.
bet5/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;
double n = 0;
while(epsilon > 0.000001)
{ surat = Math.Cos(n*Math.PI) * Math.Pow(x,n);
maxraj = n ;
if ((surat == 0) || (maxraj == 0))
{
n = n + 1;
continue;
}
else
{
SUMMA1 = SUMMA1 + surat / maxraj;
}
epsilon = Math.Abs(SUMMA1 - SUMMA2);
SUMMA2 = SUMMA1;
n = n + 1;
}
textBox2.Text = SUMMA1.ToString("f16");
textBox3.Text = epsilon.ToString("f16");
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;
double n = 0;
while(epsilon > 0.000001)
{
surat = Math.Pow(x,2*n+1) * Math.Pow(-1,n+2);
maxraj = 2*n+1 ;
if ((surat == 0) || (maxraj == 0))
{
n = n + 1;
continue;
}
else
{
SUMMA1 = SUMMA1 + surat / maxraj;
}
epsilon = Math.Abs(SUMMA1 - SUMMA2);
SUMMA2 = SUMMA1;
n = n + 1;
}
textBox2.Text = SUMMA1.ToString("f16");
textBox3.Text = epsilon.ToString("f16");
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