PACK EN ORACLE SQL PARA SUMAR, RESTAR, MULTIPLICAR, DIVIDIR
create or replace function suma(a real,b real)
return real as salida real;
begin
salida:=a+b;
return salida;
exception when others then
dbms_output.put_line('ERROR NO SE PUEDE!!');
return salida;
end;
create or replace function resta(a real,b real)
return real as salida real;
begin
salida:=a-b;
return salida;
exception when others then
dbms_output.put_line('ERROR NO SE PUEDE!!');
return salida;
end;
create or replace function mult(a real,b real)
return real as salida real;
begin
salida:=a*b;
return salida;
exception when others then
dbms_output.put_line('ERROR NO SE PUEDE!!');
return salida;
end;
create or replace function div(a real,b real)
return real as salida real;
begin
salida:=a/b;
return salida;
exception
when zero_divide then
dbms_output.put_line('No se puede dividir por CERO');
return salida;
end;
create or replace function raiz(a real)
return real as salida real;
begin
salida:=sqrt(a);
return salida;
end;
create or replace procedure calc(a real, b real)
as
begin
dbms_output.put_line('suma: ' ||suma(a,b));
dbms_output.put_line('resta: '||resta(a,b));
dbms_output.put_line('mult: ' ||mult(a,b));
dbms_output.put_line('div: ' ||div(a,b));
dbms_output.put_line('Raiz ' ||raiz(a));
end;
begin calc (4,5);end;