使用 pl/sql 中的函数的斐波那契数列程序

问题描述

我必须创建一个函数来打印斐波那契数列作为其结果。我在下面的程序中使用了一个 varray，但它给了我一个错误，说“PLS-00201：标识符 'ARRAY' 必须被声明”在第 1 行。 2.

create function fibonacci7(x int)
return VARRAY
is
type fib IS VARRAY(25) OF VARCHAR(10);
a number(3):=1;
b number(3):=1;
c number(3);
i number(3):=1;
begin
while a<=n
    loop
       fib(i) := a;
       c:=a+b;
       a:=b;
       b:=c;
       i:=i+1;
    end loop;
return codes_;
end ;
/

select fibonacci7(5) from dual;

解决方法

我认为这会满足您的要求。 VARRAY 的语法与您使用的语法略有不同。

set serveroutput on size 1000000

create or replace type fibtype AS VARRAY(25) OF NUMBER;
/

create or replace function fibonacci7(n number)
return fibtype
is
fib fibtype := fibtype();
a number:=1;
b number:=1;
c number;
i number:=1;
begin
fib.extend(n);
while i<=n
    loop
       fib(i) := a;
       c:=a+b;
       a:=b;
       b:=c;
       i:=i+1;
    end loop;
return fib;
end ;
/

declare
i number;
fib fibtype := fibtype();
begin
fib := fibonacci7(6);
for i in 1..fib.count loop
  dbms_output.put_line(to_char(fib(i)));
end loop;
end;
/

这是输出。

1
1
2
3
5
8

鲍比

附言固定与 fib(6) 一起使用并制作数组编号