Линейные вычислительные процессы

Линейная программа – это такая программа, в которой операторы выполняются один за другим в том порядке, в каком они записаны в программе.

Пример 1

Найти z

,

где у=2/3, а=27.

Решение в таблице Excel:

1. Переименовать Лист1 в Линейные_процессы,

2. В ячейки А1:А3 ввести комментарии к Примеру 1,

3. Ячейку В1 переименовать в а, В2 – в у,

4. Ввести в В1 число 27, в В2 формулу =2/3,

5. Ввести в ячейку В3 формулу, используя для вставки функций Мастер функций, вставку аргументов в формулу лучше производить при помощи мыши,

6. По завершении ввода формулы нажать Enter.

Решение в редакторе Excel Visual Basic

(Запись макроса в виде отдельной процедуры):

1. Перейти в редактор Visual Basic (Сервис – Макрос - редактор Visual Basic),

2. Откройте Модуль 1 (Вставка – Модуль или Insert – Module)

3. Наберите программу.

Sub Линейные1()

a = Val(InputBox("Введите a", "Ввод a")) 'Ввод данных в диалоговом окне

y = 2 / 3 'Ввод данных в программе

z = Exp(Sin(y) ^ 3) + a ^ (1 / 3) * Log(Atn(a * y))

MsgBox "z=" & z 'Вывод результата в диалоговом окне

End Sub

'Ответ: при a=27

'z=2.51358

Пример 2

Найти g

,

где х=ln2, y=0.28*10².

Решение в таблице Excel:

Решение в редакторе Excel Visual Basic

(Запись макроса в виде отдельной процедуры):

Sub Линейные2()

y = Val(InputBox("Введите y", "Ввод y")) 'Ввод данных в диалоговом окне

x = Log(2)

g = x ^ (1 / 3) * Tan(Abs(x + 1) * (x - Exp(-x))) + (Cos(3.1416 / y)) ^ 2

MsgBox "g=" & g 'Вывод результата в диалоговом окне

End Sub

'Ответ: при y=28

'g=1.2876

Создание диалога

Ввод информации часто осуществляется с помощью клавиатуры и мыши. Чтобы организовать взаимодействие пользователя и программы, используются разнообразные экранные формы. Ярким примером таких форм служат диалоги в программах для среды Windows.

Для создания диалога (формы) необходимо вставить в рабочую книгу лист с заготовкой нового диалога. Вставка осуществляется Сервис – Макрос – Редактор Visual Basic, Insert – User Form (Вставка – Диалог).

Первый шаг при работе с экранной формой – это установка значений её свойств View – Properties Window (Вид – Окно свойств) (рис. 8). Свойство Name (Имя) – имя формы, которое используется в программе для ссылки на экранную форму. Свойство Caption (Заголовок) – текст, который отображается в строке заголовка.

Рис. 8. Окно свойств

Рис. 9. Окно проекта

Созданный диалог можно выполнить, нажав клавишу [F5]. Под выполнением понимается вывод её на экран в окне приложения.

Табл. 3. Элементы управления

Создание всех элементов управления в поле диалога происходит с помощью кнопок на панели инструментов Формы (рис. 10).

Рис. 10. Панель инструментов Формы

Пример:

Создать диалог вычисления z

,

где у=2/3, а=27.

Решение:

1. Вставить в рабочую книгу лист с заготовкой нового диалога. Сервис – Макрос – Редактор Visual Basic, Insert – User Form (Вставка – Диалог).

2. Вызвать окно свойств View – Properties Window (Вид – Окно свойств) и Окно проекта (View – Project Explorer).

3. Измените заголовок диалога, для этого в Окне свойств (Properties Window) в строке Caption, удалите заголовок User Form1 и набейте Пример1_Линейные.

4. С помощью кнопок на панели инструментов «Формы» (“ToolBox”) создать необходимые элементы диалога.

a) При помощи кнопки Метка (Label) растягиваете поле для названий, удаляете предложенное, набиваете, вместо Label1 - Ввод у, вместо Label2 - Ввод а, вместо Label3 - Результат z.

b) Далее при помощи кнопки Текстовое поле (TextBox) растягиваете поля ввода.

c) Рисуете кнопки, используя одноимённые кнопки с панели инструментов «Формы» (“ToolBox”). CommandButton1 –называете Ответ, CommandButton2 – Очистить, CommandButton3 – Выход (рис. 11).

Рис. 11. Диалоговое окно

5. Для того, чтобы осуществить взаимодействие диалога с программой дважды щёлкаем мышью по кнопке Ответ. В листе программы User Form1 появится заготовка процедуры, в которой необходимо набрать следующее[1]:

Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...

Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем...

Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...

Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...

Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте: