Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/23: Рейтинг темы: голосов - 23, средняя оценка - 4.74
0 / 0 / 0
Регистрация: 04.03.2012
Сообщений: 21
1

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

24.03.2012, 12:13. Просмотров 4599. Ответов 2
Метки нет (Все метки)


Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы. найденные минимальные элементы элементы занести в массив MinMas, а максимальные элементы в массив MaxMas и расположить их соответственно по убыванию. и возрастанию. напечатать все массивы.

всё на что хватило ума это заполнить массив, а дальше вообще без понятий...

Visual Basic
1
2
3
4
5
6
7
8
9
Dim Mac(1 To 100, 1 To 100), MinMas(1 To 100, 1 To 100), MaxMas(1 To 100, 1 To 100) As Single, Max As Single, Min As Single
Dim n As Integer
n = Val(InputBox(Введите количество Элементов(не больше100) "))
For I = 1 To n
For J = 1 To n
Mac(I, J) = Int(Rnd) * 200
Next J
Next I
Debug.Print Mac(I, J)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2012, 12:13
Ответы с готовыми решениями:

Максимальный элемент в каждом столбце матрицы, минимальный в каждой строке - объединить в массив
Дана матрица q (k,n). Найти значение максимального елемента в каждом столбце,минимального в каждой...

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

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

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа из интервала...

__________________
Помогаю в написании студенческих работ здесь.
2
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
24.03.2012, 15:11 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
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
Option Explicit
Private Sub Command1_Click()
Dim Mac() As Single, MinMas() As Single, MaxMas() As Single
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
Randomize
Cls
m = Val(InputBox("Введите количество строк ", , 10))
n = Val(InputBox("Введите количество столбцов ", , 10))
ReDim Mac(1 To n, 1 To n), MinMas(1 To n), MaxMas(1 To m) As Single
 
 'Заполняем массив и печатаем его
 For i = 1 To m
     For j = 1 To n
        Mac(i, j) = Int(Rnd * 100)
        Print vbTab; Mac(i, j);
     Next j
     Print
 Next i
 
'Находим в каждой строке максимальный элемент и записываем его в массив MaxMas
 For i = 1 To m
     MaxMas(i) = Mac(i, 1)
     For j = 1 To n
         If MaxMas(i) < Mac(i, j) Then MaxMas(i) = Mac(i, j)
     Next j
 Next i
 
 'Находим в каждом столбце минимальный элемент и записываем его в массив MinMas
 For i = 1 To n
     MinMas(i) = Mac(1, i)
     For j = 1 To m
         If MinMas(i) > Mac(j, i) Then MinMas(i) = Mac(j, i)
     Next j
 Next i
 
 Print
 Print "Массив максимальных элементов каждой строки исходного массива несортированный"
 For i = 1 To m
     Print MaxMas(i);
 Next i
 Print
 
 Print "Массив минимальных элементов каждого столбца исходного массива несортированный"
 For i = 1 To n
     Print MinMas(i);
 Next i
 Print
 
 'Cортируем массив максимальных элементов  по возрастанию, а минимальных -по убыванию.
 Call BubbleSortMin(MinMas, n)
 Call BubbleSortMax(MaxMas, m)
 
 Print "Массив максимальных элементов каждой строки исходного массива  по возрастанию"
 For i = 1 To m
     Print MaxMas(i);
 Next i
 Print
 
 Print "Массив минимальных элементов каждого столбца исходного массива по убыванию"
 For i = 1 To n
     Print MinMas(i);
 Next i
 
End Sub
' Сортировка по возрастанию
Public Sub BubbleSortMax(ByRef Arr() As Single, ByRef n As Integer)
    Dim i As Long
    Dim j As Long
    Dim Tmp As Double
    For i = 1# To n + 1 Step 1
        For j = 1# To n - i Step 1
            If Arr(j) > Arr(j + 1#) Then
                Tmp = Arr(j)
                Arr(j) = Arr(j + 1#)
                Arr(j + 1#) = Tmp
            End If
        Next j
    Next i
End Sub
'Сортировка по убыванию
Public Sub BubbleSortMin(ByRef Arr() As Single, ByRef n As Integer)
    Dim i As Long
    Dim j As Long
    Dim Tmp As Double
    For i = 1# To n + 1 Step 1
        For j = 1# To n - i Step 1
            If Arr(j) < Arr(j + 1#) Then
                Tmp = Arr(j)
                Arr(j) = Arr(j + 1#)
                Arr(j + 1#) = Tmp
            End If
        Next j
    Next i
End Sub
2
0 / 0 / 0
Регистрация: 04.03.2012
Сообщений: 21
24.03.2012, 16:28  [ТС] 3
Спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2012, 16:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 10х8, элементами которой являются целые случайные числа из интервала ....

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

Найти максимальный и минимальный элемент в каждой строке и столбце матрицы и вывести на экран
Есть двумерный массив размера m на n. Нужно найти максимальный и минимальный елемент в каждом рядке...

Двумерный массив. Определить минимальный элемент в каждом столбце и строке матрицы
Составить программу определения минимального элемента в каждом столбце и строке матрицы U(6,6)....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.