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

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

 

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

Обчислити вираз за заданою умовою. Змінні 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

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

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