Паскаль
Program pr1;
var x0,x1,a,b,e:real; 
 iteraz:integer; 
function fun(x:real):real; 
 begin 
 fun:=ln(x)+1.8; 
 end; 
begin 
 write('Введите приближённое(1) значение X='); 
 readln(x1); 
 write('Введите точность(0.0001) e='); 
 readln(e); 
 iteraz:=0; 
 repeat 
 iteraz:=iteraz+1; 
 x0:=x1; 
write(x1:7:4); 
 x1:=fun(x0); 
write(x1:7:4); 
writeln; 
 until (abs(x1-x0)<=e); 
 writeln('Решение уравнения ln(x)+1.8=0:'); 
 writeln('Вычисленное значение корня…',x1:6:5); 
 writeln('Число итераций..…………....',iteraz); 
 readln; 
 end.

Private Sub Command1_Click()
Dim x0 As Double, x1 As Double, a As Double, b As Double, e As Double
Dim iteraz As Integer, s As String
x1 = Text3
e = Text4
iteraz = 0
Do
iteraz = iteraz + 1
x0 = x1
x1 = fun(x0)
s = s & "x(k) = " & x0 & vbTab & "F(x(k+1)) = " & x1 & vbCrLf
Loop Until (Abs(x1 - x0) <= e)
s = s & "&#208;&#229;&#248;&#229;&#237;&#232;&#229; &#243;&#240;&#224;&#226;&#237;&#229;&#237;&#232;&#255; ln(x)+1.8=0:" & vbCrLf
s = s & "&#194;&#251;&#247;&#232;&#241;&#235;&#229;&#237;&#237;&#238;&#229; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#229; &#234;&#238;&#240;&#237;&#255;…" & x1 & vbCrLf
s = s & "&#215;&#232;&#241;&#235;&#238; &#232;&#242;&#229;&#240;&#224;&#246;&#232;&#233;..…………...." & iteraz
Picture2.Print s
End Sub

Private Function fun(x As Double) As Double
fun = Log(x) + 1.8
End Function

Private Sub mnuFileSave_Click()
 Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Set oBook = WorkBooks.Open("C:\Book1.xls")
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:B1").Value = Array("x(k)", "F(x(k+1))")
   oSheet.Range("A2").Resize(100, 3).Value = x1
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
End Sub