level 4
饮冰的人shui
楼主
小弟delphi初学者,incompatible types:integer an extended
,这是什么错误啊啊
var
h:integer;
ggd1,ggd2:array[1..4,1..2] of double;
b:array[1..8,1..4] of double;
ll:array[1..8] of double;
begin
for h:=1 to 8 do
begin
b[h,1]:=(1+power(-1,h+1))/2;
b[h,2]:=(1-power(-1,h+1))/2;
if h mod 2=0 then
begin
b[h,3]:=ggd2[h/2,2];//出错
b[h,4]:=ggd2[h/2,1];//出错
ll[h]:=ggd1[h/2,1];//出错
end
else
begin
b[h,3]:=ggd2[(h+1)/2,1];//出错
b[h,4]:=-ggd2[(h+1)/2,2];出错
ll[h]:=ggd1[(h+1)/2];//出错
end;
end
出错提示都为incompatible types:integer an extended,这是什么情况啊。。在线等啊。。
2014年05月14日 08点05分
1
,这是什么错误啊啊
var
h:integer;
ggd1,ggd2:array[1..4,1..2] of double;
b:array[1..8,1..4] of double;
ll:array[1..8] of double;
begin
for h:=1 to 8 do
begin
b[h,1]:=(1+power(-1,h+1))/2;
b[h,2]:=(1-power(-1,h+1))/2;
if h mod 2=0 then
begin
b[h,3]:=ggd2[h/2,2];//出错
b[h,4]:=ggd2[h/2,1];//出错
ll[h]:=ggd1[h/2,1];//出错
end
else
begin
b[h,3]:=ggd2[(h+1)/2,1];//出错
b[h,4]:=-ggd2[(h+1)/2,2];出错
ll[h]:=ggd1[(h+1)/2];//出错
end;
end
出错提示都为incompatible types:integer an extended,这是什么情况啊。。在线等啊。。