2011-2012集训队第一次集中.pptVIP

2011-2012集训队第一次集中学习 进制转换 repeat i:＝i＋１； ｙ mod ｘ 的余数──→ a[i]） ｙ: ｙ div ｘ Until ｙ＝０ 要考虑的问题，如果是10以上的进制，余数有可能是2位数 program ex; var n,nx:real; nz:integer; procedure changez nz:integer ; var x:integer; begin x: nz mod 2; nz: nz div 2; if nz 0 then changez nz ; write x ; end; procedure changex nx:real ; var i,t:integer; begin for i: 1 to 5 do begin nx: nx*2; t: trunc nx ; write t ; nx: nx-t; end; end; begin readln n ; nz: trunc n ; nx: n-nz; changez nz ; write . ; changex nx ; end. program zh_10_2; const w 5; var st,st1,st2:string; a,b,c:array[0..1000] of integer; p,len,len1,len2,i: