多维动态数组起始值能否不从0开始,以及一个循环。 (20分)

Sqrt(x)
在设计期不会出错,x<0时也是在运行程序时才报错.
另外你的信息:
//[Warning] Unit1.pas(44): FOR-Loop variable 'j' may be undefined after loop
这个提示就是关于 j 的,这不会错.假如你只有i,怎会出来个 j ?

就是在运行期才出现的。

是不是你把Fortran翻译成Delphi时出错了?

Nizvoo@etang.com
帮你试试，我调一下才行。

如果信得过

(x1,x2) * | 1,2 | *|x1| = x1^2 + 4*x1*x2 + x2^2
| 2,1 | |x2|
好象不是正定的矩阵.另外 .............
A[1,1]:=sqrt(A[1,1])
//A[1,1]=1.414
for j:=2 to n do
begin A[1,j]:=A[1,j]/A[1,1]
end
//A[1,2]=2,不变
for i:=2 to n do
begin //10
for j:=2 to i do
begin A[i,i]:=A[i,i]-A[j-1,i]*A[j-1,i]
end
//A[2,2]=A[2,2]-A[1,2]*A[1,2]=-3
A[i,i]:=sqrt(A[i,i])
//A[2,2]=Sqrt(-3) !
必然出错!

你说的是对了，我再看看fortran的源程序。
不过无论你把试验数字改什么，都是报错啊。