计算PI值到一亿位的算法
来源:互联网 发布:电工电路仿真软件 编辑:程序博客网 时间:2024/05/21 10:42
我大体上考虑了一下用DELPHI计算PI值到一亿位的算法,得到一个大体的算法,也好用来交流一下。这是一个构造一种新的长四则运算的算法。所谓长四则运算,是指用数据库的字段来作一个小数,用一个记录来作一个小数数位的算法。先作出longadd(),longsub(),longmulti(),longdiv(),然后再用求PI公式来求即可。下面我大体上作出了longadd(),并尚未经过上机调试的。先作六个全局书签变量:
public
Xieof,Xpeof,Yieof,Ypeof,Zieof,Zpeof:Tbookmarkstr;
procedure longadd(add1,add2,sum:integer);//字段的索引值。
var
add1i,add1p,add2i,add2p,sumi,sump:integer;
add1iend,add1pend,add2iend,add2pend,temp,jump:integer;
begin////
add1i:=add1;add1p:=add1+1;add2i:=add2;add2p:=add2+1;
sumi:=sum;sump:=sum+1;temp:=0;jump:=0;//初值,字段的索引值。
longtable.bookmark:=xpeof;add1pend:=longtable.recno;
longtable.bookmark:=ypeof;add2pend:=longtable.recno;
if add1pend<add2pend then longtable.bookmark:=ypeof;
if add1pend>=add2pend then longtable.bookmark:=xpeof;
while not bof() do begin//////##
if (longtable.recno<add1pend) and (longtable.recno>add2pend)then begin
fields(sump):=fields(add2p);longtable.prior;continue;
end;
if (longtable.recno<add2pend) and(longtable.recno>add1pend) then begin
fields(sump):=fields(add1p);longtable.prior;continue;
end;
temp:=fields(add1p)+fields(add2p);
if (jump=1) then begin
temp:=temp+1;
jump:=0;
end;
if (temp>=10) then begin
fields(sump):=temp-10;jump:=1;end;
if temp<10 then fields(sump):=temp;
longtable.prior;
end;//////##
while not longtable.recno>max(add1iend,add2iend) do begin//@@
if (longtable.recno>min(add1iend,add2iend)) and (add1iend<add2iend)then begin
fields(sumi):=fields(add2i);longtable.next;continue;
end;
if (longtable.recno>min(add1iend,add2iend)) and(add1iend>add2iend) then begin
fields(sumi):=fields(add1i);longtable.next;continue;
end;
temp:=fields(add1i)+fields(add2i);
if (jump=1) then begin
temp:=temp+1;
jump:=0;
end;
if (temp>=10) then begin
fields(sumi):=temp-10;jump:=1;end;
if temp<10 then fields(sumi):=temp;
longtable.next;
end;//@@
end;////
- 计算PI值到一亿位的算法
- 计算PI值到一亿位的算法
- 算法分析---外星人计算PI的程序
- 用概率算法计算PI的近似值
- Pi的计算程序
- PI的计算公式
- 计算pi的方法
- 并行Pi的计算
- 计算PI的方法
- 计算PI的外星人程序
- 外星人计算Pi的程序
- 与PI有关的计算
- 外星人计算Pi的程序
- 计算任意位数的Pi
- 计算任意位数的Pi
- 计算任意位数的Pi
- C++计算PI的值
- 蒙特卡罗算法计算圆周率PI(C++)
- Js+Dhtml:WEB程序员简易开发工具包(预先体验版)
- 世界第一等-----无须安装WSH而执行VBS
- DELPHI的通配符比较
- DELPHI的奇异菜单的编写
- DELPHI的通配符比较(第五版)
- 计算PI值到一亿位的算法
- 快捷方式的函数
- 一个新算法的表达式求值的函数
- win2k环境下基于JBOSS的J2EE开发实践----之一初始基础环境的配置与测试
- win2k环境下基于JBOSS的J2EE开发实践-----之二、数据库连接池的配置与测试
- 深入剖析Java编程中的中文问题及建议最优解决方法--上篇
- 深入剖析Java编程中的中文问题及建议最优解决方法---下篇
- win2k环境下基于JBOSS的J2EE开发实践----之三、有状态会话 Bean的开发及多种调用有状态会话Bean方法的实现
- win2k环境下基于JBOSS的J2EE开发实践----之四:BMP实体Bean的编写与设计