Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
ВЫЧИСЛЕНИЕ АРИФМЕТИЧЕСКИХ ВЫРАЖЕНИЙ
Цель работы: 1. Получить практические навыки записи арифметических выражений. 2. Приобрести знания по составлению простейших программ с выводом результатов на рабочий лист рабочей книги Excel.
Задание: 1. Изучить теоретический материал соответствующего раздела учебного пособия «Информатика в пищевой биотехнологии (часть 2)» 2. Составить программу вычисления арифметического выражения. 3. Исходные данные и результаты расчета разместить на рабочем листе рабочей книги Excel, назначить макросу кнопку. 4. Написать отчет, содержащий: - задание; - текст программы; - результаты расчета. Варианты задания приведены в табл. 2.1.
Создание макроса на языке VBA Создать макрос «Выражение», который вычисляет значение арифметического выражения с проверкой области определения функций. Порядок выполнения (рис. 2.1): 1. Запустить приложение Excel. 2. Выделить ячейку A2 и ввести в нее “a”. 3. Выделить ячейку B2 и ввести в нее число 4. 4. Выделить ячейку A3 и ввести в нее “b”. 5. Выделить ячейку B3 и ввести в нее 1. 6. Выделить ячейку A4 и ввести в нее “x”. 7. Выделить ячейку B4 и ввести в нее 2. 8. Выберите в главном меню Сервис – Макрос – Начать запись. В появившемся диалоговом окне (рис. 2.2) в поле Имя макроса введите имя макрокоманды, например Выражение. Нажмите на кнопку ОК. Таблица 2.1
Рис. 2.1. Исходные данные
9. Выберите в главном меню Сервис – Макрос – Остановить запись, затем Сервис – Макрос – Макросы. В появившемся окне (рис. 2.3) в левой части выделите имя вашего макроса, в опции Находится в: из ниспадающего меню выберите Эта книга и нажмите кнопку Войти. Рис. 2.3. Окно «Макрос» 10. В открывшемся редакторе Microsoft Visual Basic выполните ввод исходного кода программы
Sub Выражение()
'Активация рабочего листа Sheets(" Лист1" ).Select
'Ввод исходных данных из ячеек книги Excel a = ThisWorkbook.ActiveSheet.Cells(2, 2) b = ThisWorkbook.ActiveSheet.Cells(3, 2) x = ThisWorkbook.ActiveSheet.Cells(4, 2)
'Выполнение вычислений c0 = Exp(x + a * b) c1 = a * b + x ^ 2 * Sin(a) ^ 2 If c1 < 0 Then GoTo 1 c2 = a * a - b * b If c2 = 0 Then GoTo 1 c3 = Sqr(c1) / c2 If c3 < = 0 Then GoTo 1 y = c0 + Log(c3) + x
'Вывод результата в ячейку книги Excel ThisWorkbook.ActiveSheet.Cells(6, 1) = " y" ThisWorkbook.ActiveSheet.Cells(6, 2) = y
Exit Sub 1: ThisWorkbook.ActiveSheet.Cells(6, 2) = " Функция не определена" End Sub
11. Выполните команду Файл – Сохранить, дайте файлу имя и вернитесь в окно Excel. 12. Введите команду Сервис – Макрос – Макросы…. На открывшейся диалоговой панели Макросы выберите макрос Выражение и нажмите кнопку Выполнить (рис. 2.4).
Рис. 2.4. Результат выполнения макроса
13. Введите новые исходные данные: a=0, 6; b=5; x=4, 45 и выполните макрос (рис. 2.5).
Рис. 2.5. Результат выполнения макроса
14. Текст макроса и результаты вычислений запишите в тетрадь. Назначить макросу кнопку. Для этого необходимо выполнить следующие действия: - выбрать на панели рисования любую фигуру (прямоугольник, круг или др.) и разместить ее на рабочем листе; - закрасить фигуру любым цветом; - вызвать контекстное меню, выполнить команду Добавить текст и ввести текст «Вывод значения алгебраического выражения»; - используя команду контекстного меню Формат автофигуры, выполнить форматирование текста по горизонтали и вертикали – по центру, размер шрифта – 14 пт, начертание – полужирный; - выбрать из контекстного меню команду Назначить макрос, из появившегося списка окна «Назначить макрос объекту» выбрать имя макроса Выражение, в поле Находится в: выбрать Эта книга и нажать OK;
Поместите указатель мыши на созданную кнопку и нажмите левую клавишу.
Лабораторная работа 2.2
ВЫЧИСЛЕНИЕ СЛОЖНОЙ ФУНКЦИИ Цель работы: Приобрести навыки по использованию в программе условного оператора If … Then … Else …
Задание: 1. Составить программу вычисления значений функции, заданных несколькими условиями с использованием условного оператора If … Then … Else … 2. Исходные данные и результаты расчета разместить на рабочем листе рабочей книги Excel, назначить макросу кнопку. 3. Написать отчет, содержащий: - задание; - текст программы; - результаты расчета.
Варианты задания приведены в табл. 2.2. Таблица 2.2
Лабораторная работа 2.3
РАСЧЕТ И ОФОРМЛЕНИЕ ТАБЛИЦЫ ЗНАЧЕНИЙ ФУНКЦИИ Цель работы: 1. Приобрести знания по применению цикла с известным числом повторений For … Next. 2. Получить практические навыки по выводу таблицы значений функции на рабочий лист рабочей книги Excel.
Задание: 1. Составить программу вычисления значений функции Y на отрезке от 1 до 3 с шагом 0, 25. Значение А вводится с клавиатуры. 2. Исходные данные и результаты расчета разместить на рабочем листе рабочей книги Excel. 3. Написать отчет, содержащий: - задание; - текст программы; - результаты расчета. Варианты задания приведены в табл. 2.3. Таблица 2.3
Лабораторная работа 2.4
|
Последнее изменение этой страницы: 2017-03-14; Просмотров: 917; Нарушение авторского права страницы