С помощью допустимых преобразований привести систему к треугольному виду

24.11.2014, 10:51. **Показов** 1049. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Помогите решить задание в Visual Studio.

Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду. Найти количество строк, среднее арифметическое элементов которых меньше заданной величины.

Задание примера:
Дана целочисленная прямоугольная матрица. Определить:
• количество столбцов, содержащих хотя бы один нулевой элемент;
• номер строки, в которой находится самая длинная серия одинаковых элементов.

Код примера:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace lab5
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            textBox3.Text = "";
            int[,] mas = new int[100, 100];
            int m = Convert.ToInt32(textBox1.Text), n = Convert.ToInt32(textBox2.Text);
            Random a = new Random();
            for (int i = 0; i < m; i++)
            {
                for (int j = 0; j < n; j++)
                {
                    mas[i, j] = a.Next(10);
                    textBox3.Text = textBox3.Text + Convert.ToString(mas[i, j])+"  ";
                }
                textBox3.Text = textBox3.Text + System.Environment.NewLine;
            }
            int s = 0;
            for (int i = 0; i < n; i++)
            {
                for (int j = 0; j < m; j++)
                {
                    if (mas[j, i] == 0)
                    {
                        s++;
                        break;
                    }
                }
            }
            label1.Text = "Количество столбцов, содержащих хотя бы один нулевой элемент " + Convert.ToString(s);
            int[] l = new int[100];
            int k = 1,kmax = 1;
            for (int i = 0; i < m; i++)
            {
                kmax = 1;
                for (int j = 1; j < n; j++)
                {
                    if (mas[i, j] == mas[i, j - 1])
                    {
                        k++;
                        if (k > kmax) kmax = k;
                    }
                    else k = 1;
                }
                l[i] = kmax;
            }
            int max = 0;
            for (int i = 0; i < m; i++)
            {
                if (l[i] >= max)
                {
                    max = l[i];
                }
            }
            for (int i = 0; i < m; i++)
            {
                if (l[i] == max) label2.Text = "Номер строки, в которой находится самая длинная серия одинаковых элементов " + Convert.ToString(i + 1) + " ";
            }
        }
    }
}

@pelehok · 04.09.2016, 20:42

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace WindowsFormsApplication17
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        int[,] mas = new int[100, 100];
        int n = 0,m=0;
        private void button1_Click(object sender, EventArgs e)
        {
            textBox3.Text = "";
            m = Convert.ToInt32(textBox1.Text); n = Convert.ToInt32(textBox2.Text);
            Random a = new Random();
            for (int i = 0; i < m; i++)
            {
                for (int j = 0; j < n; j++)
                {
                    mas[i, j] = a.Next(10);
                    textBox3.Text = textBox3.Text + Convert.ToString(mas[i, j]) + "  ";
                }
                textBox3.Text = textBox3.Text + System.Environment.NewLine;
            }
            int tmp = 0;
            for (int i = 0; i < m; i++)
            {
                tmp = mas[i,i];
                for (int j = n; j >= i; j--)
                    mas[i,j] /= tmp;
                for (int j = i + 1; j < n; j++)
                {
                    tmp = mas[j,i];
                    for (int k = n; k >= i; k--)
                        mas[j,k] -= tmp * mas[i,k];
                }
            }
            for (int i = 0; i < m; i++)
            {
                for (int j = 0; j < n; j++)
                {
                    textBox4.Text = textBox4.Text+ mas[i, j].ToString()+" ";
                }
                textBox4.Text = textBox4.Text + System.Environment.NewLine;
            }
        }
 
        private void button2_Click(object sender, EventArgs e)
        {
            int k = 0;
            int q = Convert.ToInt32(textBox5.Text);
 
            for (int i = 0; i < m; i++)
            {
                double s = 0;
                for (int j = 0; j < n; j++)
                {
                    s += mas[i, j];
                }
                s /= n;
                if(s<q)
                {
                    k++;
                }
            }
            label1.Text = k.ToString();
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .