oracle包体package,包规范

enxakl791b

create or replace package circle_package
as
pi number(6,2):=3.14;
function fun_get_circle_area(param_r number) return number;
function fun_get_circle_c(param_r number) return number;
end circle_package;
/　　
create or replace package body circle_package
as
　　
function fun_get_circle_area(param_r number) return number
as
begin
return pi*power(param_r,2);
end;
　　
function fun_get_circle_c(param_r number) return number
as
begin
return pi*param_r*2;
end;
end circle_package;
/
　　declare
v_area number(6,2);
v_c number(6,2);
v_r number(5):=3;
begin
v_area:=circle_package.fun_get_circle_area(v_r);
v_c:=circle_package.fun_get_circle_c(v_r);
Dbms_output.put_line('圆的半径：'||v_r );
Dbms_output.put_line('圆的周长：'||v_c );
Dbms_output.put_line('圆的面积：'||v_area );
end;
　　
SQL> set serveroutput on;
SQL> /
　　圆的半径：3
圆的周长：18.84
圆的面积：28.26
　　PL/SQL procedure successfully completed