Source：

program p2000;
var v:array[0..10000]of longint;
    n:longint;

procedure init;
  var i,j,k:longint;
begin
  fillchar(v,sizeof(v),0);
  k:=1;i:=1;v[0]:=0;
  while i<=10000 do begin
    for j:=1 to k do begin
      v[i]:=v[i-1]+k;      //这里的v[i]越界
      inc(i);
    end;
    inc(k);
  end;
end;

begin
//  assign(input,'input.txt');reset(input);
//  assign(output,'output.txt');rewrite(output);
  init;
  readln(n);
  while n<>0 do begin
    writeln(n,' ',v[n]);
    readln(n);
  end;
//  close(input);close(output);
end.

• fpc是有这个问题，不怪我啊，怪编译器吧 (623) hawk 2004-12-28 23:11:15
  • 哦~ (0) wangchen1ren 2004-12-29 20:38:17