Лабораторна робота №3

На тему: «Алгоритмізація та програмування задач розгалужених структур в середовищі Visual Basic (VB) ».

Мета: навчитись вирішувати задачі розгалужених структур, засвоїти оператори умовного переходу: однорядковий (IF <умова> Then … ELSE ,,,), блочний ( IF ,,,,, EndIF).

Завдання до лабораторної роботи

1. Розробити схему алгоритму

2. Розробити інтерфейс

3. Написати програмний код

4. Отримати результат

Зауваження:

• Завдання вибирається з додатка в таблицях 2, 3 згідно Вашого варіанту в журналі академічної групи.

• Завдання 1 виконується на отримання мінімальної кількості балів, завдання 1 та 2 − максимальної кількості балів, завдання 3 виконується для отримання додаткових двох балів.

Загальні теоретичні відомості

Розгалужені алгоритми використовуються, коли перетворення інформації може виконуватися за різними схемами, залежно від властивостей вхідних даних або проміжних результатів. Тобто в алгоритмі передбачаються всі можливі варіанти обробки інформації, на кожний з яких розробляється окрема гілка алгоритму. А вибір однієї з них для виконання здійснюється за допомогою перевірки деякої умови. Залежно від кількості гілок, алгоритм може бути простим або складним. Для простого розгалуженого процесу перевіряється одна умова, для складного – дві чи більше умов, кожна з яких відокремлює одну гілку.

Алгоритм розгалуженої структури при програмуванні реалізується операторами умовного переходу, оператором вибору та оператором безумовного переходу.

Оператор безумовного переходу GOTO використовується для переходу на вказаний оператор без будь – якого аналізу ситуації. Для цього використовується мітка числова або текстова.

GOTO <мітка>

Наприклад:

GOTO 10 . . 10 <оператори>

GOTO M . . M: <оператори>

Текстова мітка відокремлюється від операторів, що слідують за нею : (двокрапкою).

Оператори умовного переходу бувають:

А) однорядкові

Б) блочні

Однорядковий оператор умовного переходу перевіряє задану умову, якщо вона дійсна, то виконує одну послідовність дій, якщо хибна – іншу послідовність дій.

IF <умова> Then <оператори групи 1> [ELSE < оператори групи 2>]

Рис. 6

Рис. 7

Якщо умова дійсна, то виконуються оператори групи 1, якщо умова хибна - оператори групи 2 (Рис. 6). Якщо параметр ELSE відсутній, а умова, що перевіряється є хибна, то виконується наступний за IF оператор (Рис. 7).

Умова – логічний вираз, який приймає одне з можливих значень: істина (True) або хибно (False). Логічний вираз записується за допомогою операторів відношення >, <,<=, >=, = або за допомогою операторів відношення та логічних операцій AND, OR, NOT. За допомогою логічних операцій можна об’єднувати кілька умов.

Приклад 3 (простий розгалужений процес - перевіряється одна умова):

Обчислити вираз за заданою умовою.

a=2,1; b=3,5

Схема алгоритму наведена на рис. 8

Рис. 8

Програмний код:

Private Sub Command1_Click()

Dim a, b, x, D As Single

x = Val(Text1)

a = 2.1

b = 3.5

If x <= 0.5 Then D = a + b ^ 2 - Exp(x) + 2.5 Else D = (a + b ^ 2) / 2 * Sin(x)

Text2 = D

End Sub

Private Sub Command2_Click()

End

End Sub

Результат виконання програми: