其实Oracle中使用现成的函数就可以直接到的圆周率，比如：

SQL> SELECT ACOS(-1) FROM DUAL;

  ACOS(-1)
----------
3.14159265

可以通过调整数值类型的参数来获取38位精度：

SQL> SET NUMW 40
SQL> SELECT ACOS(-1) PI FROM DUAL;

                                      PI
----------------------------------------
 3.1415926535897932384626433832795028842

如果不能使用现成的函数，而要自己计算，则要麻烦一些。

当时同事问我的时候，我告诉他一分种左右就可以搞定，而实际证明，写这个代码用了5分钟左右：

SQL> CREATE OR REPLACE PROCEDURE P_PI wrapped
  2  a000000
  3  1
  4  abcd
  5  abcd
  6  abcd
  7  abcd
  8  abcd
  9  abcd
 10  abcd
 11  abcd
 12  abcd
 13  abcd
 14  abcd
 15  abcd
 16  abcd
 17  abcd
 18  abcd
 19  7
 20  ec 11f
 21  bLpzn0N21EJAQZmxUW0FNNv3TiEwgwDQ7UhqfC/WmGCua2Lf0zZFLKG/pZHGJ/bKzDYxl/z+
 22  qm17DFusHSThkSZkEuy6LmGKASmXQXlIcj5c2rC7LQDfmeLEhifcu+/Euy0ZqsYYpFeKtfeC
 23  Vamv1TmuhyHFqL1bdFkURszthPM58C+Jwz4juIdQ3pEBIhhdUWdwH2nhe8wAWXYtDklgqX3m
 24  d05w6NIDkQvcTtJx/uoF8gVIBzPG8V7EYd5VJ/6IIw24DU+CH20QJHWJwe4eKG3j3/I=
 25 
 26  /

过程已创建。

这时10.2版本下WRAP后的过程，利用这个代码可以返回圆周率100位以内的任意位小数：

SQL> SET SERVEROUT ON
SQL> EXEC P_PI
3.1415926535

PL/SQL 过程已成功完成。

SQL> EXEC P_PI(1)
3.1

PL/SQL 过程已成功完成。

SQL> EXEC P_PI(5)
3.14159

PL/SQL 过程已成功完成。

SQL> EXEC P_PI(38)
3.14159265358979323846264338327950288419

PL/SQL 过程已成功完成。

SQL> EXEC P_PI(100)
3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706

PL/SQL 过程已成功完成。