Page 56 - 4450
P. 56
Код програми:
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 – Графічний
алгоритм
54
