Page 118 - 4192

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

Private Sub Command1_Click()
Dim x, y, z, a As Single
a = Val(Text1)
For x = 1 To 2 Step 0.2
For y = 2 To 4
z = a * Exp(-Sqr(x * y)) * (x + y)
Picture1.Print x, y, Format(z, "0.000")
Next y
Next x
End Sub

Private Sub Command2_Click()
End
End Sub

Приклад: Обчислити суму членів ряду

Обчислення припинити, коли

-5
ε=10 , x=0,65.

Блок-схема розв’язку даної задачі представлена на рис.
6.3, а результат виконання – на рис. 6.4.

117