Теоретичний матеріал. Цикли. Теоретичний матеріал. Оператор Select Case

ПРОГРАМУВАННЯ АЛГОРИТМІВ АРИФМЕТИЧНИХ ЦИКЛІЧНИХ ОБЧИСЛЮВАЛЬНИХ ПРОЦЕСІВ

ПРАКТИЧНА РОБОТА 4

Теоретичний матеріал. Оператор Select Case

ПРАКТИЧНА РОБОТА 3

ПРОГРАМУВАННЯ АЛГОРИТМІВ РОЗГАЛУЖЕНИХ ОБЧИСЛЮВАЛЬНИХ ПРОЦЕСІВ З ВИКОРИСТАННЯМ ОПЕРАТОРУ Select Case

1. МЕТА РОБОТИ

Вивчення методики програмування алгоритмів розгалужених обчислювальних процесів з використанням оператору Select Case.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Розробити програму і отримати розв’язок задачі.

Ще одним оператором розгалуження Visual Basic є Select Case, що дозволяє виконати одну з декількох груп операторів у залежності від значення умови. Інструкція Select Case має наступний синтаксис:

Select Case Перевірочний вираз

Case Значення 1

Оператори 1

Case Значення 2

Оператори 2

Case Else

Оператори З

End Select

Для блоку Case можна вказувати не тільки одне значення (1), але і декілька, розділених комами (2, 3). Можна визначити також області порівняння (4 То 6) або скористатися відносним порівнянням (Is >= 9). Замість безпосереднього перевірочного виразу можна використовувати ключове слово (Is=”3”). Блок Case Else виконується, якщо жодна з попередніх умов не є істинною.

Приклад

Private Sub Command1_Click()

n = Int(Rnd * 10) + 1 {генератор випадкових чисел}

Select Case n

Case 1

Print " internet"

Case 2

Print "Україна"

Case 3

Print "basic"

Case Else

Print "Ivanenko"

End Select

End Sub

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

1. Який синтаксис оператора Select Case?

2. Чим відрізняється оператор Select Case від умовного оператора?

Завдання для самостійного розв’язку.

1.Ввести номер студента зі списку, вивести його прізвище.

2.Ввести першу букву назви країни. Вивести назву континенту.

3.Вести номер місяця, вивести номер кварталу.

4.Ввести телефонний код міста, вивести назву міста.

5.Ввести номер автобуса, вивести кінцеву зупинку.

6.Ввести першу букву назви річки, вивести її довжину.

1. МЕТА РОБОТИ

Вивчення методики програмування алгоритмів арифметичних циклічних обчислювальних процесів. Придбання навиків упорядкування програм із використанням операторів циклу різноманітних типів.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Розробити програму, отримати розв’язок задачі.

Для багаторазового виконання одного чи декількох операторів призначені цикли. Visual Basic пропонує двох конструкцій: цикл For... Next, який використовується для виконання визначеної кількості ітерацій, та цикл Do... Loop, що завершується при виконанні заданої умови.

Цикл For...Next є найстарішою і найпростішою конструкцією:

For Лічильник = Початкове значення То Кінцеве значення Крок

Оператори

Next Лічильник

На початку виконання циклу значення Лічильник встановлюється рівним Початковому значенню. При кожній ітерації змінна Лічильник збільшується на 1 чи на величину Крок. Якщо вона досягає або стає більше (менше, при від’ємному кроці) Кінцевого значення, то цикл завершується і виконуються наступні оператори. Різниця між початковим і кінцевим значенням, ділена на величину кроку, складає число ітерацій.

Приклад: Роздрукуємо всі числа від 1 до 10.

Private Sub Command1_Click()

For i = 1 To 10

Print i

Next i

End Sub

Для безумовного виходу з циклу використовується оператор Exit For.

Оператор Do...Loop

Якщо кількість ітерацій повинна залежати від умови, використовують цикл Do... Loop. У залежності від позиції умови розрізняють два варіанти циклу Do...Loop.

Цикл, з умовою на початку

Dо {While | Until} Умова

Оператори

Loop

Цикл, з умовою наприкінці

Do

Оператори

Loop {While | Until} Умова

Якщо умова перевіряється на початку циклу, то він ніколи не виконується у випадку невиконання умови. Якщо ж перевірка відбувається наприкінці, цикл виконується як мінімум один раз, незалежно від того, виконана умова чи ні. Розглянуті варіанти циклів Do... Loop надають програмісту великі можливості організації повторюваних обчислень.

Оператор While...Wend

У циклі While... Wend послідовність команд виконується доти доки залишається істиною назначена умова.

While Умова

Дата добавления: 2014-12-24