信息学奥赛辅导4.pptVIP

信息学奥赛辅导——初级  湖中 吴 【例5-3】 将一个十进制整数x转化为二进制。(0x10000) 分析：十进制整数转化为二进制，采用除二取余法。有数组b来存放二进制数，把所得的余数依次存入b[1]、b[2]、…、b[n]，最后按b[n]、…、b[2]、b[1]的顺序输出这些余数，得到所求的二进制数。 参考程序： program ex5_3(input,output); Var b:array[1..30] of 0..1; x,k,i:integer; begin readln(x); for i:=1 to 30 do b[i]:=0; k:=1; while x0 do begin b[k]:=x mod 2; x:=x div 2; k:=K+1; end; for i:=k-1 downto 1 do write(b[i]); writeln; end. 21 1 0 1 0 1 参考程序： program ex5_3(input,output); Var b:array[1..10] of 0..7; x,k,i:integer; begin readln(x); for i:=1 to 10 do b[i]:=0; k:=1; whil