Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массивы в VBA / 25 сообщений из 69, страница 1 из 3
  1  все
19.12.2009, 18:29
    #36375547
Lostar
Lostar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
Помогите с заданием на массивы пожалуйста:

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

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

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

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

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

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

а вам не кажется, что 35068 - это не сама строка, а именно сумма?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2009, 11:30
    #36376185
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
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, 13:08
    #36376245
Lostar
Lostar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
Неудобно вас загружать этим заданием, в понедельник постараюсь всё выяснить досканально. Спасибо за поддержку, как выясню, напишу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2010, 16:26
    #36519273
AlexFr
AlexFr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
Хорошее название темы...
Тогда не надо создавать другую :)
Вопрос короткий:
Получен массив с данными 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:35
    #36519288
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
AlexFrХорошее название темы...
Тогда не надо создавать другую :)

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

Лучше создайте новый топик и попытайтесь все-таки чуть попонятней объяснить. Я вот так и не понял XAddress - это входные данные или выходные данные? и какого типа входные данные и результат? Попробуйте привести пример что ли....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2010, 16:45
    #36519313
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
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:55
    #36519337
AlexFr
AlexFr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
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, 17:10
    #36519356
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
Если вы хотите вырезать кусок из массива, то почему тогда XAddress сам представлен в виде массива, причем незаполненного?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2010, 17:12
    #36519360
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
может что-то типа вот этого?
Код: plaintext
XElement = XArray(Ubound(XAddress, 1 ), Ubound(XAddress, 2 ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2010, 17:25
    #36519386
AlexFr
AlexFr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
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:37
    #36519409
AlexFr
AlexFr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
XElement = XArray1(1, 5, ..., n) и NADO_XElement = XFunc(XArray1, "1,5,...,n") - это одно и тоже значение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2010, 18:42
    #36519505
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
AlexFr,

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

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

End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2010, 00:51
    #36519898
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массивы в VBA
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
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массивы в VBA / 25 сообщений из 69, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159071]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 319ms
total:  452ms
x
x
Закрыть


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