Автор работы: Пользователь скрыл имя, 19 Апреля 2011 в 01:37, контрольная работа
Целью контрольной работы является овладение студентами навыками решения математических и экономических задач с помощью электронных таблиц, основами алгоритмизации и программирования.
Задачи контрольной работы:
o Создание, редактирование исходных таблиц
o Обработка, создание результатов и отчетных данных
o Создание пользовательских функций и процедур для облегчения работы с данными
ЗАДАНИЕ НА КОНТРОЛЬНУЮ РАБОТУ ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА» 2
Задание 1 2
Задание 2 2
Задание 3 3
Задание 4 3
Задание 5 3
ОГЛАВЛЕНИЕ 4
ВВЕДЕНИЕ 5
РЕЗУЛЬТАТЫ РЕШЕНИЯ ЗАДАЧ 6
ЗАДАНИЕ 1 6
ЗАДАНИЕ 2 9
ЗАДАНИЕ 3 18
ЗАДАНИЕ 4 19
ЗАДАНИЕ 5 21
ЗАКЛЮЧЕНИЕ 24
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 25
Условием, как видно на изображении является значение x>0.
Копируем функцию на все координаты аргумента и по полученным значениям строим график функции.
| Вариант 8 | |||||||||
| Вычисление функции 8 из таблицы 1 | |||||||||
| a | 4 | ||||||||
| x | -3 | -2 | -1 | 0 | 1 | 2 | 3 | 4 | 5 |
| z | 4,02 | 4,83 | 4,71 | 4,00 | 6,00 | 9,41 | 14,73 | 22,00 | 31,24 |
| Вариант 8 | |||||||||
| Вычисление функции 8 из таблицы 1 | |||||||||
| a | 4 | ||||||||
| x | -3 | -2 | -1 | 0 | 1 | 2 | 3 | 4 | 5 |
| z | =ЕСЛИ(B7>0;
(A+КОРЕНЬ(B7)+B7^2); (A+SIN(B7)^2)) |
=ЕСЛИ(C7>0;
(A+КОРЕНЬ(C7)+C7^2); (A+SIN(C7)^2)) |
=ЕСЛИ(D7>0;
(A+КОРЕНЬ(D7)+D7^2); (A+SIN(D7)^2)) |
=ЕСЛИ(E7>0;
(A+КОРЕНЬ(E7)+E7^2); (A+SIN(E7)^2)) |
|||||
ЗАДАНИЕ 4
Для обработки примера , используем язык программирования VBA. Для этого создадим собственную функцию.
Перейдем в программный редактор, нажав сочетание клавиш Alt + F11.
Создадим новый модуль и напишем программный код функции специально для примера. Для создания нового модуля выполним команду «Insert - Module».
Затем «Insert – Procedure », зададим название «СЛОЖНАЯ_ЕСЛИ» и выберем тип «функция, общая».
Далее пишем саму функцию:
Public Function СЛОЖНАЯ_ЕСЛИ(A)
If A < -1 Then
СЛОЖНАЯ_ЕСЛИ = A - Sqr(Abs(Tan(A / 4)))
Else
СЛОЖНАЯ_ЕСЛИ = A + Sin(Tan(A / 4) / 2)
End If
End Function
Затем компилируем командой «Debug - Complite» и сохраняем функцию «File - Save».
Готовая функция отображается в окне «Project».
Вызов функции осуществляется способом вызова любой стандартной функции.
Копируем функцию на остальные значения аргумента и создаем график.
Результат:
| Вариант 3 | ||||||||
| Вычисление функции 3 таблицы 1 средствами VBA | ||||||||
| a | -4 | -3 | -2 | -1 | 0 | 1 | 2 | 3 |
| z | -5,24796 | -3,96519 | -2,73912 | -1,12732 | 0 | 1,127324 | 2,269767 | 3,449136 |
ЗАДАНИЕ 5
Аналогично предыдущему заданию, создаем процедуру для подсчета прогрессии:
Для создания новой процедуры воспользуемся: «Run – Run Macro», зададим название новой процедуры «ПРОГРЕССИЯ» и нажмем кнопку «Create».
Таким образом, создался новый модуль (второй). Напишем программу подсчета примера:
Sub ПРОГРЕССИЯ()
Dim I As Integer
Dim Сумма As Single
A = 5.333
Y = MsgBox("Процедура выполняет
Сумма = 0
For I = 1 To A Step 1
Сумма = Сумма + (1 / A ^ I)
Next I
MsgBox "сумма равна " & Сумма
End
Sub
Выполним процедуру -
В результате получим следующее значение прогрессии:
Данный результат получен для значения переменной А равной 5,333.
Для получения результата прогрессии другого значения переменной нужно изменить строку:
A = 5.333
на другое значение.
Для создания более эффективного и простого макроса, воспользуемся следующей модификацией процедуры «ПРОГРЕССИЯ». Изменим программу следующим образом и сохраним результат под названием «ПРОГРЕССИЯ_1»:
Sub ПРОГРЕССИЯ_1()
Dim I As Integer
Dim Сумма As Single
A = InputBox("Введите число A", "Ввод данных")
Y = MsgBox("Процедура выполняет вычисления A=" & A & Chr(13) & "Продолжить?", 4)
Сумма = 0
For I = 1 To A Step 1
Сумма = Сумма + (1 / A ^ I)
Next I
MsgBox "сумма равна " & Сумма
End
Sub
Теперь
переменная А задается непосредственно
пользователем перед
Далее выберем инструмент «Кнопка» и присвоим ей выполнение макроса под именем «ПРОГРЕССИЯ_1»:
Зададим название кнопки:
Готово.
При нажатии на кнопку происходят действия, аналогичные выполнению команды «Run – Run Macro». Результат аналогичен предыдущему.
Заключение
Контрольная работа состоит из 5 заданий, общий объем – 25 листов.
В ходе выполнения контрольной работы были получены ценные знания по обработке экономических данных средствами MS Excel, созданию и вызову пользовательских процедур и функций, облегчающих работу инженера-экономиста и, тем самым, сокращающих время обработки информации.
Качество и скорость обработки исходной информации в современном мире как никогда влияет на степень эффективности экономической деятельности практически каждого предприятия, а это обеспечивает сокращение финансовых и трудовых потерь вследствие применения ЭВМ.
Список использованной литературы