整理我以前的PASCAL源程序-高精度计算(2)计算自然对数底e
来源:互联网 发布:汉字注音软件下载 编辑:程序博客网 时间:2024/06/06 01:22
program se;
label ext;
const
dn=2504;
var
n,i,ip,k:integer;
sum,a:array[1..dn] of integer;
procedure testk;
var
ch:char;
begin
if k mod 10=0 then write(' ');
if (k mod 50=0) and (k mod 1000<>0) then
writeln(':',k:8);
if k mod 1000<>0 then exit;
writeln(':',k:8,' Press Enter..');
readln;
end;
procedure outp;
var
i:integer;
begin
writeln('e=');
writeln(sum[1],'.');
k:=0;
for i:=2 to dn do
begin
write(sum[i] div 1000); k:=k+1; testk;
write(sum[i] div 100 mod 10); k:=k+1; testk;
write(sum[i] div 10 mod 10 ); k:=k+1; testk;
write(sum[i] mod 10); k:=k+1; testk;
end;
writeln;
writeln('Programmed by j.t.chang');
end;
procedure formats;
var
c:integer;
begin
c:=0;
for i:=dn downto 1 do
begin
sum[i]:=sum[i]+c;
c:=sum[i] div 10000;
sum[i]:=sum[i] mod 10000;
end;
end;
procedure m_div;
var
i:integer;
r1,c:longint;
begin
c:=0;
for i:=ip to dn do
begin
r1:=c*10000+a[i];
a[i]:=r1 div n;
sum[i]:=sum[i]+a[i];
c:=r1 mod n;
end;
end;
begin
writeln('Please wait...');
for i:=1 to dn do a[i]:=0;
a[1]:=1;
sum:=a;
n:=1;
ip:=1;
repeat
i:=ip;
while (a[i]=0) do
begin
i:=i+1;
if i>dn then goto ext;
end;
ip:=i;
m_div;
n:=n+1;
formats;
until false;
ext:
formats;
outp;
end.
- 整理我以前的PASCAL源程序-高精度计算(2)计算自然对数底e
- 对自然对数 e 的计算
- 计算:自然对数的底e和圆周率pi
- 12以内阶乘、自然对数e及e的x次方的计算(Factorial)
- 自然对数底e的由来
- 自然对数底e的由来
- 自然对数底e的来源1
- openCL实现计算自然对数
- 自然对数e的近似值
- 自然对数e的来历
- 自然对数e及e的x次方的计算(Calculation of natural exponent e and x power of e)
- 两种计算自然对数的算法比较
- 两种计算自然对数的算法比较
- 高精度计算e
- 自然对数的底
- Java求自然对数底e的值
- Java求自然对数底e的值
- 【SzNOI语法百题】【d057】自然对数的底 e
- 内核模块开发基础
- mysql 数据库 常用命令
- Git Submodule的坑
- UBI文件系统简介
- 分析支付宝客户端的插件机制
- 整理我以前的PASCAL源程序-高精度计算(2)计算自然对数底e
- SAP 如何实现跨系统取数 SAP读取ORACLE或者SQL server数据库
- 使用jquery获取父元素或父节点的方法
- 什么是VGA、QVGA、CIF、QCIF。。。?
- 在WIN 7系统下安装oracle 10g
- Android文件命名规范
- zstu 4111 Bread Sorting 线段树求逆序数
- struts2的s:iterator 标签 详解
- 东软总结04-对话框01