ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массивы в VBA
25 сообщений из 69, страница 1 из 3
  1  все
Массивы в VBA
    #36375547
Lostar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lostar
Гость
Помогите с заданием на массивы пожалуйста:

Дано:
сумма элементов, не принадлежащих главной диагонали
83216
24590
68172
35068
17429

Вычислить произведение элементов 4-ой строки, больших 3.
...
Рейтинг: 0 / 0
19.12.2009, 18:29
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375695
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А "сколько лет учительнице"(с) не требуется вычислить?
...
Рейтинг: 0 / 0
19.12.2009, 20:23
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375717
Lostar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lostar
Гость
Это написать в VBA нужно, я с ним плохо дружу.
...
Рейтинг: 0 / 0
19.12.2009, 20:41
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375743
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
да мы напишем, напиши ЧТО нужно написать на ВБА

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

по моему опыту, если автор ленится описать подробно, что ему нужно, результат игры в угадайку будеи примерно через неделю, когда заглянет кто-то из редких гостей и сходу угадает, что же нужно было автору.
...
Рейтинг: 0 / 0
19.12.2009, 20:56
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375798
Lostar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lostar
Гость
Я всё понимаю, полностью согласен. В том и проблема, что это всё, что дано) Может быть было какое-то дополнительное условие, но судя по тому, что есть у меня на фотографии, очень сомневаюсь. Я расписал в первом сообщении всё задании
...
Рейтинг: 0 / 0
19.12.2009, 21:25
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375829
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
LostarПомогите с заданием на массивы пожалуйста:
Дано:
сумма элементов, не принадлежащих главной диагонали
83216
24590
68172
35068
17429
Вычислить произведение элементов 4-ой строки, больших 3.

Явно что-то не хватает в исходных данных.
...
Рейтинг: 0 / 0
19.12.2009, 21:37
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375832
Lostar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lostar
Гость
Уговорили, попробую разузнать, тогда отпишусь
...
Рейтинг: 0 / 0
19.12.2009, 21:39
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375836
calc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc
Гость
LostarП
Вычислить произведение элементов 4-ой строки, больших 3.
240 ? :-)
...
Рейтинг: 0 / 0
19.12.2009, 21:40
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375843
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
calcLostarП
Вычислить произведение элементов 4-ой строки, больших 3.
240 ? :-)
5 * 6 * 8 = 240
Вам не кажется, что очень просто?
...
Рейтинг: 0 / 0
19.12.2009, 21:45
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375853
calc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc
Гость
.Михаил.calcLostarП
Вычислить произведение элементов 4-ой строки, больших 3.
240 ? :-)
5 * 6 * 8 = 240
Вам не кажется, что очень просто?
кажется...а есть другие версии?

авторэто всё, что дано
...
Рейтинг: 0 / 0
19.12.2009, 21:53
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36375882
Lostar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lostar
Гость
Спасибо огромное, а я парился сидел! И правда, зачем писать всё это в программе, я лучше устно отвечу))). Я думаю меня либо пошлют на другую специальность, либо просто пошлют)
...
Рейтинг: 0 / 0
19.12.2009, 22:12
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36376051
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
.Михаил.calcLostarП
Вычислить произведение элементов 4-ой строки, больших 3.
240 ? :-)
5 * 6 * 8 = 240
Вам не кажется, что очень просто?

а вам не кажется, что 35068 - это не сама строка, а именно сумма?
...
Рейтинг: 0 / 0
20.12.2009, 01:44
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36376185
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
Shocker.Pro.Михаил.calcLostarП
Вычислить произведение элементов 4-ой строки, больших 3.
240 ? :-)
5 * 6 * 8 = 240
Вам не кажется, что очень просто?

а вам не кажется, что 35068 - это не сама строка, а именно сумма?
Согласен: тогда получается это матрица 5х5; суммы построчных элементов исключая элементы главной диагонали приведены в исходных данных. Необходимо при данных условиях найти каждый элемент этой матрицы. Но как было сказано выше, такое очучение, чего-то в условиях не хватает.
Lostas
Вычислить произведение элементов 4-ой строки, больших 3.

Если найти элементы 4-ой строки, сумма которых = 35068, то, по-моему, каждый элемент должен больше чем 3, не так ли? Слишком маленькая эта цифра 3 в исходных данных?
...
Рейтинг: 0 / 0
20.12.2009, 11:30
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36376245
Lostar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lostar
Гость
Неудобно вас загружать этим заданием, в понедельник постараюсь всё выяснить досканально. Спасибо за поддержку, как выясню, напишу.
...
Рейтинг: 0 / 0
20.12.2009, 13:08
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519273
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
Хорошее название темы...
Тогда не надо создавать другую :)
Вопрос короткий:
Получен массив с данными XArray() неизвестной размерности...
Нужно получить значение элемента массива с адресом XAddress полученном в виде:
1. XAddress=Array(X1,X2,X3,....,Xn), где n - может быть любой, но вседа соответствует n-мерности массива
ИЛИ
2. XAddress="X1,X2,X3,....,Xn"
Одним словом нужно что-то типа:
XElement=XArray(XAddress)
В каком виде или какого типа нужно представить XAddress, что сработало?...
...
Рейтинг: 0 / 0
14.03.2010, 16:26
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519288
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AlexFrХорошее название темы...
Тогда не надо создавать другую :)

Когда вам будут делать укол, попросите сделать его шприцом от предыдущего пациента, потому что он еще хороший и почти новый.

Лучше создайте новый топик и попытайтесь все-таки чуть попонятней объяснить. Я вот так и не понял XAddress - это входные данные или выходные данные? и какого типа входные данные и результат? Попробуйте привести пример что ли....
...
Рейтинг: 0 / 0
14.03.2010, 16:35
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519313
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
AlexFr,

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub arr_primer()
arr = Array("один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
For i = LBound(arr) To UBound(arr)
MsgBox i & " элемент = " & arr(i)
Next
End Sub
...
Рейтинг: 0 / 0
14.03.2010, 16:45
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519337
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
Shocker.Pro,
Option Base 1
Sub CreateSamp()
Dim XArray(10, 10) As Integer
For X = 1 To 10
For Y = 1 To 10
XArray(X, Y) = X + Y - 1
Next Y
Next X
XAddress = Array(1, 5)
XElement = XArray(1, 5) ' А хтелось бы что-то типа XElement = XArray(XAddress)
End Sub
...
Рейтинг: 0 / 0
14.03.2010, 16:55
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519356
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если вы хотите вырезать кусок из массива, то почему тогда XAddress сам представлен в виде массива, причем незаполненного?
...
Рейтинг: 0 / 0
14.03.2010, 17:10
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519360
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
может что-то типа вот этого?
Код: plaintext
XElement = XArray(Ubound(XAddress, 1 ), Ubound(XAddress, 2 ))
...
Рейтинг: 0 / 0
14.03.2010, 17:12
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519386
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
Shocker.Pro,

Наверно я не достаточно исчерпывающе изложил... :(
Попробую по другому:

Sub CreateSamp()
Dim XArray(10, 10) As Integer
For X = 1 To 10
For Y = 1 To 10
XArray(X, Y) = Rnd
Next Y
Next X
XElement = XArray(1, 5)
NADO_XElement = XFunc(XArray, "1,5") 'Вот такую функцию сочиняю, а как применить "1,5"?
Stop
Dim XArray1(10, 10, 10) As Integer
For X = 1 To 10
For Y = 1 To 10
For Z = 1 To 10
XArray1(X, Y, Z) = Rnd
Next Z
Next Y
Next X
XElement = XArray1(1, 5, 3)
NADO_XElement = XFunc(XArray1, "1,5,3") 'Вот такую функцию сочиняю, а как применить "1,5,3"?
Stop
End Sub

Public Function XFunc(XArrayFunc, StringAddr)

End Function
...
Рейтинг: 0 / 0
14.03.2010, 17:25
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519409
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
XElement = XArray1(1, 5, ..., n) и NADO_XElement = XFunc(XArray1, "1,5,...,n") - это одно и тоже значение
...
Рейтинг: 0 / 0
14.03.2010, 17:37
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519505
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AlexFr,

Я нифига не могу понять, что вам надо.

Разложить текстовую строку в массив - функция Split
...
Рейтинг: 0 / 0
14.03.2010, 18:42
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519880
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
Public Function XFunc(XArrayFunc, StringAddr)
' Массив получаю в XArrayFunc
' Адрес элемента массива получаю в StringAddr, но в текстовом виде, грубо говоря...
' Нужно из массива XArrayFunc извлеч его элемент с адресом StringAddr... Как?

End Function
...
Рейтинг: 0 / 0
15.03.2010, 00:38
| Ответить | Цитировать | Написать  
Массивы в VBA
    #36519898
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
AlexFr,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Function XFunc(XArrayFunc, StringAddr)
' Массив получаю в XArrayFunc
' Адрес элемента массива получаю в StringAddr, но в текстовом виде, грубо говоря...
' Нужно из массива XArrayFunc извлеч его элемент с адресом StringAddr... Как?
XFunc = XArrayFunc(Val(StringAddr))
End Function

Sub ttt()
arr = Array("один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
test = XFunc(arr, "1")
MsgBox test
End Sub
...
Рейтинг: 0 / 0
15.03.2010, 00:51
| Ответить | Цитировать | Написать  
25 сообщений из 69, страница 1 из 3
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массивы в VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36375829&tid=2159071]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 320ms
total:  451ms
созд. / загр.: 451ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]