Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология
Образование Политология Производство Психология Стандартизация Технологии


ВЫЧИСЛЕНИЕ АРИФМЕТИЧЕСКИХ ВЫРАЖЕНИЙ



 

Цель работы:

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. Исходные данные

Рис. 2.2. Окно «Запись макроса»

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.2  
Функция


  Продолжение табл. 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.3  
Функция Функция

 

Лабораторная работа 2.4

 


Поделиться:



Последнее изменение этой страницы: 2017-03-14; Просмотров: 917; Нарушение авторского права страницы


lektsia.com 2007 - 2024 год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! (0.027 с.)
Главная | Случайная страница | Обратная связь