主题：请老师编写一个统计函数公式

a:=0;

for j=0 to 100 do begin

   for i=0 to 99 do begin

    if h[barpos-i]-l[barpos-i]=j then a:=a+1;

   end

    if a>=90  then begin

      jj:=j;

      break;

    end

end

 

jj为所求值

jjj:jj;

加一句，看下jjj的值就是了

发个截图看一下错误信息

这句代码加了没

http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=94734

用户发单截图没有看到，按照这里的方法发截图

要先勾选“上传”，最好用IE浏览器
此主题相关图片如下：1.png

a:=0;

jj:=0;

for j=0 to 100 do begin

   for i=0 to 99 do begin

    if h[barpos-i]-l[barpos-i]=j then begin

        a:=a+1;

        if a>=90 then begin

           jj:=j;

           break;

        end

    end

  end

end

说明没有满足的值出现