精确计算PI小数点后800位小数

2016-02-19 12:49 62 1 收藏

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的精确计算PI小数点后800位小数,过去的都会过去,迎接崭新的开始,释放更美好的自己。

【 tulaoshi.com - 编程语言 】

          近来,在网上发现一个能精确计算PI后面数百位的C程序,不敢独享,把其翻译成PASCAL版,供大家参考,该函数写的非常精巧,仅用了三行代码,就能精确计算出PI后800位小数。小弟不才,对数学造诣不深,不明白他算法的原理是什么,如果有懂的请不吝赐规教。下面将该函数的C版和PASCAL版一并贴出,供大家参考。

  ///////////////////////////////////////////////////////////
  // C语言 源程序  功能:精确计算PI小数点后799位小数
  // 转自 http://www.programfan.net/club/showbbs.asp?id=16434
  //
  //  #include stdlib.h
  //  #include stdio.h
  //  long a=10000,b,c=2800,d,e,f[2801],g;
  //  main()
  //  {
  //    for(;b-c;) f[b++]=a/5;
  //    for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
  //      for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);
  //  }
  ///////////////////////////////////////////////////////////
  // 版权所有,转载请注明出处
  // 该C函数的 Delphi 版
  // 编译: 黄涛  Hunter@Shentong.com.cn
  //  2004-9-7
  function CalcPI :string;
  //long a=10000,b,c=2800,d,e,f[2801],g;
  var a,b,c,d,e,g:integer;
      f :array[0..2800] of integer;
  begin
    a:=10000;b:=0;c:=2800;e:=0;f[2800]:=0;
    //for(;b-c;) f[b++]=a/5;
    while (b-c)0 do begin f[b]:= a div 5; inc(b) end;
    //for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
    while c0 do begin
      d:=0; g:=c*2; b:=c;
      repeat                                 
        //for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);
        d:=d+f[b]*a;dec(g);f[b]:=d mod g;
        d:=d div g;dec(g);dec(b);
        if b0 then d:=d*b;
      until b=0;
      c:=c-14;
      Result:= Result + format('%.4d',[e+ d div a]);
      e:=d mod a;
    end;
  end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

       通过上面的代码可以看出,C语言非常灵活,写出的代码的确很精练,不过他的编程风格确实不值得提倡,太难懂了,非C语言高手很难搞懂他写的什么。不过如果有谁也能写出更精练的Delphi代码也请贴出,供大家学习。我写的只是为了翻译,基本上是一一对应的,没有做更多的优化。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1602038.html

延伸阅读
第一步:在菜单栏上选择视图,然后找到标尺,标尺就会显示出来了。   第二步:用鼠标框选住我们所需要对齐的小数点,在左上角找到标尺,双击标尺按钮。   第三步:在横标尺上面选择一个位置,这个位置就是确定小数点对齐的位置,用鼠标点击,添加一个制表符标。   ...
因需要,要将一连串的小数按照无规律进行提取小数点后第N位数字,如果是数据少还可以手动搞定,但需要处理的数据非常之多,如果依然按照手动的去一个一个处理,不见劳神费力,而且容易出错,聪明人的做法不是这样的。下面为大家介绍下比较快速的处理技巧,案例中使用到了RIGHT函数,若你还不知道此函数的用法,下面也为大家整理了一下,好好看...
Excel如何去除随机数的小数点 1、Excel生成的随机数是存在小数点的,大多时候,我们需要的随机数是不用小数点的,执行步骤就是右键点击,出现菜单,找到“设置单元格格式”点击进入。 2、进入设置单元格格式之后,在数字列表中,找到左侧列表的“数值”点击,后出现右侧数值,在小数点数上面点击“设置为0,这样点击确定,小数点就消失了。 ...
标签: Web开发
说明:IE6.0、IE7.0、IE8.0、Firefox/3.0.11下测试通过 验证数字最简单正则表达式大全 输入完按回车后即可验证!(自认为最简单!) 正整数: 负整数: 整 数: 正小数: 负小数: 小 数: 实 数: 保留1位小数: 保留2位小数: 保留3位小数: [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 出...
标签: 电脑入门
一、RANDBETWEEN生成随机小数 公式代码如下: =0.1*RANDBETWEEN(400,1000) 技巧分析,RANDBETWEEN(400,1000)可生成从400到1000之间的任何一个整数,因此,只需要在其前面除以0.1,就可以得到 [40,100] 这个范围的随机小数。 二、RANDBETWEEN的另外一种生成随机小数的技巧 多就不说了,方法与上述的指导思想相同,公式如下: RANDBETWEEN(...

经验教程

809

收藏

46
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部