[问题] 一个蛮简单的for循环，请帮忙看下

[lapertem44]

X:=[0000,0001......1111] #X有64个4bit的二进制数字（有重复）
Y:=[0000,0001......1111] #Y有16个4bit的二进制数字

如何写一个循环
列出X[i]=Y[j]的数量，
举例比如(0000,0),(0001,2),(0011,4)....(1111,8) #以Y的16个4bit罗列输出

我写了

count := 0; 
for j from 1 to 16 do 
for i from 1 to 64 do 
if X[i] = Y[j] then count[j] := count[j]+1 else i := i+1 end if 
end do 
end do; 
print(Y[j], count[j])

但是不对。
请问有大大帮忙看下吗
谢谢啦先。

[tsongj]

前面加上一个包即可 > with(Statistics);

输出结果为： 0
Y[17], 0