#include /*輸入輸出標頭檔*/
#include 
     int main()/*主要程式區*/
{
        double ans=0;/*宣告double形態的一個變數*/    
        double num=1;/*宣告double形態的一個變數*/            do
        { 
    ans=ans 4*((1/num)-(1/(num 2)));/*運算式*/            num=num 4;            }while(num<40000);            printf("%.4f\n",ans);/*輸出到螢幕上為小數點第4位*/
        getch();
        return 0;/*傳回作業系統*/    }

  double x=2, z=2;
  int a=1, b=3;
  while(z>1e-15)
  {
    z = z*a/b;
    x  = z;
    a  ;
    b =2;
  }
  Memo1->Text = AnsiString().sprintf("Pi=%.13f", x);    精确到1000位：
  const ARRSIZE=1010, DISPCNT=1000; //定义数组大小，显示位数
  char x[ARRSIZE], z[ARRSIZE]; //x[0] x[1] . x[2] x[3] x[4] .... x[ARRSIZE-1]
  int a=1, b=3, c, d, Run=1, Cnt=0;      memset(x,0,ARRSIZE);
  memset(z,0,ARRSIZE);      x[1] = 2;
  z[1] = 2;      while(Run && (  Cnt<200000000))
  {
    //z*=a;
    d = 0;
    for(int i=ARRSIZE-1; i>0; i--)
    {
      c = z[i]*a   d;
      z[i] = c % 10;
      d = c / 10;
    }
    //z/=b;
    d = 0;
    for(int i=0; i0; i--)
    {
      c = x[i]   z[i];
      x[i] = c;
      x[i-1]  = c/10;
      Run |= z[i];
    }
    a  ;
    b =2;
  }
  Memo1->Text = AnsiString().sprintf("计算了 %d 次\r\n",Cnt);
  Memo1->Text = Memo1->Text   AnsiString().sprintf("Pi=%d%d.\r\n", x[0],x[1]);
  for(int i=0; iText = Memo1->Text   "\r\n";
    Memo1->Text = Memo1->Text   (int)x[i 2];
  }