Este algoritmo se es para hallar la raiz de un polinomio de grado n.

 

Algoritmo del Método de Bisección

Inicio

     Escriba “digite cantidad de términos del polinomio:”

     Lea n

     Para i=1,n haga

            Escriba “digite el coeficiente del término ”, i

            Lea coef(i)

            Escriba “digite el exponente del término ”, i

            Lea exp(i)

     F_para

     Haga

            Escriba “digite el valor de a:”

            Lea a

            Escriba “digite el valor de b:”

            Lea b

            fa←0

            fb←0

            Para i=1,n haga

                 fa←fa+coef(i)*a^exp(i)

                 fb←fb+coef(i)*b^exp(i)

            F_para

     MQ (fa*fb>0)

     Escriba “digite numero máximo de iteraciones:”

     Lea it

     Escriba “digite tolerancia:”

     Lea tol

     sw←0

     i←1

     xa←a

     MQ (sw=0 ^ i≤it) haga

            x←(a+b)/2

            fx←0

            Para i=1,n haga

                 fx←fx+coef(i)*x^exp(i)

            F_para

            error←│xa-x│

            si (│fx│≤tol v error≤tol) entonces

                 sw←1

            else

                 i←i+1

                 xa←x

                 si (fa*fx>0) entonces

                        a←x

                        fa←fx

                 else

                        b←x

                        fb←fx

                 F_si

            F_si

     F_MQ

     Si (sw=1) entonces

            Escriba “la raiz es: ”,x

     sino

            Escriba “para ”, i, “ iteraciones no se hallo raiz”

    F_si

Fin