神经病有所好转 2011-07-13 20:17:00
点我顶贴
收藏
删除
应该就这里不懂把
//g攻 f防
x:=1; xx:=n; y:=1; yy:=n; s:=0;
for i:=1 to n do
begin
if f[xx]>g[yy] then begin inc(s,200); dec(xx);dec(yy); end
else if f[x]>g[y] then begin inc(s,200); inc(x);inc(y); end
else if f[x]<g[yy] then begin dec(s,200); inc(x);dec(yy); end;
end;