用oracle编写求圆的面积的程序

create or replace function getCircleArea(r in number) return number is

v_res number

v_pai constant number := 3.1416

begin

v_res := v_pai * r * r

return(v_res)

end getCircleArea

declare

v_LONG NUMBER:=&L

V_S NUMBER

BEGIN

IF V_LONG=5 THEN

V_S:=v_LONG *v_LONG

END IF

END

2\CREATE OR REPLACE FUNCTION PRODUCTID(P_deptno IN dept.deptno%type)

RETURN VARCHAR2 IS

V_LOC dept.loc%type

BEGIN

SELECT LOC INTO V_LOC FROM DEPT WHERE DEPTNO=P_deptno

EXCEPTION

WHEN OTHERS THEN

V_LOC :='NO DATA'

RETURN V_LOC

END PRODUCTID

3\

DECLARE

CURSOR C IS SELECT EMPNO,SAL,JOB FROM EMP

V_C C%ROWTYPE

BEGIN

SELECT EMPNO,SAL,JOB INTO V_C FROM EMP WHERE ENAME='SMITH'

END

未调试