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

Найти максимальный элемент в каждой строке матрицы

17.05.2012, 21:27. Показов 4636. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
доброго времени суток!
помогите пожалуйста разобраться с программой
вводится массив 4*4 с клавиатуры, находится максимальный элемент в каждой строке,
выводится квадрат максимального элемента в новый массив

результатом программы должен стать документ, содержащий в себе исходный массив и обработанный
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
Sub матрица()
Dim a(4, 4) As Integer
Dim b(4, 4) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim max As Integer
 
For i = 1 To 4
    For j = 1 To 4
        a(i, j) = InputBox("введите элемент массива", "ввод массива")
    Next j
Next i
 
s = 0
For i = 1 To 4
    For j = 2 To 4
        max = a(i, j)
        If a(i, j) < a(i, j + 1) Then
            max = a(i, j + 1)
            k = 0
            b(s, k) = max
            k = k + 1
        End If
    Next j
    s = s + 1
Next i
For i = 1 To 4
    For j = 1 To 1
        Selection.TypeText (a(i, j) & Chr(9))
        Selection.TypeParagraph
    Next j
Next i
End Sub
заранее благодарю!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2012, 21:27
Ответы с готовыми решениями:

В каждой строке матрицы найти максимальный элемент и заменить им первый элемент строки
В матрице Х(4,5) в каждой строке найти максимальный элемент и заменить им первый элемент строки....

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом
Ошибка в задаче. Может я что-то не дописал. Исправьте пожалуйста программу. Дана матрица B....

Дан двумерный массив . Найти максимальный элемент в каждой строке
1 . Дан одномерный массив . Упорядочить его по возрастанию 2 . Дан одномерный массив целых чисел ,...

В квадратной матрице 6х6 найти максимальный элемент, который лежит на побочной диагонали и максимальный элемент в каждой строке матрицы
В квадратной матрице 6х6 найти максимальный элемент, который лежит на побочной диагонали и...

2
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
18.05.2012, 07:39 2
В принципе как массив обработать
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton6_Click()
Dim a&(4, 4), b&(4)
For i = 1 To 4
For j = 1 To 4
 a(i, j) = InputBox("a(" & i & "," & j & ")")
 Cells(i, j) = a(i, j)
Next j
Next i
 
For i = 1 To 4
 b(i) = a(i, 1)
For j = 2 To 4
  If b(i) < a(i, j) Then b(i) = a(i, j)
Next j
b(i) = b(i) * b(i)
Cells(i, 6) = b(i)
Next i
End Sub
2
0 / 0 / 0
Регистрация: 15.05.2012
Сообщений: 5
18.05.2012, 12:48  [ТС] 3
спасибо огромное!
0
18.05.2012, 12:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2012, 12:48
Помогаю со студенческими работами здесь

В каждой строке матрицы найти максимальный элемент, в каждом столбце найти минимальный элемент, и поменять их местами
пожалуйста помогите плз!!! дан массив А. В каждой строке найти максимальный элемент, в каждом...

Найти максимальный элемент в каждой строке матрицы
найти максимальный элемент в каждой строке матрицы и заменить его числом 1.Оформить в виде функции.

Найти максимальный элемент в каждой строке матрицы
написать функцию

В каждой строке матрицы найти максимальный элемент
Дан двухмерный массив. В каждой его строке найти максимальный элемент


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

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

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