标题：个人瓶颈了

variable:total1=0,bar1=0; var1:=c; var2:=o; var3:=h; if not(islastbar) then exit; for N=1 to 100 do begin if var1[N]>var2[N] then begin bar1=bar1+1; total1=total1+((var3[N]-var2[N])/var2[N]); 100avg:total1/bar1; end; end; 结果居然100avg是一条0的直线，具体不知道错在哪里，希望经验丰富的朋友解答一下，谢谢。

variable:temp1=1,temp2=1,total1=0,total2=0,bar1=0,bar2=0; var1:=c; var2:=o; var3:=h; if not(islastbar) then exit; for N=1 to 100 do begin if var1[N]>var2[N] then begin bar1=bar1+1; total1=total1+((var3[N]-var2[N])/var2[N]); 100avg:total1/bar1; end; end;

奇怪，怎么不会按软件里的格式显示呢

请使用IE浏览器

variable:temp1=1,temp2=1,total1=0,total2=0,bar1=0,bar2=0;
var1:=c;
var2:=o;
var3:=h;
if not(islastbar) then exit;
for N=1 to 100 do begin
  if var1[N]>var2[N] then begin
     bar1=bar1+1;
     total1=total1+((var3[N]-var2[N])/var2[N]);
     100avg:total1/bar1;
  end;
end;

谢谢4楼，果然有效，代码在5楼

估计是手误

 bar1=bar1+1;

 total1=total1+((var3[N]-var2[N])/var2[N]);
改为

 bar1:=bar1+1;

 total1:=total1+((var3[N]-var2[N])/var2[N]);

谢谢7楼的，慧眼，我大意了。