- •Обчислювальна техніка методичні вказівки до виконання лабораторних робіт
- •Лабораторна робота № 1
- •Завдання до лабораторної роботи
- •Загальні теоретичні відомості
- •Порядок виконання роботи
- •Лабораторна робота № 2
- •Лабораторна робота № 4
- •Завдання до лабораторної роботи
- •Приклад виконання лабораторної роботи:
- •Лабораторна робота № 5
- •Завдання до лабораторної роботи
- •Приклад виконання лабораторної роботи:
- •Лабораторна робота № 6
- •Завдання до лабораторної роботи
- •Приклад виконання лабораторної роботи:
- •Література
- •Додаток Завдання до лабораторної роботи № 1
- •Завдання до лабораторної роботи № 2
- •Завдання до лабораторної роботи № 3
- •Завдання до лабораторної роботи № 4
- •Завдання до лабораторної роботи № 5
- •Завдання до лабораторної роботи № 6
Лабораторна робота № 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