G
gglrobin
Unregistered / Unconfirmed
GUEST, unregistred user!
变是声明是这样的
RecNo为全局变量,为一个常数
var i,ii,b,abc,l,j,p,ti,r,pp,Code,k:integer;
s,S2,aaa1,aaa2,str1,str2,s_x:string;
x:array[1..100,1..20] of string;
g,e,z,X_calc:array[1..100,1..20] of real;
Max_x,Min_x:real;
c,a,q:real;
ss,d:array[1..5050] of real;
下面是出错的代码段:
for i:=1 to RecNo-1
do
begin
g[1,i]:=d;
end;
for i:=1 to CutNo-1
do//[Error] Unit1.pas(263): Incompatible types: 'Integer' and 'Extended'这是怎么回事呀?
begin
for j:=1 to RecNo-i
do
begin
for l=1 to RecNo-j-i+1
do
begin
ss[l]:=g[i,l]+d[RecNo*(l+i-1)+RecNo-j+1-(l+i)*(l+i-1) div 2];
//输出s(l)
memo1.Lines.Add(currtostr(ss[l]));
end;
a:=ss[1];
p:=i+1;
b:=i;
for l:=1 to RecNo-j-i+1
do
begin
if a>ss[l] then
begin
a:=ss[l];
b:=i+l-1;
end;
end;
g[p,RecNo-i-j+1]:=a;
e[p,j]:=b;
Memo1.Lines.Add('G['+currtostr(p)+','+currtostr(RecNo-i-j+1)+']='+currtostr(a)) ;
memo1.Lines.Add('E['+currtostr(p)+','+currtostr(j)+']='+currtostr(e[p,j])) ;
end;
end;
RecNo为全局变量,为一个常数
var i,ii,b,abc,l,j,p,ti,r,pp,Code,k:integer;
s,S2,aaa1,aaa2,str1,str2,s_x:string;
x:array[1..100,1..20] of string;
g,e,z,X_calc:array[1..100,1..20] of real;
Max_x,Min_x:real;
c,a,q:real;
ss,d:array[1..5050] of real;
下面是出错的代码段:
for i:=1 to RecNo-1
do
begin
g[1,i]:=d;
end;
for i:=1 to CutNo-1
do//[Error] Unit1.pas(263): Incompatible types: 'Integer' and 'Extended'这是怎么回事呀?
begin
for j:=1 to RecNo-i
do
begin
for l=1 to RecNo-j-i+1
do
begin
ss[l]:=g[i,l]+d[RecNo*(l+i-1)+RecNo-j+1-(l+i)*(l+i-1) div 2];
//输出s(l)
memo1.Lines.Add(currtostr(ss[l]));
end;
a:=ss[1];
p:=i+1;
b:=i;
for l:=1 to RecNo-j-i+1
do
begin
if a>ss[l] then
begin
a:=ss[l];
b:=i+l-1;
end;
end;
g[p,RecNo-i-j+1]:=a;
e[p,j]:=b;
Memo1.Lines.Add('G['+currtostr(p)+','+currtostr(RecNo-i-j+1)+']='+currtostr(a)) ;
memo1.Lines.Add('E['+currtostr(p)+','+currtostr(j)+']='+currtostr(e[p,j])) ;
end;
end;