八百位圆周率.txt

编译原理的一个课程设计

void main()
{
  output "圆周率的前800位：\n";
  int a=10000,b,c=2800,d,e,f[2801],g,h,i;
  while(b!=2800)
  {
    f[b]=2000;
    b=b+1;
  }
  while()
  {
    d=0;
    g=2*c;
    if(g==0)
      break;
    b=c;
    while()
    {
      d=d+f[b]*a;
      g=g-1;
      f[b]=d%g;
      d=d/g;
      g=g-1;
      b=b-1;
      if(b==0)
        break;
      d=d*b;
    }
    c=c-14;
    h=e+d/a;
    if(h>=1000)
      output h;
    else if(h>=100)
      output "0",h;
    else if(h>=10)
      output "00",h;
    else
      output "000",h;
    i=i+1;
    if(i==10)
    {
      output "\n";
      i=0;
    }
    e=d%a;
  }
}