Лабораторні / 14 Циклічні програми

5

14 ЛАБОРАТОРНА РОБОТА №14

Тема:	Циклічні програми
Мета:	Придбати навички створення проектів з використанням циклічних конструкцій
Час:	2 год.

1. Виконання роботи

• Надати викладачеві, виконане завдання для самопідготовки в п. 15.2.

• Вивчити теоретичні відомості.

• Виконати самостійну роботу.

2. Завдання для самопідготовки

У процесі підготовки до заняття студент в обов'язковому порядку повинний виконати наступні завдання:

а) За допомогою конспекту лекцій і літератури, що рекомендується, розглянути такі питання:

1. циклічні конструкції Visual Basic;

2. параметри циклу For…Next.

б) Занести в звіт такі дані:

1. номер лабораторної роботи;

2. тему і ціль роботи;

3. короткий конспект основних теоретичних відомостей.

3. Теоретичні відомості

Конструкція For...Next

Конструкція For...Next виконує послідовність команд певну кількість разів. Таку конструкцію циклом, а програмні коди, що виконує цикл — тілом циклу.

Синтаксис конструкції For.. .Next:

For лічильник = Початкове_Значення То Кінцеве_Значення [Step Крок]

конструкції

Next[лічильник]

Перший аргумент конструкції — Лічильник — визначає ім’я змінної, що служить для підрахування кількості виконань циклу. Параметр Початкове_Значення вказує числове значення, що присвоюється змінній-Лічильнику перед першим проходом циклу. Цикл виконується до тих пір, поки значення лічильника не перевищить кінцевого значення, що вказане після ключового слова To. Після кожного проходу циклу значення лічильника змінюється на величину Крок, що вказаний за ключовим словом Step. Ключове слово Next позначає кінець тіла циклу і є обов'язковим.

Перед кожним проходом циклу Visual Basic порівнює значення Лічильника і аргументу Кінцеве_Значення. Якщо кінцеве значення лічильника не перевищує встановленого значення Кінцеве_Значення, виконуються конструкції тіла циклу. В іншому випадку керування переходить до наступної за Next конструкції.

Наприклад:

For nCountVar = 1 То 10 Step 2

nNextWeek(nCountVar) = nCountVar * 2

Next nCountVar

Пояснення. В даному випадку цикл виконується п’ять разів при значеннях лічильника nCountVar 1, 3, 5, 7 та 9.

Наприклад (негативний крок зміни лічильника):

For nCounter = 100 То 1 Step -10

nDecades(nCounter) = nCounter *2

Next nCounter

Пояснення. В даному випадку цикл виконується до тих пір, поки nCountVar більше 1. Якщо значення кроку циклу негативне, то початкове значення лічильника повинно бути більше кінцевого.

Ключове слово step не використовується якщо значення кроку циклу дорівнює 1.

Алгоритм обчислення суми ряду:

Private Sub Command1_Click()

Dim s, n As Long

s = 0

For n = 1 To 10

s = s + (Sqr(n) / (n ^ 3 + 0.8))

Next n

Print "сума ряду=", s

End Sub

Пояснення. При натисненні на кнопку Command1 виконується обчислення суми математичного виразу (Sqr(n) / (n ^ 3 + 0.8)) при значеннях n від 1 до 10.

Алгоритм обчислення добутку ряду:

Private Sub Command1_Click()

Dim p, n As Long

p = 1

For n = 1 To 10

p = p *n

Next n

Print "добуток ряду =", p

End Sub

Пояснення. При натисненні на кнопку Command1 виконується обчислення добутку ряду чисел від 1 до 10.

Приклад. Скласти програму табулювання функції y(x)=x² якщо x змінюється від x_н=-4 до x_к=8 із кроком dx=2 (див. рисунок 5.1).

Private Sub Command1_Click()

Dim x, y As Variant

Print "x", "y"

For x = -4 To 8 Step 2

y = x ^ 2

Print x, y

Next x

End Sub

Рисунок 5.1 – Приклад форми завдання

1. Практична частина

1. Створити програму, що підраховує середнє арифметичне 10 елементів (5, 2, 5, 4, 8, 9, 3, -9, -8, -4). Введення елементів передбачити через InputBox. Вивести на форму значення елементів і значення середнього арифметичного.

2. Створити новий проект Visual Basic.

3. Додати на форму елемент CommandButton.

4. Написати програмний код кнопки (див. рисунок 5.2).

Рисунок 5.2 – Програмний код підрахування середнього арифметичного

5. Результат виконання програми показати викладачу (див. рисунок 5.3).

Рисунок 5.3 – Результат виконання завдання 1

1. Самостійна робота

1. Скласти програму табулювання функції y(x), якщо x змінюється від x_п до x_к із кроком dx. Варіанти до завдання приведені в таблиці 1.

Таблиця 1 - Варіанти до завдання 1

Варіант	Функція	Вхідні дані	Варіант	Функція	Вхідні дані
1		xп=5.8 xк=17 dx=1.2 a=1.7 b=0.36	2		xп=5 xк=16 dx=1.2 a=1.5 b=14.8

2. Скласти програму табулювання функції y(x) для заданих умов, якщо x змінюється від x_п до x_к із кроком dx. Варіанти до завдання приведені в таблиці 2.

Таблиця 2 - Варіанти до завдання 2

Варіант	Функція	Вхідні дані
		xп	xк	dx	a	b
1		1.63	8.26	0.8	4.8	0.18
2		0.12	4.35	0.4	0.48	2.63

3. Дано десять чисел: 26, -8, 62, -9. 87, 22, -43. 8, 96, -200, 6, 11. Обчислити середнє арифметичне та середнє геометричне позитивних чисел.

4. Знайти суму квадратів семи чисел: 23, 8, 4.6, 2, 1.2, 6, 24, а також кубічний корінь із їхнього добутку.

5. Вимоги до оформлення звіту

Звіт повинний містити:

• Короткий конспект теоретичних відомостей;

• Результати виконаних дій.

1. Контрольні питання

1. Який процес називається циклічним?

2. Які значення може приймати крок циклу в циклі з лічильником? Чи завжди вказується крок циклу

3. Описати алгоритм підрахування суми ряду?

4. Описати алгоритм підрахування добутку ряду?

5. Привести приклад табулювання?