作业帮 > 综合 > 作业

free pascal求解输出圆周率小数点后1000000 位

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/06 16:53:45
free pascal求解输出圆周率小数点后1000000 位
本题目限制代码长度,最大长度为:4096字节
program PyePrg;
const a :longint = 10000;
c :longint = 2800;
var d,e,g :longint;
f :array [0..2800] of longint;
i,b :integer;
begin
writeln;
writeln('Value of Pye Is:');
b := 0;
while (b 0) do
begin
d := 0;
b := c;
while (b > 1) do
begin
d := d + f[b] * a;
f[b] := d mod (2 * b - 1);
d := d div (2*b - 1);
d := d * b;
dec(b);
end;
dec(c,14);
if (i = 2800)
then
write('3.141')
else
write(e + d div a);
e := d mod a;
dec(i,14);
end;
end.
圆周率 小数点后10000000位 圆周率小数点后1000000000位 圆周率小数点后200位 圆周率小数点后20位 圆周率小数点后50位. 圆周率小数点后100位 圆周率小数点后一千位 圆周率小数点后一千位? 求圆周率小数点后100位 求圆周率小数点后100位数字. 求圆周率小数点后20位 求圆周率小数点后200位