Приклад виконання
3.1 Скласти графічний алгоритм та програму для обчислення значення функції
3.1 Графічний алгоритм програми зображений на рис.3.1
1
2
3
4
5
9
7
10
6
8
11
Рисунок 3.1 – Графічний алгоритм
3.2 Пояснення до графічного алгоритму
Блок 1 – початок програми;
Блок 2 – введення значення константи y ;
Блок 3 – введення значення аргумента х;
Блок 4,9 – логічні блоки перевірки умов;
Блок 5, 7 – обчислення значень функції
Блок 6,8,10 – друкування значень аргумента, функції, та повідомлення "Функція неіснує";
Блок 11 – закінчення програми.
3.3 Пояснення до програми
3.3.1 В клітинку А1 ввести текст "Вихідні дані";
3.3.2 В клітинку А2 ввести тект "значення аргумента Х=";
3.3.3 В клітинку В2 ввести значення Х
3.3.3 В клітинку С1 ввести тект "результат при Х>Y";
3.3.4 В клітинку D1 ввести тект "результат при Х=Y";
3.3.5 Виконати програму Сервіс →Макрос →Редактор VBA;
3.3.6 Виконати команду Вставка →Модуль;
3.3.7 Ввести ім’я модуля Sub розгалуження()
3.3.8 Набрати текст програми
3.4 Код програми мовою VBA
Sub розгалуження()
Dim x, y, d As Single
y = 0.78
x = Worksheets(1).Range("B2").Value
If x > y Then d = (x - y) ^ 3 + Atn(x): Worksheets(1).Range("C2").Value = d: GoTo 10
If x = y Then
d = (x + y) ^ 3 + 0.5: Worksheets(1).Range("D2").Value = d
Else
Worksheets(1).Range("E2").Value = x
Worksheets(1).Range("F2").Value = " функція неіснує"
End If
10: End Sub
3.5 Результат виконання програми
Рисунок 3.2 – Результат виконання програми
3.6 Код програми для очищення клітинок від значень
Sub очищення()
Worksheets(1).Range("B2").Clear
Worksheets(1).Range("c2").Clear
Worksheets(1).Range("d2").Clear
Worksheets(1).Range("E2").Clear
End Sub
3.7 Створеним макросам призначити кнопки (рис.3.3).
Рисунок 3.3 Результат виконання завдання.
Лабораторная работа № 6
МЕТА РОБОТИ: Отримати навички використання оператора Select Case при створенні програмного коду.
1 Короткі теоретичні відомості:
Як відомо, багато задач з математики ожна розв'язувати різними способами. В програмуванні також шлях до рішення задачі можна знати по-різному. Наприклад, коли в умові задачі часто використовується постановка итання починаючи з якщо, то в коді програми реалзується оператор умови If...Then...Else. Якщо таких вкладених умов 2,3, 4 і т.д, тоді для спрщення програми замість If...Then...Else використовують інструкцію Select Case
Синтаксис: Select Case <змінна>
[Case <значення 1 >
[блок операторів 1]
[Case <значення 2 >
[блок операторів 2]
…
[Case <значення n >
[блок операторів n]
[Case Else
[блок операторів n+1]
End Select
Синтаксис інструкциії Select Case містить такі елементи:
<змінна > - обовязкова. Будь-яка змінна числового або рядкового типу, а також виду <вираз To вираз> або <Is оператор порівняння виразу>.
Ключове слово To задає діапазон значень. При використанні ключового слова To перед ним повинно знаходитись меньше значення. Ключове слово Is з операторами порівняння задає діапазон значень. Якщо ключове слово Is не вказано, воно вставляется за замовчуванням.
< блок операторів n > -необовязкові.Один або декілька операторів, які виконуються тоді, якщо вираз співпадає з будь-яким елементом списку <змінна >.
<Case Else >- необовязкова. Один або декілька операторів, які виконуються тоді, якщо вираз не співпадає з будь-яким елементом списку <змінна > . Якщо <змінна > приймаймає одне із значень, що дорівнює <значенню і> , тоді виконується <блок операторів і >.
Блок операторів, який слідує після фрази Case Else виконуєть тоді, коли блоки операторів, які слідують після фрази Case не виконуються. Оператор Select Case заваршується фразою End Select
В кожному виразі Case допускается використання декількох виразів чи діапазонів. Наприклад:
Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber
Допускаються вкладені оператори Select Case. Кожному з них повинна віждповідати фраза End Select.
Приклад1: за введеним числом дня тижня визначити назву дня
Select Case x
Case 1
MsgBox ("Понеділок")
Case 2
MsgBox ("Вівторок")
Case 3
MsgBox ("Середа")
Case 4
MsgBox ("Четвер")
Case 5
MsgBox ("П'ятница")
Case 6
MsgBox ("Субота")
Case 7
MsgBox ("Неділя")
Case Else
MsgBox ("Такого дня не існує")
End Select
Приклад2:
обчислити значення функції: y=
Sub розгалуження_Case()
Dim x, y As Single, k As Byte
x = Val(InputBox("введіть значення аргумента х"))
k = 4
If x < 1.2 Then k = 1
If x >= 2 And x < 3 Then k = 2
If x > 6 Then k = 3
Select Case k
Case Is < 1.2
y = Cos(x)
MsgBox (y)
Case 2 To 3
y = Exp(x)
MsgBox (y)
Case Is > 6
y = Log(x)
MsgBox (y)
Case Else
MsgBox ("функція не існує")
End Select
End Sub
2 Задания для лабораторної роботи
2.1 Скласти програму :
За введеним числом визначити пору року : 1 - зима і т.д.
За введеним числом визначити місяці зими 1 - грудень, ...
За введеним числом визначити місяці весни: 1 - березень, ...
За введеним числом визначити місяці літа: 1 - червень, ...
За введеним числом визначити місяці осені: 1 - вересень, ...
За введеним числом визначити дні тижня: 1 - понеділок, ...
За введеним числом визначити міста Івано-Франківської області: 1 - Калуш, ...
За введеним числом визначити ВНЗ Івано-Франківська.
За введеним числом озвучити оцінку:"5" - відмінно, ...
За введеним числом визначити колір райдуги: 1 –червоний,…
За введеним числом визначити знаки зодіака: 1-овен,…
За введеним числом визначити столиці Європейських країн: 1-Київ,…
За введеним числом визначити марки автомобілів: 1- Ford,…
За введеним числом визначити назви пошукових систем в Internetі: 1-Google,…
За введеним числом визначити назви комп’ютерних програм: 1-Word,…
За введеним числом визначити назви туристичних фірм: 1 – Надія,…
За введеним числом визначити назви будівельних організацій: 1- ЕКС ТІМ,…
За введеним числом визначити назви партій України: 1- БЮТ,…
За введеним числом визначити мікрорайонів Івано-Франківська: 1- Позитрон,…
За введеним числом визначити назви футбольних команд: 1-Спартак,…
2.2 Скласти програму для обчислення значення функції, таблиця 2, з лабораторної роботи №5 з використанням оператора Select Case.