- •Лекція №11. Цикли та підпрограми
- •Зміст лекції
- •1. Алгоритмічна конструкція повторення та її різновиди: безумовні цикли, цикли з після умовою та з передумовою.
- •Цикл за лічильником
- •Цикл за вхідним значенням
- •Цикл за вихідним значенням
- •2. Розв’язування задач на використання різних типів циклів (обчислення сум, добутків, середніх значень наборів чисел, найбільшого та найменшого значення функції).
- •3. Оператори циклів Арифметичний цикл для
- •Ітераційний цикл поки
- •Ітераційний цикл до
- •Процедура типу Function і процедура типу Sub
3. Оператори циклів Арифметичний цикл для
For <змінна циклу = початкове значення> То <кінцеве значення> [Step<крок циклу>]
Тіло циклу
Next [змінна циклу]
Приклад
Private Sub Prog4 ‘ Арифметичний цикл
Dim i As Integer
For і = 1 To 15 Step 3
Print i
Next
End Sub
Ітераційний цикл поки
1) Оператор циклу Do While ... Loop
Цикл, що задається цією конструкцією, виконується доти, поки умова, що задається в циклі істина (дотримується).
Формат вказівки:
Do While умова
конструкції
Loop
2) Оператор циклу Do ... Loop While
Цей варіант відрізняється від розглянутого вище розташуванням умови. У другому варіанті конструкції умова розташовується наприкінці циклу:
Do
конструкції
Loop While умова
За такого варіанту конструкції оператора циклу тіло циклу виконається принаймні один раз, після чого здійсниться перевірка умови виконання циклу.
Ітераційний цикл до
3) Оператор циклу Do Until ... Loop
Тут цикл виконується доти, поки умова хибна (не дотримується), а не істинна. У такій конструкції можлива ситуація, за якої тіло циклу не виконається жодного разу, якщо при першій перевірці умова не дотримується.
Формат вказівки:
Do Until умова
конструкції
Loop
4) Оператор циклу Do... Loop Until
У даному операторі циклу, як і у попередньому, цикл виконується доти, поки умова хибна (не дотримується). За такого варіанту конструкції оператора циклу тіло циклу виконається принаймні один раз, після чого здійсниться перевірка умови виконання циклу, навіть якщо умова дотримувалася.
Формат вказівки:
Do
конструкції
Loop Until умова
У кожному новому проходженні циклу перевіряється умова; тому важливо при створенні програми стежити за тим, щоб у тілі циклу значення змінної в умові циклу могло бути змінено так, аби умова стала хибною, тобто цикл закінчився.
Нехай, наприклад, треба розрахувати значення Y залежно від введеного значення X. Тоді фрагмент програми матиме такий вигляд:
А) У даному прикладі цикл виконується тоді, коли введені значення Х задовольняють умову Х>0: X = Input ("Значення X", Х) Do While Х> 0 Y=sqr(3*Х+7) Print X;Y Loop
Б) У наведеному нижче прикладі цикл виконується тоді, коли X <5: X = InputBox ("Значення X") Do Until X>5 Y=sqr(15-3*Х) Print X;Y Loop
Процедура типу Function і процедура типу Sub
Процедури обробки подій є локальними процедурами, пов’язаними з певною формою. Для того, щоб зробити певні процедури загальнодоступними, їх потрібно оголосити в одному чи декількох стандартних модулях. Стандартний модуль, або модуль програми, являє собою особливий файл з розширенням bas, який зберігає змінні і процедури, які можуть бути використані у будь-якому місці програми. Стандартний модуль входить до складу проекту, він, як і форми, може бути збережений у зовнішній пам’яті: меню File, команда Save Module1 , вказати місце збереження і ім’я модуля. Стандартних модулів, як і форм, у проекті може бути декілька. На відміну від форм, стандартний модуль не містить об’єктів і встановлюваних властивостей об’єктів, а тільки текст програми, який може бути відображеним і відредагованим у вікні редактору коду. В процедурах обробки подій користувач може використовувати власноруч розроблені процедури, оголошені у стандартному модулі даного проекту. Існують такі різновиди процедур стандартного модуля: процедура типу Function (функції) і процедура типу Sub (підпрограми).
Функції створюються тоді, коли деякі обчислення потрібно виконувати кілька разів у програмі з різними значеннями параметрів. Для створення власної процедури типу Function необхідно використати такі оператори:
Function <ім'я функції> ([аргументи функції]) [As <тип>]
Конструкції тіла функції
End Function
де:
ім'я функції — значення, яке повертається у процедуру виклику після виконання процедури;
аргументи функції —імена змінних, значення яких використовуються функцією (якщо аргументи потрібні);
тип — це тип значень, які повертає функція, якщо цей опис відсутній, то за замовчуванням тип Variant.
Зауваження. Квадратні дужки у синтаксичній формулі вказують на необов’язковість наявності параметра.
Останній оператор у тілі функції зазвичай - оператор присвоєння імені функції обчисленого значення.
Приклад Function TotalTax(Cost)
StateTax=Cost*0.05 ‘Податки штату 5%
CityTax= Cost*0.015 ‘Міські податки 1,5 %
TotalTax= StateTax + CityTax
End Function
Для активізації процедури типу Function треба ввести в програму ім'я процедури з тією кількістю аргументів, які використовувалися при її оголошенні. Зазвичай процедури типу Function (функція) розробляють з метою виконання певних обчислень. Використовуються за тими ж правилами як і стандартні функції: значення функції зазвичай присвоюється змінній чи властивості об’єкта.Функції, оголошені у стандартних модулях, за замовчуванням є загальнодоступними.
Процедура типу Sub, на відміну від процедури типу Function, після її виконання повертає значення в аргументах процедури або виконує певні дії (наприклад, друкування даних). Для створення такої процедури використовують оператори:
Sub <ім'я > ([аргументи]) [As <тип>]
Конструкції тіла процедури
End Sub
де:
• ім'я — це ім'я процедури, що створюється;
• аргументи — імена змінних, значення яких використовуються функцією і повертаються у процедуру виклику;
• тип — це тип значень, які повертає функція. Зауваження. Квадратні дужки у синтаксичній формулі вказують на необов’язковість наявності параметра.
Приклад .
Процедура, що виконує друкування значень, має вигляд
Sub PR (X,Y)
Printer.FontName = "Arial" ' установлення шрифту
Printer.FontSize = 16 ' установлення розміру шрифту
Print X; Y
End Sub