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;
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;
end pkgCalculadora;


declare
 r number(10);
begin
 r := pkgCalculadora.suma(2, 3);
end;