Лабораторная работа №1. СОЗДАНИЕ ПРОСТЕЙШИХПОЛЬЗОВАТЕЛЬСКИХ ФУНКЦИЙЗадание 1. Создать пользовательскую функцию для решения следующей задачи. Задана себестоимость товара, процент налога на добавленную стоимость и процент возможной прибыли от продажи товара. Требуется вычислить размер цены за товар.Для решения задачи на рабочем листе Excel должна быть оформлена следующая таблица (рис. 9). Разработанную пользовательскую функцию надо будет записать в соответствующие ячейки столбца E.

Рис. 9. Таблица расчета цены товара.

Для создания пользовательской функции необходимо выполнить следующие действия:

1. 
   войти в редактор VBE (нажать клавиши Alt-F11);
   
2. 
   вставить стандартный модуль (команда меню Insert/Module);
   
3. 
   набрать код программы (см. рис. 10).
   

Рис. 10. Окно редактора VBE с кодом пользовательской функции

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

1. 
   перейти на рабочий лист приложения Excel;
   
2. 
   для первого товара в столбце Цена вставить созданную функцию;
   
3. 
   скопировать функцию в последующие строки.
   

Задание 2. Создать программный код для вычисления функций f(x) и f1(x) в соответствии с заданным вариантом.

Вариант 3

f(x) = 2cos2(πx)

f1(x) = 2cos(πx)2

---

Программный код:Sub функция()  Dim x#, f#, f1#  x = InputBox("Введи х:", , 3)  f = 2 * Cos(Atn(1) * 4 * x)  MsgBox ("f(" & x & ")=" & f)  f1 = 2 * Cos(Atn(1) * 4 * x) ^ 2  MsgBox ("f1(" & x & ")=" & f1)EndSubЗадание 3.Вариант 1. Правительство гарантирует, что инфляция в новом году составит i % в месяц. Какого роста цен за год можно ожидать?Программный код:Sub program() Dim a, i, s:  i = InputBox("Введите процент месячной инфляции:", , 3)  MsgBox (1 + i / 100) ^ 12  MsgBox ("i(" & i & ")=" & i)  s = (a - 1) * 100  MSGBOX (1+I/100)^12EndSub

---

Смотрите также файлы

• Солнечная система.docx

• План урока (тема урока) Раздел Раздел 5 Физика природы. Ф. И. О педагога.docx

• Пять наследников, несущих в себе печать древней силы и огромной ответственности.docx

• Наука об измерениях, методах и средствах обеспечения их единства и способах достижения требуемой точности.docx

• Планирование в логистическом управлении Выполнили Абдуллаев Б., Лепичева Н., Сазонова Ю.pptx