圆面积.txt

来自「orale培训教材包括了所有的sql说明和实例」· 文本 代码 · 共 32 行

create or replace function get_area_c( p_r number) return number is 
  n_area number(8,3):=0;
begin
  
  n_area := p_r * p_r * 3.14;
  return n_area;

end;

--测试函数
SELECT GET_AREA_C(2) FROM DUAL;

create or replace procedure proc_area_c( p_r in number, p_area out number) 
is 
  
begin
  
  p_area := p_r * p_r * 3.14;
  
end;

--测试用plsql
declare 
  n_area number(8,3) :=0;
  n_r number(4,0);
begin
  n_r:=4;
  proc_area_c(n_r,n_area);
  dbms_output.put_line(n_area);

end;