\(\(\( (*\ 
      Aproximação\ de\ raizes\ pelo\ método\ da\ bissecção\ *) \)\(
\)\)\)

\(\(\(Bissec[f_, a_, b_, eps_]\)\(:=\)\((
a0 = a; 
        b0 = b; nmax = 30; \ npassos = 0; 

        While[Abs[b0 - a0] > eps\  && \ npassos < nmax, 
	
          x = \((a0 + b0)\)/2; 
	
          If[f[x] == 0, \ Print[" A raiz é ", x]; 
            npassos = nmax]; 
	If[f[x] f[a0] < 0, \ b0 = x]; 
	
          If[f[x] f[a0] > 0, a0 = x]; 
	npassos = npassos + 1]; 

        Print["Aproximação da Raiz ", \ 
          x, \ "  n. de passos", npassos]; x)\)\(
\)\)\)

a = 1.3; b = 2.3; eps = 10. ^-6

Bissec[Cos, a, b, eps]

FindRoot[Cos[y] == 0, {y, 1.5}]