Page 70 - 4788

Код програми:

Private Sub Command1_Click()
e = 0.0001
x = 0.25
n = 0
Do
Y = 0.5 - x * Log(x)
t = Abs(x - Y)
x = Y0000000000000000
n = n + 1
Loop Until t < e
Print "КОРІНЬ="; Format(Y,
"###.####")
Print "КІЛЬКІСТЬ ітерацій = ";
n
End Sub
Private Sub Command2_Click()
End
End Sub

Рисунок 7.1 – Графічний
алгоритм

68