primer package calculadora

create or replace package pkgCalculadora is
function suma(p1 number, p2 number) return number;
function resta(p1 number, p2 number) return number;
function multiplica(p1 number, p2 number) return number;
function divide(p1 number, p2 number) return number;
function numeroFactorial(p1 number) return number;
function exponenteAlCuadrado(p1 number) return number;
function exponenteAlcubo(p1 number) return number;
end pkgCalculadora;
create or replace package body pkgCalculadora is
procedure imprime (pvalor number) is
begin dbms_output.put_line('Resultado: ' pvalor);
end imprime;
function suma(p1 number, p2 number) return number is
Begin imprime(p1+p2); return p1+p2;
End suma;
function resta(p1 number, p2 number) return number is
Begin imprime(p1-p2); return p1-p2;
End resta;
function multiplica(p1 number, p2 number) return number is
Begin imprime(p1*p2); return p1*p2;
End multiplica;
function divide(p1 number, p2 number) return number is
Begin imprime(p1/p2); return p1/p2;
EXCEPTION when Zero_divide then dbms_output.put_line ('Error !! Division por Cero');
End divide;
function numeroFactorial(p1 number) return number is
beginres =i;
for(i=1;i<=p1;i++);
res =res*i;
return res;
end numeroFactorial;
function exponenteAlCuadrado(p1 number) return number is
Begin imprime(p1*p1); return p1*p1;
End multiplica;
function exponenteAlcubo(p1 number) return number is
Begin imprime(p1*p1*p1); return p1*p1*p1;
End multiplica;
end pkgCalculadora;
declare r number(10);begin r := pkgCalculadora.suma(2, 3);
end;