VB_NET

У прикладі 3.12 перевіряється можливість виникнення винятку OverfiowException, який генерирується при переповненні. Цей виняток згенерується VB, якщо значення змінної b дорівнює 0 (тобто при діленні на нуль), або коли початкове значення змінної b занадто велике, що і відбулося. Щоб розмежувати ці два випадки, в оператор Catch у першому випадку додають умову When, що ідентифікує ситуацію ділення на нуль. Крім того, передбачене опрацювання інших винятків оператором Catch без специфікації винятку.

Приклад 3.12. Опрацювання винятків

Dim x As Integer = 5

Dim i As Integer = 1000000 Dim b As Integer = 1000000000

Try

x = i * b x /= b

Catch ex As System.OverflowException When b = 0 MsgBox("Ділення на нуль")

Catch ex As System.OverflowException MsgBox("Занадто велике число")

Catch

MsgBox("Невідомий виняток")

Finally

Beep() ' Найпростіший звуковий сигнал

End Try

…

У прикладі 3.13 перевіряється можливість виникнення винятків:

•OverflowException, якщо значення х дорівнюватиме 0;

•IndexOutOfRangeException, якщо індекс масиву а виходить за припустимий діапазон (це й відбулося);

•виняток Exception, якщо в програмі відбувся якийсь непередбачений збій.

Приклад 3.13. Опрацювання трьох типів винятків

Dim x As Integer = 2

Dim y As Integer

Dim a() = {1, 3}

Try

y = 100 / x : a(43) = 4 Catch ex As OverflowException

MsgBox("Помилка переповнення")

Catch ex As IndexOutOfRangeException MsgBox("Неприпустимий індекс")

Catch ex As Exception MsgBox(ex.Message)

End Try

Клас Exception простору назв System є базовим класом винятків . Головними похідними класами від нього є класи ApplicationException й SystemException. Похідні від першого класу описують винятки, що виникають у процесі виконання коду; а від другого – згенеровані середовищем виконання.

Наприклад, похідним від класу SystemException є клас ArgumentException, у якому описують винятки, що виникають у процесі передачі значень параметрів. У цього класу, у свою чергу, є три дочірні підкласи:

•ArgumentNullException – виникає, коли значенням параметра є порожнє посилання (Nothing), у той час як синтаксис таке забороняє;

•ArgumentOutofRangeException – виникає, коли значення параметра є поза допустимим діапазоном;

•InvalidEnumArgumentException – виникає, коли викорис-

товується неприпустиме значення змінної типу Enum.

Хоча вбудовані винятки охоплюють помилки, які трапляються найчастіше, іноді виникає необхідність у створенні своїх власних класів винятків, що обробляють помилки, специфічні для конкретного застосування. У таких випадках змінюють тип винятку або повідомлення, що ним передається. Для примусового виклику (закидання) власного винятку використовують оператор

Throw Expression

де Expression –об’єкт, що є екземпляром класу власного винятку.

У прикладі 3.14 змінюється повідомлення, що передається під час виникнення винятку ArgumentException. При виконанні заданої умови (n > 5) цей винятоку спеціально активізують (закидають).

Приклад 3.14. Опрацювання власного винятку

Dim n As Integer

Dim ae As New ArgumentException("Неприпустиме значення")

Try

n = 10

If n > 5 Then Throw ae

Else

MsgBox("OK")

End If

Catch e As Exception MsgBox(e.ToString)

End Try

3.6. Програми з простим повторенням

У цьому параграфі розглянемо задачі, для розв’язання яких необхідно виконати перегляд певної послідовності значень, причому кожне значення використано тільки один раз.

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

Приклад 3.15. Ввести 10 цілих чисел і перелічити серед них кількість додатних. Оформити головну підпрограму

Sub main()

Dim i, k As Byte, n As Integer k = 0

For i = 1 To 10

n = InputBox("Введіть число", "Введення")

If n > 0 Then k += 1

Next i

MsgBox("Додатних:" & k, vbOKOnly, "Результат")

End Sub

Приклад 3.16. Вивести підряд усі літери від “Z” до “A”. Оформити головну підпрограму

Sub main()

Dim i As Integer, s As String s = ""

For i = Asc("Z") To Asc("A") Step -1 s &= Chr(i)

Next i

MsgBox(s, vbOKOnly, "Результат")

End Sub

Приклад 3.17. Пари додатних раціональних чисел вводять з клавіатури. У головній підпрограмі обчислити добуток кожної пари і суму всіх чисел

Sub main()

Dim x, y, sum, dob As Double Dim s As String

sum = 0

Do

x= InputBox("Введіть число", "Введення")

y= InputBox("Введіть число", "Введення")

If x > 0 And y > 0 Then

dob = x * y MsgBox("dob =" & dob) sum = sum + x + y

End If

s=MsgBox("Продовжувати?", vbYesNo, "Продовження")

Loop While s = vbYes MsgBox("sum =" & sum)

End Sub

Приклад 3.18. Скласти програму табулювання значень функції y = x2 +1 cos x на проміжку [a; b] з кроком h.

Imports System.Math

Module Module2

Sub main()

Dim a, b, h, x, y As Double

3.7. Програмування задач цілочислової арифметики

Приклад 3.19. У головній підпрограмі обчислити N-е число Фіббоначчі. Числа Фіббоначчі визначають за рекурентною формулою:

F(0)=F(1)=1; F(i)=F(i-1)+F(i-2), якщо i≥2.

Sub main()

Dim a, b, z, i, n As Integer

Do

n = InputBox("Введіть номер числа>=0","Введення")

Loop Until n >= 0

a = 1 ' а=F(0), а відповідає за F(i-2) b = 1 ' b=F(1), b відповідає за F(i-1)

For i = 2 To n

z = a + b ' z відповідає за F(i) a = b: b = z ' наступна пара чисел

Next i

Console.WriteLine(n & "-e числo Фіббоначчі=" & b) Console.ReadLine()

End Sub

Приклад 3.20. Дано натуральне число. У головній підпрограмі знайти кількість і суму десяткових цифр у записі цього числа.

Sub main()

Dim a As Long, s As Byte, k As Byte

Do

a=InputBox("Введіть натуральне число", "Введення")

Loop Until a >= 1 k = 0

While a > 0

s += a Mod 10 k += 1

a \= 10

End While

MsgBox("Кількість цифр= " & k) MsgBox("Сума цифр= " & s)

End Sub

Для отримання цифр числа використовуємо операцію отримання залишку (Mod) від цілочисельного ділення числа на 10. За першого ділення отримаємо цифру з розряду одиниць (наприклад, 167 Mod 10=7). Операція цілочисельного ділення вилучає цю цифру з розряду одиниць (167\10=16), а наступна операція отримання залишку поверне число десятків (16 Mod 10=6) і т.д. Зауважимо, що при цьому отримуємо цифри числа у зворотному порядку. Цей факт можна використати при розв’язанні відомої задачі про визначення паліндрома – числа, величина якого не змінюється, якщо порядок цифр у його записі змінити на протилежний.

Приклад 3.21. Дано натуральне число. У головній підпрограмі перевірити, чи воно є паліндромом.

Sub main()

Dim a, b, s As Long

Do

a = InputBox("Введіть натуральне число", "Введення")

Loop Until a >= 1 b = a ' копія числа

While a > 0

s = s * 10 + a Mod 10 : a \= 10

End While

If b = s Then

MsgBox("Паліндром ")

Else

MsgBox("Не паліндром ")

End If

End Sub

Подібний алгоритм використовують і за представлення цілого десяткового числа в іншій системі числення (пригадайте правило передення чисел з однієї основи в іншу: обчислюємо остачу від ділення наявного числа на нову основу, отриману частку ділимо знову на нову основу – отримуємо наступну остачу і так далі, доки чергова частка дорівнюватиме нулю. Отримані остачі у зворотному порядку формують число за новою основою).

Приклад 3.22. Дано десяткове натуральне число. Отримати його запис у вісімковій системі числення.

Public Sub main() Dim a, b, s As Long

Do

a = InputBox("Введіть натуральне число", "Введення")

Loop Until a >= 1

b = 1 ' b - cтепінь 10; спочатку 10^0=1 s = 0 ' s - результат; 8-кове число

While a > 0

s = s + (a Mod 8) * b a \= 8 : b *= 10

End While

MsgBox("8-кове число: " & s)

End Sub

Приклад 3.23. Дано натуральне число, більше відодиниці. Розкласти його на прості множники.

Public Sub main()

Dim a As Long, k As Integer Dim s As String

Do

a = InputBox("Введіть натуральне число", "Введення")

но задавати величину максимальної кількості ітерації, яка слугуватиме приводом аварійного виходу з циклу.

Imports System.Math Module Module1

Public Sub main()

Dim x, у, u As Single Dim n As Integer

Const MaxITER As Integer = 500 ' Максимум ітерацій Const eps As Single = 0.000001 ' точність обчислень x = InputBox("Введіть аргумент", "Введення")

u = 1: y = u ' Перший член ряду і поч. знач. суми n = 0

While Abs(u) > eps And n < MaxITER

u = u * x * x / ((2 * n + 1) * (2 * n + 2)) y = y + u: n = n + 1

End While

If n < MaxITER Then MsgBox("y= " & y)

Else

MsgBox("Не збігається ")

End If

End Sub

End Module

Запитання для самоперевірки

1.Перерахуйте оператори керування.

2.Що таке оператор визначення?

3.Які форми має умовний оператор?

4.Для розв’язання яких задач зручно використовувати оператор вибору?

5.Запишіть і охарактеризуйте оператор циклу For - Next.

6.Запишіть і охарактеризуйте оператор циклу Do – Loop.

7.Запишіть і охарактеризуйте оператор циклу While - Wend.

8.У яких випадках застосовують оператор Exit Do?

9.Запишіть і охарактеризуйте оператор Goto.

Завдання для програмування

Завдання 3.1. Скласти програми розв’язання таких задач:

1.Прочитати з клавіатури групу з 12-ти чисел. Знайти серед них найменше та номер його першого вхоження у групу.

2.Прочитати з клавіатури групу з 10-ти чисел. Знайти серед них найбільше та номер його останнього вхоження у групу.

3.Прочитати з клавіатури 14 чисел і обчислити суму всіх невід'ємних значень.

4.Серед 15-ти заданих чисел визначити кількість додатних, від'ємних і нульових.

5.Ввести з клавіатури групу чисел. Перше число N>0 означає розмір наступної за ним групи чисел. Обчислити суму чисел, що належать про-

міжку [-3; 5].

6.Ввести з клавіатури групу чисел. Перше число N>0 означає розмір наступної за ним групи чисел. Визначити відсоток додатних чисел.

7.Прочитати з клавіатури групу з 15-ти чисел. Знайти середнє арифметичне чисел, розташованих за порядком за першим ненульовим. Вважати, що обов’язково є хоча б одне ненульове значення, причому не на останньому місці.

8.Прочитати з клавіатури групу з 15-ти чисел. Знайти середнє арифметичне чисел, розташованих за порядком за першим ненульовим. Вважати, вважати, що ненульових значень може не бути взагалі.

9.Прочитати з клавіатури групу з 12-ти чисел. Знайти різницю між найбільшим і найменшим числом.

10.Обчислити суму добутків таких пар чисел: 4 5, 5 6, ..., 21 22.

11.Прочитати з клавіатури групу з 15-ти чисел. Знайти перше за порядком число, що дорівнює нулю, визначивши його позицію.

12.Прочитати з клавіатури групу з 15-ти чисел. Знайти порядковий номер першого ненульового числа.

13.Прочитати з клавіатури групу з 15-ти чисел. Знайти порядковий номер останнього ненульового числа.

14.Прочитати з клавіатури групу, яка складається з не менше трьох чисел. Третє за порядком число означає кількість чисел у групі, у тім числі дане. Обчисли ти суму всіх чисел.

15.Прочитати з клавіатури групу з 10-ти чисел. Знайти суму модулів тих чисел, які передують першому нульовому, або усіх чисел групи, якщо нульових немає.

Завдання 3.2. Протабулювати значення функції y = f(x) на проміжку [a; b] у n точках. Функція вибирається з переліку функцій завдання 2.1 (див. стор. 40) за номером студента у списку студентів підгрупи.

Завдання 3.3. Скласти програми розв’язання такиих задач:

1.Дано натуральне число. Знайти кількість і добуток десяткових цифр у записі цього числа.