爱问知识人 爱问教育 医院库

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

首页

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

本题目限制代码长度,最大长度为:4096字节

提交回答

全部答案

    2018-06-03 05:06:07
  •   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。
      

    A***

    2018-06-03 05:06:07

类似问题

换一换
  • 数学 相关知识

  • 教育培训
  • 教育科学
  • 教育考试

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):