a=0.1 b=1.1 For i= 1 To 5 p=(a+b)/2 If _myFunc(b)*_myFunc(a) < 0 b=p Else a=p Endif ? p If Abs(b-a) <= 0 ? p Exit Endif Endfor ? 'outmessage' Function _myFunc Lparameters tnValue * F(x)=(cos x -2x -0.5) in [0.1,1.1] Return ( Cos(m.tnValue) - 2*m.tnValue - 0.5 )Cetin