Суммирование двух введённых матриц

@Смирнова Алёна · Регистрация: 27.05.2012

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

Есть задание:
разработать программу,рассчитывающую и выводящую на экран результатирующую матрицу по действиям:1) суммирования двух введённых матриц; 2)вычитания двух введённых матриц; 3)умножения введённой матрицы на введённое число. Все действия должны быть вынесены в подпрограммы.

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

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
Dim N As Byte
Dim M As Byte
Dim a(1 To 5, 1 To 5) As Single
Dim B(1 To 5, 1 To 5) As Single
Dim R(1 To 5, 1 To 5) As Single
 
Sub Alyona()
Dim N1 As Single
 
Dim STR As String
err: N1 = InputBox("признак=?")
N = InputBox("КОЛ-ВО СТРОК=?")
M = InputBox("КОЛ-ВО СТОЛБЦОВ=?")
Select Case N1
Case 1
P1
Case 2
P2
Case 3
P3
Case Else
MsgBox ("ОШИБКА")
GoTo err
End Select
 
For I = 1 To N
For J = 1 To M
STR = STR & R(I, J) & " "
 
Next J
STR = STR & Chr(13)
Next I
MsgBox STR
End Sub
 
Sub P1()
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
B(I, J) = InputBox("B(I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) + B(I, J)
Next J
Next I
End Sub
 
 
Sub P2()
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
B(I, J) = InputBox("B(I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) - B(I, J)
Next J
Next I
End Sub
 
Sub P3()
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
 
X = InputBox("X=?")
 
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) * X
Next J
Next I
End Sub

@Catstail · 27.05.2012, 08:31

А с чего бы ей выводить X? У тебя запрограммирован вывод R. И он работает верно. Программа правильная, но нерациональная. Советую ввод исх. матриц вынести в отдельные процедуры. Тогда код станет короче.

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
Dim N As Byte
Dim M As Byte
Dim a(1 To 5, 1 To 5) As Single
Dim B(1 To 5, 1 To 5) As Single
Dim R(1 To 5, 1 To 5) As Single
 
Sub InpMatrA()
 
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
Next J
Next I
 
End Sub
 
Sub InpMatrB()
 
For I = 1 To N
For J = 1 To M
B(I, J) = InputBox("B(I,J)")
Next J
Next I
 
End Sub
 
Sub Alyona()
Dim N1 As Single
 
Dim STR As String
err: N1 = InputBox("признак=?")
N = InputBox("КОЛ-ВО СТРОК=?")
M = InputBox("КОЛ-ВО СТОЛБЦОВ=?")
Select Case N1
Case 1
P1
Case 2
P2
Case 3
P3
Case Else
MsgBox ("ОШИБКА")
GoTo err
End Select
 
For I = 1 To N
For J = 1 To M
STR = STR & R(I, J) & " "
 
Next J
STR = STR & Chr(13)
Next I
MsgBox STR
End Sub
 
Sub P1()
 
InpMatrA
InpMatrB
 
 
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) + B(I, J)
Next J
Next I
End Sub
 
 
Sub P2()
 
InpMatrA
InpMatrB
 
 
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) - B(I, J)
Next J
Next I
End Sub
 
Sub P3()
 
InpMatrA
 
 
X = InputBox("X=?")
 
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) * X
Next J
Next I
End Sub

SoftIce · 27.05.2012, 08:48

Скромно у тебя процедура называется

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
Dim n As Integer
Dim m As Integer
Dim A(1 To 5, 1 To 5) As Single
Dim B(1 To 5, 1 To 5) As Single
Dim R(1 To 5, 1 To 5) As Single
 
Sub Alyona()
Dim n1 As Integer, STR As String, i As Integer, j As Integer
err: n1 = InputBox("признак=?")
n = InputBox("КОЛ-ВО СТРОК=?")
m = InputBox("КОЛ-ВО СТОЛБЦОВ=?")
 
Select Case n1
     Case 1: P1
     Case 2: P2
     Case 3: P3
     Case Else: MsgBox ("ОШИБКА"): GoTo err
End Select
 
For i = 1 To n
    For j = 1 To m
        STR = STR & R(i, j) & " "
    Next j
    STR = STR & Chr(13)
Next i
 
MsgBox STR
End Sub
 
Sub P1()
For i = 1 To n
     For j = 1 To m
         A(i, j) = InputBox("A(" & i & "," & j & ")")
     Next j
Next i
 
For i = 1 To n
     For j = 1 To m
        B(i, j) = InputBox("B(" & i & "," & j & ")")
     Next j
Next i
 
For i = 1 To n
     For j = 1 To m
         R(i, j) = A(i, j) + B(i, j)
     Next j
Next i
End Sub
 
Sub P2()
  For i = 1 To n
      For j = 1 To m
             A(i, j) = InputBox("A(" & i & "," & j & ")")
      Next j
  Next i
  
For i = 1 To n
      For j = 1 To m
              B(i, j) = InputBox("B(" & i & "," & j & ")")
      Next j
Next i
 
For i = 1 To n
       For j = 1 To m
              R(i, j) = A(i, j) - B(i, j)
       Next j
Next i
End Sub
 
Sub P3()
For i = 1 To n
     For j = 1 To m
           A(i, j) = InputBox("A(" & i & "," & j & ")")
     Next j
Next i
X = InputBox("X=?")
For i = 1 To n
      For j = 1 To m
            R(i, j) = A(i, j) * X
      Next j
Next i
End Sub
 
Private Sub Command1_Click()
    Alyona
End Sub

Добавлено через 3 минуты

Сообщение от Catstail

А с чего бы ей выводить X?

Студентов нужно понимать, - она имела в виду , что программа не выводит результат умножения матрицы на число "Х".

- там косяк был, а улучшать и укорачивать программу не нужно.

@Смирнова Алёна · 27.05.2012, 14:23 **[ТС]**

Блин,может я что-то не правильно делаю,но у меня всё равно программа не выводит результат умножения матрицы на число "Х"(

SoftIce · 27.05.2012, 14:39

Сообщение от Смирнова Алёна

что-то не правильно делаю

Выкладываю весь проект

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Смирнова Алёна 0 / 0 / 0 Регистрация: 27.05.2012 Сообщений: 10
	27.05.2012, 14:23 [ТС]
	Блин,может я что-то не правильно делаю,но у меня всё равно программа не выводит результат умножения матрицы на число "Х"( 0