SQL> SQL> DECLARE 2 bd BINARY_DOUBLE; 3 bd_area BINARY_DOUBLE; 4 bd_sine BINARY_DOUBLE; 5 nm NUMBER; 6 nm_area NUMBER; 7 nm_sine NUMBER; 8 pi_bd BINARY_DOUBLE := 3.1415926536d; 9 pi_nm NUMBER := 3.1415926536; 10 bd_begin TIMESTAMP(9); 11 bd_end TIMESTAMP(9); 12 bd_wall_time INTERVAL DAY TO SECOND(9); 13 nm_begin TIMESTAMP(9); 14 nm_end TIMESTAMP(9); 15 nm_wall_time INTERVAL DAY TO SECOND(9); 16 BEGIN 17 bd_begin := SYSTIMESTAMP; 18 bd := 1d; 19 LOOP 20 bd_area := bd * bd * pi_bd; 21 bd := bd + 1d; 22 EXIT WHEN bd > 5000000; 23 END LOOP; 24 bd_end := SYSTIMESTAMP; 25 26 27 END; 28 / PL/SQL procedure successfully completed. SQL>