Windows Form


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

Windows Form режимда квадрат массивнинг ўлчамини киритинг. Унинг қийматларини (-2;2) чегарада хақиқий тасодифий сонлар билан тўлдиринг. Массив қийматларини RichTextBox1 элементда кўрсатинг. Массивнинг биринчи элементидан катта бўлган элементларнинг сонини топинг. Натижани TextBox элементда кўрсатинг. Массивлар қийматларини вергльдан кейин 4 хона билан кўрсатинг.



int n = Convert.ToInt32(textBox1.Text);
Random rnd_num = new Random();
double[,] M1 = new double[n,n];
double a = -2; double b = 2;
int k = 0;
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
M1[i, j] = rnd_num.NextDouble() * (b - a) + a;
richTextBox1.Text += M1[i, j].ToString("f4") + " ";
}
richTextBox1.Text += " \n ";
}
richTextBox1.Text += " \n ";
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
if (M1[i, j] > M1[0, 0])
k++;
}
}
textBox2.Text = k.ToString("f4");





Windows Form режимда квадрат массивнинг ўлчамини киритинг. Унинг қийматларини (-3;2) чегарада хақиқий тасодифий сонлар билан тўлдиринг. Массив қийматларини RichTextBox1 элементда кўрсатинг. Максимал ва минимал элементларнинг индексларини аниқланг. Натижаларни TextBox элементлар кўрсатинг. Массивлар қийматларини вергльдан кейин 4 хона билан кўрсатинг



int n = Convert.ToInt32(textBox1.Text);
Random rnd_num = new Random();
double[,] M1 = new double[n, n];
double minimal = 100.000; double maximal = -100.000;
int imax, jmax, imin, jmin;
imax = 0; jmax = 0; imin = 0; jmin = 0;

double a = -3; double b = 2;


for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
M1[i, j] = rnd_num.NextDouble() * (b - a) + a;
richTextBox1.Text += M1[i, j].ToString("f4") + " ";
if (M1[i, j] > maximal)
{
maximal = M1[i, j]; imax = i; jmax = j;
}
if (M1[i, j] < minimal)
{
minimal = M1[i, j]; imin = i; jmin = j;
}
}
richTextBox1.Text += " \n ";
}
textBox2.Text = (imax+1).ToString();
textBox3.Text = (jmax+1).ToString();
textBox4.Text = maximal.ToString("f4");
textBox5.Text = (imin+1).ToString();
textBox6.Text = (jmin+1).ToString();
textBox7.Text = minimal.ToString("f4");



кўринишдаги оддий дифференциал тенгламани ечинг. Windows Form режимда тенгламанинг бошланғич шартларини ва иккинчи аргументни киритинг. Ҳисоблаш натижаларини: 1) RichTextBox1 да агрумент ўзгаришини кўрсатинг; 2) RichTextBox2 да функция ўзгаришини; 3) Chart элементида функция графигини кўрсатинг (Текшириш учун ).



public double FUNKSIYA(double x, double y)
{
return 3*Math.Sqrt(x);
}
private void button1_Click(object sender, EventArgs e)
{
richTextBox1.Text = " ";
richTextBox2.Text = " ";
chart1.Series["Funksiya"].Points.Clear();

double a = Convert.ToDouble(textBox1.Text);


double y = Convert.ToDouble(textBox2.Text);
double b = Convert.ToDouble(textBox3.Text);
double n = Convert.ToDouble(textBox4.Text);
double h = (b - a) / n;
int k = 0;
double x = a;
while(x < b)
{
y = y + FUNKSIYA(x,y) * h;
richTextBox1.Text += x.ToString("f5") + " \n ";
richTextBox2.Text += y.ToString("f5") + " \n ";
chart1.Series["Funksiya"].Points.AddXY(x,y);
k = k + 1;
x = x + h;
}
textBox5.Text = k.ToString();
textBox6.Text = y.ToString("f8");

}




кўринишдаги оддий дифференциал тенгламани ечинг. Windows Form режимда тенгламанинг бошланғич шартларини ва иккинчи аргументни киритинг. Ҳисоблаш натижаларини: 1) RichTextBox1 да агрумент ўзгаришини кўрсатинг; 2) RichTextBox2 да функция ўзгаришини; 3) Chart элементида функция графигини кўрсатинг. (Текшириш учун ).



public double FUNKSIYA(double x, double y)
{
return 3*Math.Pow(y*y,(1.0/3.0));
}
private void button1_Click(object sender, EventArgs e)
{
richTextBox1.Text = " ";
richTextBox2.Text = " ";
chart1.Series["Funksiya"].Points.Clear();

double a = Convert.ToDouble(textBox1.Text);


double y = Convert.ToDouble(textBox2.Text);
double b = Convert.ToDouble(textBox3.Text);
double n = Convert.ToDouble(textBox4.Text);
double h = (b - a) / n;
int k = 0;
double x = a;
while(x < b)
{
y = y + FUNKSIYA(x,y) * h;
richTextBox1.Text += x.ToString("f5") + " \n ";
richTextBox2.Text += y.ToString("f5") + " \n ";
chart1.Series["Funksiya"].Points.AddXY(x,y);
k = k + 1;
x = x + h;
}
textBox5.Text = k.ToString();
textBox6.Text = y.ToString("f8");
}









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