Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
FRy.DD
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 3
#1

Двумерные массивы

02.12.2010, 11:10. Просмотров 867. Ответов 5
Метки нет (Все метки)

Помогите пожалуйста сделать программу на VB 6.0, которая находит минимальный элемент диагонали матрицы. У меня получилось сделать для одномерного (нахождение минимального элемента), но с двумерными проблемы. Заранее спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2010, 11:10
Ответы с готовыми решениями:

Двумерные массивы
Найти произведения элементов двумерного массива. Помогите пожалуйста решить...

двумерные массивы
Сформировать произвольно двумерный массив N(12,12). Вычислить и вывести сумму...

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

Двумерные массивы
Всем привет.Помогите пожалуйста решить вот такую задачку.Буду очень-очень...

Двумерные массивы
Задание такое: Даны матрицы A(n,m) и B(n,m). Получить новую матрицу C(n,m)...

5
kindvad
3 / 3 / 0
Регистрация: 02.12.2010
Сообщений: 26
02.12.2010, 22:07 #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
Private Sub Command1_Click()
Dim min As Integer
'min - искомый элемент
Dim i As Integer
'i - столбы
Dim g As Integer
'g - строки, можно и наоборот, тут это не важно
Dim a() As Integer
Dim n As Integer
'n - размерность матрицы
n = Val(InputBox("введи размерность матрицы"))
ReDim a(1 To n, 1 To n)
For i = 1 To n
For g = 1 To n
a(i, g) = Val(InputBox("введите" & " " & "a(" & Str(i) & "," & Str(g) & ")"))
Next g
Next i
min = a(1, 1)
For i = 2 To n
If a(i, i) < min Then min = a(i, i)
Next i
Print min
End Sub
1
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
02.12.2010, 22:47 #3
Цитата Сообщение от FRy.DD Посмотреть сообщение
минимальный элемент диагонали матрицы
какой диагонали (их 2)
0
kindvad
3 / 3 / 0
Регистрация: 02.12.2010
Сообщений: 26
02.12.2010, 23:03 #4
Цитата Сообщение от gaw Посмотреть сообщение
какой диагонали (их 2)
видать, главной, раз уточнений нет
0
FRy.DD
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 3
03.12.2010, 22:10  [ТС] #5
Спасибо, ну а чтобы найти по побочной, необходимо проверять элементы a(i, n+1-i) , верно?
0
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
03.12.2010, 22:18 #6
да, как то так
Visual Basic
1
2
3
4
Min = a(n, 1)
For i = 2 To n 
If a( n + 1 - i,i) < Min Then Min = a(n + 1 - i,i)
Next i
0
03.12.2010, 22:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2010, 22:18

двумерные массивы
всем привет. помогите написать пару программ по двумерным массивам: 1....

Двумерные массивы
Найти числа b1, b2, ..., bm, равные сумме элементов строк.

Двумерные массивы
В массиве записаны результаты 20 игр футбольной команды(если игра окончилась...


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

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

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