Введение в проф.деят. Лабораторная 1. Лабораторная работа 1. Лабораторная работа 1. Создание простейших пользовательских функций задание 1

• Название: Лабораторная работа 1. Создание простейших пользовательских функций задание 1
• Анкор: Введение в проф.деят. Лабораторная 1
• Дата: 04.04.2023
• Размер: 91.08 Kb.
• Имя файла: Лабораторная работа 1.docx
• Тип: Лабораторная работа; #1037205

Лабораторная работа №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)

End Sub
Задание 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)^12

End Sub