格雷码解码的Pascal 程序:

知道 Noip吗 ？本人特偷懒，下面是
Noip 2007 提高组完善程序试题

填空可以自己试一下，答案在试题后
我填对了3格 O(∩_∩)O哈哈~

五．完善程序
1．(格雷码 Gray Code)
Gray Code是一种二进制编码，编码顺序与相应的十进制数的大小不一致。其特点是，对于两个相邻的十进制数，对应的两个格雷码只有一个二进制位不同。另外，最大数与最小数间也仅有一个二进制位不同，以4位二进制数为例，编码如下：
十进制数 格雷码 十进制数 格雷码
0 0000 8 1100
1 0001 9 1101
2 0011 10 1111
3 0010 11 1110
4 0110 12 1010
5 0111 13 1011
6 0101 14 1001
7 0100 15 1000
如果把每个二进制的位看做一个开关，则将一个数变为相邻的另一个数，只须改动一个开关。因此，格雷码广泛用于信号处理、数-模转换等领域。
下面程序的任务是：由键盘输入二进制的位数n(n<16)，再输入一个十进制数m(0≤m<2n)，然后输出对应于m的格雷码(共n位，用数组gr[ ]存放)

program s501;
var bound，m，n，i，j，b，p:integer;
gr:array[0..14]of integer;
begin
bound:=1;
writeln('input n，m');
readln(n，m);
for i:=1 to n do bound:=[ ① ];
if (m<0)or(m>=bound) then
begin
writeln('Data error!');
[ ② ];
end;
b:=1;
for i:=1 to n do
begin
p:=0; b:=b*2;