Лабораторная работа № 3

Создание функций

В Calc можно использовать не только имеющиеся функции, но и создавать свои. Для этого нужно зайти в редактор Бэйсик и в новом модуле написать свою функцию. Затем ее можно использовать, как и любые функции Calc. Ранее мы писали коды процедур, которые начинались со служебного слова Sub. Код функции, в отличие от кода процедуры, начинается с Function и заканчивается end function. В коде функции не нужно предусматривать ввода данных, поскольку он осуществляется через таблицы Calc. Но чтобы это стало возможным необходимо при написании кода функции предусмотреть набор параметров, передаваемых функции. Параметры – это данные передаваемые функции. Параметры объявляются и перечисляются в скобках сразу после имени функции. Таким образом, начало кода функции:

 Function имя_функции(список параметров).

Функция, в отличие, от процедуры, всегда возвращает значение. То есть если вызвать написанную в макросе функцию в таблице Calc, то функция произведет расчеты, используя введенные параметры, и выведет в ячейку Calc результат. Таким образом, сначала нужно написать код функции в редакторе VBA, затем вызвать ее в ячейке таблицы Calc:

=имя_функции(номер_ячейки, содержащей параметр функции),

то в ячейке получим результат работы функции.

Задание 1

1.  Откройте новый документ Calc и сохранить его под именем «Лабораторная работа_3».
2.  Откройте новый модуль Бэйсика с помощью команды меню Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик, в открывшемся окне выбрать свой файл «Лабораторная работа_3», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
3.  В открывшемся окне редактора сотрите все, что есть и наберите следующий код:

Function QH(Q, P)

QH=Q*(100-P)/100

End Function

4. Закройте окно редактора.
5. Заполните следующую таблицу на листе Calc (рис. 16).

Рис. 16. Таблица данных

6. В ячейке «С2» наберите «=QH(A2,B2)» и нажмите «Enter» (в ячейке «А2» – значение параметра Q, в ячейке «В2» – значение параметра P)
7. Сохраните файл.

Самостоятельно

Написать функцию, рассчитывающую сумму налога НДС с выручки, и использовать ее.

Задание 2

Написать функцию OpenOffice.org Basic для следующей функции пользователя, используя ее дополнить таблицу вычисленными значениями и построить график зависимости y=y(x):

1. Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_3».
2. Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик, в открывшемся окне выберите свой файл «Лабораторная работа_3», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
3. Поскольку программу с длинными строками отлаживать неудобно, то напишем тело функции из нескольких строк. В открывшемся окне редактора сотрите все, что есть и наберите следующий код:

Function FY(x)

a=1+Abs(0.2-x)

b=1+x+x*x

FY=a/b+Sin(x)

FY=FY+Log(x+2)

FY=FY-Atn(x^3+1)

FY=FY+Exp(-x)-Tan(x^3.13)

FY=FY+Sqr(x)+Cos(x+1)

End Function

4. Сохраните файл программы.
5. Закройте окно редактора.
6. На листе Calc заполните столбец А значениями х от -10 до 10.
7. В столбце В рассчитайте по функции FY значение заданного выражения. Для этого в ячейке В1 введите «=FY(A1)».
8. Постройте график зависимости y(x).
9. Сохраните файл.

Самостоятельно

Написать функцию,  рассчитывающую значения y=x2+lnx+10,46 – tg x для x