Page 84 - 4192

ВИКОНАННЯ

Зображення графічного алгоритму вирішення завдання
зображено на рис.3.4, а результат виконання програми – на
ирс.3.5.

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

Private Sub Command1_Click()
Dim a, z, x, y As Single
a = Val(Text1)
z = Sqr(2.7)
y = 1.2 - Exp(x)
x = Sin(y) - a * Log(Abs(z))
Text2 = z
Text3 = y
Text4 = x
End Sub

Private Sub Command2_Click()
End
End Sub

Рисунок 3.4 –
Схема алгоритму

83