程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 計算PI值到一億位的算法

計算PI值到一億位的算法

編輯:Delphi

  我大體上考慮了一下用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;//@@

  

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved