Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
lac_ronix
0 / 0 / 0
Регистрация: 07.04.2013
Сообщений: 21
1

Сформировать одномерный массив, каждый элемент которого равен минимальному элементу соответствующей строки заданного двумерного массива

18.05.2013, 22:24. Просмотров 882. Ответов 4
Метки нет (Все метки)

Напишите пользовательскую функцию в среде Microsoft Excel, формирующую одномерный массив, каждый элемент которого равен минимальному элементу соответствующей строки заданного двумерного массива.

Вот что получилось.
Почему то не работает. Помогите исправить.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Vtoroe(A)
Dim B() As Double
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer
n = A.Rows.Count
m = A.Columns.Count
ReDim B(1 To n, 1 To 1)
For i = 1 To n
Max = -32768
For j = 1 To m
If A(i, j) > Max Then
Max = A(i, j)
End If
Next j
B(i) = Max
Next i
Vtoroe = B
End Function
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2013, 22:24
Ответы с готовыми решениями:

Сформировать одномерный массив, каждый элемент которого равен квадрату максимального элемента соответствующей строки матрицы
Помогите пожалуйста решить задачу на VBA : Составить программу формирования одномерного массива,...

Сформировать массив С того же размера, каждый элемент которого равен максимальному из элементов массивов А и В
Даны два массива A и B одинакового размера N. Сформировать новый массив С того же размера, каждый...

Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из элементов массивов A и B с тем же индексом.
Помогите!!! Нужно написать программу в VBA. Задача выглядит так: Даны два массива A и B...

Составить массив А1, каждый элемент которого равен разности между соответствующим элементом массива А и средним арифметическим этого массива
Массив А состоит из 20 элементов. Составить массив А1, каждый элемент этого массива вычислить как...

Построить вектор, каждый элемент которого равен сумме строк матрицы, деленной на элемент главной диагонали этой же строки
Построить вектор B,каждый элемент которого равен сумме рядков матрицы G(m,m),деленной на элемент...

4
Catstail
Модератор
24279 / 12245 / 2209
Регистрация: 12.02.2012
Сообщений: 19,872
18.05.2013, 22:29 2
0) Отформатировать трудно?
1) Что такое A?
2) нужен минимальный элемент, а ищется что?
3) массив B размещен, как двумерный, а используется как одномерный
4) Код сам писал?
0
lac_ronix
0 / 0 / 0
Регистрация: 07.04.2013
Сообщений: 21
18.05.2013, 22:55  [ТС] 3
Сам писал код.
Не сильно понимаю я этот VBA по этому и прошу помощи.
0
Скрипт
5448 / 1129 / 49
Регистрация: 15.09.2012
Сообщений: 3,423
18.05.2013, 23:27 4
Цитата Сообщение от Catstail Посмотреть сообщение
0) Отформатировать трудно?
вы предметы в реальности тоже с нуля считаете?
0
Catstail
Модератор
24279 / 12245 / 2209
Регистрация: 12.02.2012
Сообщений: 19,872
19.05.2013, 11:25 5
Цитата Сообщение от Скрипт Посмотреть сообщение
вы предметы в реальности тоже с нуля считаете?
- нет, с единицы... Но нулем я хотел подчеркнуть, что отформатировать текст - это самое... раннее, что нужно сделать, прежде, чем задавать вопрос.

Добавлено через 4 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function listMin(A() as double) as double ()
Dim B() As Double
    n%=Ubound(A,1)
    m%=Ubound(A,2)
    Redim B(1 to n%) As double
    For i%=1 to n%
         Amin#=A(i%,1)
         For j%=2 to m%
              if Amin# > A(i%,j%) Then Amin#=A(i%,j%)
         Next j%
         B(i%)=Amin#
    Next i%  
    listMin=B
End Function
Добавлено через 4 минуты
Проверка:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test()
 
Dim X(1 To 3, 1 To 3) As Double
 
    X(1, 1) = 1
    X(1, 2) = 0
    X(1, 3) = 4
 
    X(2, 1) = -1
    X(2, 2) = 10
    X(2, 3) = -4
 
    X(3, 1) = 1
    X(3, 2) = 1
    X(3, 3) = 1
 
    Debug.Print listMin(X)(1)  ' печать 0
    Debug.Print listMin(X)(2)  ' печать -4
    Debug.Print listMin(X)(3)  ' печать 1
 
End Sub
0
19.05.2013, 11:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.05.2013, 11:25

Определить массив М, каждый элемент которого равен сумме соответствующих элементов массивов R и Q
Создать процедуру для выполнения следующих действий: 1. Записать в массив с именем R данные,...

Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки двумерного массива.
Дан двумерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен...

Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки
Дан двумерный массив размерностью n*m, заполненный целыми числами из файла. Сформировать одномерный...


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

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

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