Windows Form


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

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



int n = Convert.ToInt32(textBox1.Text);
double SUMMA = 0;
Random rnd_num = new Random();
double[,] M1 = new double[n,n];
double[,] M2 = new double[n,n];
double a = -1; double b = 1;
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
M1[i, j] = rnd_num.NextDouble() * (b - a) + a;
SUMMA = SUMMA + M1[i, j];
M2[i, j] = M1[i, j];
}
}

M2[1, 1] = SUMMA / n / n;


for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
richTextBox1.Text += M1[i, j].ToString("f4") + " ";
richTextBox2.Text += M2[i, j].ToString("f4") + " ";
}
richTextBox1.Text += " \n ";
richTextBox2.Text += " \n ";
}






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



int n = Convert.ToInt32(textBox1.Text);
Random rnd_num = new Random();
double[,] M1 = new double[n,n]; double[,] M2 = new double[n,n];
double[] M3 = 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 = 1;
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
M1[i, j] = rnd_num.NextDouble() * (b - a) + a;
M2[i, j] = M1[i, j];
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;
}
}
}
textBox2.Text = maximal.ToString("f4"); textBox3.Text = minimal.ToString("f4");
M2[imin,jmin] = maximal; M2[imax,jmax] = minimal;

for (int i = 0; i < n; i++)


{
for (int j = 0; j < n; j++)
{
richTextBox1.Text += M1[i, j].ToString("f4") + " ";
richTextBox2.Text += M2[i, j].ToString("f4") + " ";
}
richTextBox1.Text += " \n ";
richTextBox2.Text += " \n ";
}





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