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。
答:详情>>
问:安徽省教育科学研究院编小学一年级寒假作案业数学,第27页计算棋的答案
答:这叫什么啊,没题目详情>>
答:中国人的数学理应比外国人好! 这是我的个人观点,这在于中国人对数字的发音是单音,因此,对数字的记忆较为简单,提高了学习数学的效率! 而科学的发展,往往受制于社会...详情>>