CREATE OR REPLACE PROCEDURE FIBONACCI(P_N IN INT, P_FB OUT INT)
IS
V_N2 INT:=0;
V_N1 INT:=1;
V_N INT;
i INT:=1;
BEGIN
LOOP
P_FB:= V_N1+V_N2;
V_N2:=V_N1;
V_N1:=P_FB;
i:=i+1;
EXIT WHEN i>=P_N;
END LOOP;
IF P_N=0 THEN P_FB :=0;
END IF;
END;
Teste da procedure com o número 45.
SET SERVEROUTPUT ON;
DECLARE
v_FIBO INTEGER;
BEGIN
FIBONACCI(45,v_FIBO);
dbms_output.put_line(v_FIBO);
END;
Oi, Gabriel!! Tudo bem?
Peço desculpas pela demora em te responder.
Que legal a sua resolução do exercício! A Sequência de Fibonacci é super interessante, trazê-la para o PL/SQL é uma forma diferente de aprender e explorar novos conceitos da Matemática.
Sua procedure está correta e bem organizada, parabéns pela dedicação!
Continue sempre com esse empenho nos estudos, fico à disposição em caso de dúvidas.
Abraço!