格雷码是对十进制数的一种二进制编码。编码顺序与相应的十进制数的大小不一致。其特点是:对于
两个相邻的十进制数,对应的两个格雷码只有一个二进制位不同。另外,最大数与最小数之间也仅有一个
二进制位不同,以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[]存放)。
为了将程序补充完整,你必须认真分析上表的规律,特别是对格雷码固定的某一位,从哪个十进制数
起,由0变为1,或由1变为0。
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 := 1; if (m < 0) or (m >= bound) then begin writeln('Data error!'); 2; end; b := 1; for i:=1 to n do begin p := 0; b := b * 2; for 3 to m do if ( 4 ) then p:=1-p; gr := p; end; for i:=n 5 do write(gr); writeln; end.