Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
FRy.DD
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 3
#1

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

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

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

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

Двумерные массивы - Visual Basic
Нужно сложить 2 двумерных массива вот код, то что выделено - конечно же полная чушь как исправить? Private Sub Command1_Click() Dim...

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

двумерные массивы - Visual Basic
всем привет. помогите написать пару программ по двумерным массивам: 1. Записать на место отрицательных элементов матрицы - нули, а на...

Двумерные массивы - Visual Basic
Найти произведения элементов двумерного массива. Помогите пожалуйста решить задачу в microsoft visual basic.

Двумерные массивы - Visual Basic
Всем привет.Помогите пожалуйста решить вот такую задачку.Буду очень-очень благодарна. Сформировать двумерный массив A(9,3) по правилу ...

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 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
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 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
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
Привет! Вот еще темы с ответами:

Двумерные массивы - Visual Basic
Помогите мне с кодом вот задание 3. 10. самый влажный месяц в году Если что не понятно скачайте файл

ДВУМЕРНЫЕ МАССИВЫ - Visual Basic
мне очень нужна ваша помощь) задание: ввести двумерный массив (матрицу) целых чисел напечатать. найти 1- ый максим элемент и его...

двумерные массивы - Visual Basic
Сформировать произвольно двумерный массив N(12,12). Вычислить и вывести сумму и количество положительных элементов массива, находящихся...

Двумерные массивы - Visual Basic
Помогите решить! задача такая:Найти сумму максимальных элементов каждого столбца двумерного массива... Добавлено через 47 секунд код...


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

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

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