Algoritmo - Método da Secante

ENTRADA: aproximações iniciais p0, p1; tolerância TOL; número máximo de iterações N0,
SAIDA: solução aproximada p ou mensagem de erro.
Passo 1  Faça i = 2;
                       q0 = f(p0);
                       q1 = f(p1).
Passo 2 Enquanto i menor ou igual a N0 execute os passos 3 a 6.
             Passo 3 Faça p = p1 - q1(p1-p0)/(q1-q0). (calcula pi)
             Passo 4 Se |p-p1| menor que TOL, então
                               SAIDA(p);(procedimento concluido com sucesso)
                               PARE.
             Passo 5 Faça i = i + 1.
            Passo 6 Faça p0 = p1; (Atualiza p0, q0, p1, q1.)
                                  q0 = q1;
                                  p1 = p;
                                  q1 = f(p).
Passo 7 SAIDA ('O método falhou após N0 iterações, N0 = ' N0 );
              (o procedimento não foi bem sucedido)
             PARE.