Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Функция "массив от массива"

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic
Предыдущая тема :: Следующая тема  
Автор Сообщение
mathnew



Репутация: 0    

Зарегистрирован: 20.08.2011
Сообщения: 24

СообщениеДобавлено: Чт Ноя 17, 2011 8:38 am    Заголовок сообщения: Функция "массив от массива" Ответить с цитатой

Иногда требуется передать в функцию некоторый массив, обработать в этой функции и вернуть обработанный массив в виде функции.

Пример такой функции, получающей массив, возводящий элементы входного массива в квадрат, и возвращающей обработанный массив:
Код:
Function farray(arrarg)
Dim fr(UBound(arrarg))

For i = LBound(arrarg) To UBound(arrarg)
   fr(i) = arrarg(i) * arrarg(i)
Next i

farray() = fr()
End Function


Тестовый макрос для проверки данной функции:
Код:
Sub test_farray
Dim p(3)
p(0)=10
p(1)=11
p(2)=12

Larr = LBound(farray(p())
Uarr = UBound(farray(p())

For n = Larr To Uarr-1
   MsgBox "farray(" & n & ") = " & farray(p())(n)
Next n

End Sub
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS