16进制整数格式化形式?
输入一个10进制的数n,把它转换成一个m进制的数(m自定义) program data; var n,m:integer; procedure turndata(n,a:integer)
; var x:array[1..20] of integer; i,j,k,y:integer; begin writeln(n,'trun into',a,':'); if n<
0 then write('-'); j:=abs(n); k:=0; repeat k:=k+1; i:=j mod a; j:=j div a; x[k]:=i; until j<=0; for y:= k downto 1 do if x[y]<10 then write(x[y]
) else write(chr(55+x[y])); writeln; writeln; end; {------------------------main----------------------} begin writeln('input n(-32367 to 32767)'); readln(n); writeln('input m, let n get m'); readln(m)
; turndata(n,m); write(n,m); writeln('pay attention!'); turndata(n,m); write(n,m); readln; end.
Copyright © 广州京杭网络科技有限公司 2005-2024 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有