Discussion :

[jeje.r]

Bonjour,
Est il possible de créer une proc stock avec une fonction récurssive?
Si oui, comment?


Merci.

[salim11]

Salut
Fonction recursif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
create or replace function fact(n number ) return number is
final number ;
begin
if n=1 or n=0 then
 final:=1;
else final:=n*fact(n-1);
end if;
return final ;
end ;

procedure qui appel la fonction recursive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
create or replace procedure affichage(n number, b  out number )
is
begin
b:=fact(n);
end ;
/

le programme principal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
declare 
res number ;
begin 
affichage(&n,res);
dbms_output.put_line('res = '|| res);
end ;
/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Enter value for n: 5
old   4: affichage(&n,res);
new   4: affichage(5,res);
res = 120

[jeje.r]

Merci, ca va m'aider .