Eliminar_el_ultimo

void CLista_doble::Eliminar_el_ultimo()
{
    if(inicio!=NULL)
    {
        CNodo *p;
        p=final;
        if(final==inicio)
            final=NULL;
        else
            final->Get_prev()->Set_next(NULL);

        final = final->Get_prev();
        n--;
        delete p;
    }
}