pascal达依尔问题- -

来源：百度知道 编辑：UC知道 时间：2024/06/22 07:35:40
宰相的麦子：相传古印度宰相达依尔，是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他想要什么。达依尔说：“只要在国际象棋棋盘上（共64格）摆上这么些麦子就行了：第一格一粒，第二格两粒，……，后面一格的麦子总是前一格麦子数的两倍，摆满整个棋盘，我就感恩不尽了。”请编一程序,算出国王所需要麦子的体积(1立方米的麦子约为1.42*10^8粒)
还有答案哈
谢谢..

程序如下：

{$apptype console}
program exp;
var i:integer; n,s,v:double;
begin
  n:=1;
  s:=1;
  for i:=2 to 64 do
  begin
    n:=n*2;
    s:=s+n;
  end;
  v:=s/1.42e8;
  writeln(s,'粒');
  writeln(v,'立方米');
end.

在DELPHI下运行成功，结果如下：

E:\ygb>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(15)
16 lines, 0.05 seconds, 12092 bytes code, 1869 bytes data.

E:\ygb>a.exe
1.84467440737096E+0019粒
1.29906648406405E+0011立方米

(2^64-1)/(1.42*10^8)=129906648406.40529306338028169014