if (WS[10]-WS[0])/N>=aipu then
if (BESTS[NC]-trunc(BESTS[NC])=0) or (BESTS[NC]<>BESTS[NC-1]) then
for i:=0 to 10 do
WS[i]:=BESTS[NC]-5+i
else
for i:=0 to 10 do
begin
p:=i;
for e:=0 to cal(BESTS[NC]) do
begin
p:=p/10;
end;
WS[i]:=BESTS[NC]+i;
end;
报错如题，这种问题到底该怎么解决！！？？？？
大神们！
不局限于上面这段程序，整体略长。