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

На тему: «Програмування у VB лінійних процесів обробки інформації».

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

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

(див. додаток)

Приклад виконання лабораторної роботи:

Обчислити

Програмний код: Private Sub Command1_Click() Dim a, z, x, y As Single a = Val(Text1) z = Sqr(2.7) y = 1.2 - Exp(z) x = Sin(y) - a * Log(Abs(z)) Text2 = z Text3 = y Text4 = x End Sub Private Sub Command2_Click() End End Sub Розроблений інтерфейс та результат виконання програми:

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

На тему: «Програмування у VB розгалужених процесів обробки інформації».

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

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

(див. додаток)

Приклад виконання лабораторної роботи:

Обчислити вираз за заданою умовою. Змінні x,y,z ввести самостійно.

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

Private Sub Command1_Click()

Dim x, y, z, A As Single

x = Val(Text1)

y = Val(Text2)

z = Val(Text3)

If x <= y Then A = x * (x + 1) ^ (1 / 4) Else A = 3 * y / (Sqr(x) + Log(Abs(z)))

Text4 = A

End Sub

Private Sub Command2_Click()

End

End Sub

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

Обчислити:

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

Private Sub Command1_Click()

Dim x, y As Single

x= Val(Text1)

If x < -1 Then

y = 1 / x

ElseIf x >= -1 And x < 2 Then

y = 1 / x ^ 2

Else

y = 4

End If

Text2 = y

End Sub

Private Sub Command2_Click()

End

End Sub

Розроблений інтерфейс та результат виконання програми:

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

На тему: «Програмування циклічних процесів обробки інформації (табулювання функції, обчислення сум та добутків, ітераційні цикли)».

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

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

(див. додаток)

Приклад виконання лабораторної роботи:

Обчислити значення функції

Результати вивести у вигляді таблиці, у першому стовпчику якої розміщується значення аргументу x, у другому – значення функції y.

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

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

Private Sub Command1_Click()

Dim x, y As Single

For x = -3.5 To 2.3 Step 0.6

If x < 0 Then

y = x ^ 2

ElseIf x >= 0 And x <= 1 Then

y = Sin(x) Результат виконання програми:

Else

y = Sqr(Abs(x ^ 2 - 4.9))

End If

Print x, y

Next x

End Sub

Private Sub Command2_Click()

End

End Sub

Обчислити значення факторіала n!, де n=9.

Програмний код: Private Sub Command1_Click() Dim F, n As Integer n = Val(InputBox("Введіть n")) F = 1 For i = 1 To n F = F * i Next i Text1 = F Text2 = n End Sub Private Sub Command2_Click() End End Sub Результат виконання програми:

Обчислити суму доданків

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

Private Sub Command1_Click()

Dim s, i As Integer

s = 0

For i = 1 To 8

s = s + 1 / (i + 1)

Next i

Text1 = Format(s, "0.000")

End Sub

Private Sub Command2_Click()

End

End Sub

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

Обчислити добуток множників

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

Private Sub Command1_Click()

Dim k As Integer

Dim p As Single

p = 1

For k = 1 To 7

p = p * 1 / k

Next k

Text1 = p

End Sub

Private Sub Command2_Click()

End

End Sub

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

Обчислити суму

Обчислення припинити, коли . Вивести обчислену суму та кількість доданків.

Програмний код з використанням While:

Private Sub Command1_Click()

Dim k, n As Integer

Dim s As Single

eps = Val(Text1)

k = 1

s = 0

Do While 1 / k > eps

s = s + 1 / k

k = k + 1

Loop

n = k - 1

Text2 = s

Text3 = n

End Sub

Private Sub Command2_Click()

End

End Sub