runmode:0;
cc:c;
for i=1 to barpos-1 do begin
if cc[barpos-i]>c then begin
ii:=i;
goto ab;
end
end
ab@ iii:ii;
iii为所求值
在之前的基础上添加下面代码试一下看看
if iii=1 then
iii:=barpos;
runmode:0;
cc:c;
for i=1 to barpos-1 do begin
if cc[barpos-i]>c then begin
ii:=i;
goto ab;
end
else
ii:=0;
end
ab@ iii:ii;