怀旧之应届毕业生考试题目

很多年前 俺回复的一个贴子。

问题：发布本公司对应届毕业生考试题目 来自：0564335, 时间：2004-02-27 20:54, ID：2474697

3． 用最优算法实现1+1/2+1/4+1/8+1/16+…..+1/n[2]的和；类别：算法类，难度：初级

自：hfghfghfg, 时间：2004-02-29 10:48, ID：2476492 
3．  用最优算法实现1+1/2+1/4+1/8+1/16+…..+1/n[2]的和；类别：算法类，难度：初级
我想 知道 比 下面 的 函数 更快 的 算法。

 function fast(n: integer): Extended;
  var
    i: DWORD;
  begin
    i := 31 - n;
    result := (INFINITE shr i shl i) / $80000000;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, b: integer;

  function fast(n: integer): Extended;
  var
    i: DWORD;
  begin
    i := 31 - n;
    result := (INFINITE shr i shl i) / $80000000;
  end;

  function normal(n: integer): Extended;
  begin
    result := 2 - (1 / Power(2, n));
  end;

  function slow(n: integer): Extended;
  var
    i: integer;

  begin
    result := 1;
    for i := 1 to n do
      result := result + 1 / Power(2, i);

  end;

begin

  showmessage(format('%1.9f %1.9f %1.9f', [fast(5), normal(5), slow(5)]));

  b := GetTickCount;
  for i := 1 to 100000 do
    fast(5);
  showmessage(format('%f秒', [(GetTickCount - b) / 1000]));

  b := GetTickCount;
  for i := 1 to 100000 do
    normal(5);
  showmessage(format('%f秒', [(GetTickCount - b) / 1000]));

  b := GetTickCount;
  for i := 1 to 100000 do
    slow(5);
  showmessage(format('%f秒', [(GetTickCount - b) / 1000]));

end;
 

来自：0564335, 时间：2004-02-29 11:22, ID：2476557

to hfghfghfg : 能想出Fast这个方法，实在绝了；高！