0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 2
1

Ошибка в программе, меняющей местами максимальный и минимальный элементы матриц A размера 4x4

26.04.2015, 17:03. Показов 488. Ответов 2
Метки нет (Все метки)

Что не правильно в программе?
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
Sub mesta()
Dim i As Integer
Dim j As Integer
Dim i_min As Integer
Dim j_min As Integer
Dim i_max As Integer
Dim j_max As Integer
Dim a(1 To 4, 1 To 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("Ââåäèòå a(" & i & "," & j & ")")
Range("A2:D5").Value = a
MsgBox ("áûë ââåäåí " & a(i, j))
Next j
Next i
For i = 1 To 4
For j = 1 To 4
If a(i, j) > a(i_max, j_max) Then   Почему выдает ошибку №9(subscript out of range)?
i_max = i
j_max = j
End If
If a(i, j) < a(i_min, j_min) Then    Почему выдает ошибку №9(subscript out of range)?
i_min = i
j_min = j
End If
Next j
Next i
Dim f As Integer
a(i_max, j_max) = a(i_min, j_min)
a(i_min, j_min) = f
Range("F2:I5").Value = f
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2015, 17:03
Ответы с готовыми решениями:

Поменять местами минимальный и максимальный элементы массива размера 10
Задача на одномерный массив. Поменять местами минимальный и максимальный элементы массива размера...

Поменять местами минимальный и максимальный элементы массива размера 10
Поменять местами минимальный и максимальный элементы массива размера 10. $min=0;$max=0; for($i...

Поменять местами минимальный и максимальный элементы массива размера 10
Поменять местами минимальный и максимальный элементы массива размера 10.

Поменять местами минимальный и максимальный элементы масива размера 10.
Поменять местами минимальный и максимальный элементы масива размера 10. помогите тупому...

2
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 2
26.04.2015, 19:06  [ТС] 2
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
Sub mesta()
 Dim a(1 To 4, 1 To 4) As Integer
 Dim i As Integer
 Dim j As Integer
 Dim MinZn As Integer
 Dim MaxZn As Integer
 Dim msgStr As Integer
 Dim y As String
 For i = 1 To 4
 For j = 1 To 4
 a(i, j) = InputBox("Ââåäèòå a(" & i & "," & j & ")")
 Range("A2:D5").Value = a
 Next j
 Next i
 For i = 1 To 4
 For j = 1 To 4
 If a(i, j) < MinZn Then MinZn = a(i, j)
 If a(i, j) > MaxZn Then MaxZn = a(i, j)
 Next j
 msgStr = msgStr & vbCrLf
 Next i
 For i = 1 To 4
 For j = 1 To 4
 If a(i, j) = MinZn Then
 a(i, j) = MaxZn
 End If
 If a(i, j) = MaxZn Then
 a(i, j) = MinZn
 End If
 y = y & a(i, j) & " " & CStr(v)
 Next j
 y = y + vbCr
 Next i
 PushButton = MsgBox(y, vbOKOnly, "ìàòðèöà ñ çàìåíîé min íà max A")
 End Sub
нужно поменять местами максимальный и минимальный элементы матрицы,а вместо этого максимальный элемент заменяется минимальным
0
5561 / 1367 / 150
Регистрация: 08.02.2009
Сообщений: 4,107
Записей в блоге: 30
27.04.2015, 11:54 3
Возьмите, если это удобно, готовый проект в документе Word: Дан массив действительных чисел. Поменять местами наибольший и наименьший элементы заданного массива.

Цитата Сообщение от Sirena_Belikova Посмотреть сообщение
максимальный элемент заменяется минимальным
А минимальный, значит, не заменяется максимальным? Так их через что-то третье нужно менять, как, например, вот здесь в строках 17 и 18: Поменять местами максимальный и минимальный элементы массива.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2015, 11:54
Помогаю со студенческими работами здесь

Поменять местами минимальный и максимальный элементы массива размера 10
99. Поменять местами минимальный и максимальный элементы массива размера 10.

Поменять местами минимальный и максимальный элементы массива размера 10
Поменять местами минимальный и максимальный элементы массива размера 10

Поменять местами минимальный и максимальный элементы массива размера 10
Можете подсказать где ошибка просто здесь вообще не меняет местами #include &lt;stdio.h&gt; #include...

Дан массив размера N. Поменять местами его минимальный и максимальный элементы
Дан массив размера N. Поменять местами его минимальный и максимальный элементы. Подскажите,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru