Visual basic ошибочка в программе

@ТеРимОк · Регистрация: 11.05.2014

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

Написал программу введения матрицы A и r, решения систем уравнений схемой Халецкого и вывода ответа в виде матрицы x. В промежуточной месте есть вывод матрицы А: DataGridView1.Rows(i).Cells(j).Value = Str(A(i, j)). Незнаю что не правильно, но в строке c(i, j) = (A(i, j) - s1) / b(i, i) выходит ошибка ( два скриншота приложил, с формой и ошибкой). Кто может помогите пожалуйста. Спасибо всем

Visual Basic
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 Dim i, j, n, s, s1, s2 As Integer
        Dim A(,), r(), x(), c(,), b(,), y() As Integer
        n = 8
        ReDim A(n, n), r(n), x(n), c(n, n), b(n, n), y(n)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n
        DataGridView1.ColumnCount = n
        For i = 1 To n - 1
            For j = 1 To n - 1
                A(i, j) = 0
            Next
        Next
 
        For i = 1 To 8
            r(i) = 0
        Next
 
        For i = 1 To 8
            For j = 1 To 8
                A(1, 1) = 1
                A(1, 2) = -1
                A(1, 5) = -1
                A(2, 2) = 1
                A(2, 3) = 1
                A(2, 4) = -1
                A(3, 1) = -1
                A(3, 4) = 1
                A(3, 6) = -1
                A(3, 7) = -1
                A(4, 3) = -1
                A(4, 7) = 1
                A(4, 8) = 1
                A(5, 4) = Val(TextBox2.Text)
                A(6, 3) = Val(TextBox1.Text)
                A(6, 4) = Val(TextBox2.Text)
                A(6, 7) = Val(TextBox3.Text)
                A(7, 5) = Val(TextBox4.Text)
                A(8, 5) = Val(TextBox4.Text)
                A(8, 7) = Val(TextBox3.Text)
                A(8, 8) = Val(TextBox5.Text)
                r(1) = Val(TextBox7.Text)
                r(2) = Val(TextBox8.Text)
                r(3) = Val(TextBox6.Text)
                r(4) = Val(TextBox6.Text)
            Next
        Next
 
        For i = 0 To n - 1
            For j = 0 To n - 1
                DataGridView1.Rows(i).Cells(j).Value = Str(A(i, j))
            Next j
        Next i
 
 
        For i = 1 To 8
            For j = 1 To 8
                c(i, j) = 0
                b(i, j) = 1
            Next
        Next
 
        For i = 1 To n
            c(i, i) = 1
        Next
 
        For i = 1 To n
            b(i, 1) = A(i, 1)
            c(1, i) = A(1, i) / b(1, 1)
        Next
 
        y(1) = r(1) / b(1, 1)
 
        For i = 2 To n
            For j = 2 To i
                s = 0
                For k = 1 To j - 1
                    s = s + b(i, k) * c(k, j)
                Next
                b(i, j) = A(i, j) - s
            Next
 
 
            For j = i To n
                s1 = 0
                s2 = 0
                For k = 1 To i - 1
                    s1 = s1 + b(i, k) * c(k, j)
                    s2 = s2 + b(i, k) * y(k)
                Next
               [B][I] c(i, j) = (A(i, j) - s1) / b(i, i)[/I][/B]
                y(i) = (r(i) - s2) / b(i, i)
            Next
        Next
 
        x(n) = y(n)
        For i = n - 1 To 1 Step -1
            s = 0
            For k = i + 1 To n
                s = s + c(i, k) * x(k)
            Next
            x(i) = y(i) - s
        Next
 
        For i = 0 To n - 1
            TextBox9.Text = TextBox9.Text & Str(x(i)) & " "
        Next i

Новый точечный рисунок.zip

Новый точечный рисунок (2).zip

@Catstail · 17.05.2014, 23:08

А зачем строки 19,20 и 46,47??? Ты совершенно бессмысленно повторяешь 64 раза линейную последовательность присвоений.

@ТеРимОк · 17.05.2014, 23:43 **[ТС]**

Изменил немножко программу, учитывая замечание, и добавил

Visual Basic
1
2
3
4
5
6
7
8
9
 c(0, 4) = A(0, 4)
        c(1, 2) = A(1, 2)
        c(1, 3) = A(1, 3)
        c(2, 3) = A(2, 3)
        c(2, 5) = A(2, 5)
        c(2, 6) = A(2, 6)
        c(3, 6) = A(3, 6)
        c(3, 7) = A(3, 7)
        c(5, 6) = A(5, 6)

, так как матрица С не выходит как должна выходить, т.е. главная диагональ равна единицам, а всё что выше, не равно тому, что находиться выше главной диагонали матрицы А.

Visual Basic
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Dim i, j, n, s, s1, s2 As integer
        Dim A(,), r(), x(), c(,), b(,), y() As Double
        n = 7
        ReDim A(n, n), r(n), x(n), c(n, n), b(n, n), y(n)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n + 1
        DataGridView1.ColumnCount = n + 1
        For i = 0 To n
            For j = 0 To n
                A(i, j) = 0
                r(i) = 0
            Next
        Next
 
        A(0, 0) = 1
        A(0, 1) = -1
        A(0, 4) = -1
        A(1, 1) = 1
        A(1, 2) = 1
        A(1, 3) = -1
        A(2, 0) = -1
        A(2, 3) = 1
        A(2, 5) = -1
        A(2, 6) = -1
        A(3, 2) = -1
        A(3, 6) = 1
        A(3, 7) = 1
        A(4, 3) = Val(TextBox2.Text)
        A(5, 2) = Val(TextBox1.Text)
        A(5, 3) = Val(TextBox2.Text)
        A(5, 6) = Val(TextBox3.Text)
        A(6, 4) = Val(TextBox4.Text)
        A(7, 4) = Val(TextBox4.Text)
        A(7, 6) = Val(TextBox10.Text)
        A(7, 7) = Val(TextBox5.Text)
        r(4) = Val(TextBox7.Text)
        r(5) = Val(TextBox8.Text)
        r(6) = Val(TextBox6.Text)
        r(7) = Val(TextBox6.Text)
 
        For i = 0 To 7
            For j = 0 To 7
                c(i, j) = 0
                b(i, j) = 0
            Next
        Next
 
        For i = 0 To 7
            c(i, i) = 1
        Next
 
        For i = 0 To n
            b(i, 0) = A(i, 0)
            c(0, i) = A(0, i) / b(0, 0)
        Next
 
        y(0) = r(0) / b(0, 0)
 
        For i = 1 To n
            For j = 1 To i
                s = 0
                For k = 0 To j - 1
                    s = s + b(i, k) * c(k, j)
                Next
                b(i, j) = A(i, j) - s                
            Next
        Next
 
b(2, 1) = A(2, 1)
 
        For j = i To n
            s1 = 0
            s2 = 0
            For k = 0 To i - 1
                s2 = s2 + b(i, k) * y(k)
                y(i) = (r(i) - s2) / b(i, i)
            Next
        Next
 
        c(0, 4) = A(0, 4)
        c(1, 2) = A(1, 2)
        c(1, 3) = A(1, 3)
        c(2, 3) = A(2, 3)
        c(2, 5) = A(2, 5)
        c(2, 6) = A(2, 6)
        c(3, 6) = A(3, 6)
        c(3, 7) = A(3, 7)
        c(5, 6) = A(5, 6)
 
        x(n) = y(n)
        For i = n - 1 To 1 Step -1
            s = 0
            For k = i + 1 To n
                s = s + c(i, k) * x(k)
            Next
            x(i) = y(i) - s
        Next
 
        TextBox11.Text = TextBox11.Text & Str(s)
 
        For i = 0 To n
            TextBox9.Text = TextBox9.Text & Str(y(i))
        Next i
 
 
        For i = 0 To n
            For j = 0 To n
                DataGridView1.Rows(i).Cells(j).Value = Str(c(i, j))
            Next j
        Next i

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,734 Записей в блоге: 14
	17.05.2014, 23:08
	Сообщение было отмечено The trick как решение Решение А зачем строки 19,20 и 46,47??? Ты совершенно бессмысленно повторяешь 64 раза линейную последовательность присвоений. 0

Visual basic ошибочка в программе

Решение