- 求1…10的质素
DECLARE
k NUMBER:=0.0;
flag BOOLEAN:=TRUE;
BEGIN
FOR i IN 1..10
LOOP
SELECT sqrt(i) INTO k FROM dual;
FOR j IN 2..k
LOOP
IF mod(i,j)=0 THEN
flag:=FALSE;
EXIT;
END IF;
END LOOP;
IF flag THEN
dbms_output.put_line('i='||i);
END IF;
flag:=TRUE;
END LOOP;
END;
- 查看语句执行时间CPU
DECLARE
t NUMBER ;
BEGIN
t:=DBMS_UTILITY.GET_TIME;
// 执行需要计算的语句
FOR i IN 1..10000 LOOP
FOR i IN 1..10000 LOOP
NULL;
END LOOP;
END LOOP;
DBMS_OUTPUT.PUT_LINE(DBMS_UTILITY.GET_TIME-t||'0');
END;