Методом итерации - VB

Function Fi1(X#) As Double
         Fi1 = Exp(X ^ 2 - 3) - 1
End Function
Function Fi2(X#) As Double
         Fi2 = Sqr((Log(1 + X) + 3))
End Function
 
Function Iter(x0#, eps#, kr%)
Dim x1#, k%, Y#
k = 0
    Do
        x1 = x0
        x0 = IIf(kr = 1, Fi1(x1), Fi2(x1))
        k = k + 1
    Loop While Abs(x1 - x0) > eps
Iter = x0 & vbTab & "k=" & k + 1
End Function
 
Private Sub Command1_Click()
Dim x0#, e#
x0 = 0: e = 10 ^ (-15)
Cls
Print "x1 = "; vbTab; Iter(x0, e, 1)
Print "x2 = "; vbTab; Iter(x0, e, 2)
End Sub