Number programs using plsql procedure and function

1)Print the prime number upto certain number in plsql

=============================================

procedure

---------------------------

create procedure reverNum(a in number)

is

i number;

j number;

k number;

flag number:=0;

begin

for i in 2..a

loop

k:=i-1;

for j in 2..k

loop

if(mod(i,j)=0) then

flag:=1;

            end if;

end loop;

if(flag=0) then

dbms_output.put_line(i||' ');

end if;

flag:=0;

end loop;

end;

/

calling the procedure

---------------------------------------------------

declare

a number;

begin

a:='&a';

reverNum(a);

end;

/

2))Print the fibonacci series upto certain number using pl/sql procedure

====================================================================

procedure--------------------


create procedure fibonaci(a in number)
is
x number:=0;
y number:=1;
test number:=0;
begin
dbms_output.put_line(x||' ');
dbms_output.put_line(y||' ');
while test<a loop
test:=x+y;
dbms_output.put_line(test||' ');
                x:=y;
y:=test;
end loop;
end;
/

calling the procedure-----------------------------

declare
a number;
begin
a:='&a';
fibonaci(a);
end;

/

Function to find greatest among 3 numbers
================================================
create function grater1(a in number,b in number,c in number)
return number
as
d number;
begin
if(a>b and a>c)then
d:=a ;
return d;
elsif(b>a and b>c) then
d:=b;
return d;
else
d:=c;
return d;
end if;
end;
/

declare
a number(10);
b number(10);
c number(10);
d number(10);
begin
a:='&a';
b:='&b';
c:='&c';
d:=grater1(a,b,c);
dbms_output.put_line(d);
end;
/