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

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

24.03.2012, 12:13. Просмотров 3099. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2012, 12:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы (VB):

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

Найти максимальный по величине элемент в каждом столбце матрицы
Друзья, очень прошу, помогите с задачей! Запрещено размещать задания и решения...

Дана матрица размера M × N. В каждом столбце матрицы найти максимальный элемент
помогите, никогда не работал в vb

Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы
Dim L(10, 5) For i = 1 To 10 For j = 1 To 5 L(i, j) = Int(Rnd * (72 - 27) +...

Нужно найти наименьший элемент в каждом столбце матрицы
нужно найти наименьший элемент в каждом столбце матрицы E(M,N) и еще,если не...

Определить минимальный элемент 1-го столбца массива, максимальный элемент 9-го столбца и поменять их местами
Сформировать массив 13 × 13 из чисел в диапазоне от –100 до 150. Определить...

2
SoftIce
comment ca va
10426 / 3929 / 1004
Регистрация: 27.07.2011
Сообщений: 9,499
Завершенные тесты: 1
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
webline
0 / 0 / 0
Регистрация: 04.03.2012
Сообщений: 21
24.03.2012, 16:28  [ТС] #3
Спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2012, 16:28
Привет! Вот еще темы с решениями:

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

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

Составить программу преобразования матрицы размера 5x5, разделив каждый элемент матрицы на ее минимальный элемент
Доброго времени суток. Задача у меня простая, но в с vb туговато... Составить...

Матрица: найти минимальный и максимальный элемент матрицы, сумму элементов главной диагонали
Найти: 1) Минимальный элемент матрицы 2) Максимальный элемент матрицы 3)...


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

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

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