十进位,八进制,十六进位,二进位相互转换大全 ' 用途:将十进位转化为二进位 ' 输入:Dec(十进位数字) ' 输入资料类型:Long ' 输出:DEC_to_BIN(二进位数字) ' 输出资料类型:String ' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1) Public Function DEC_to_BIN(Dec As Long) As String DEC_to_BIN = "" Do While De
writeln(max); end. 7. 线段树 type node=record p,r,m:longint; //[p,r) m = (p+r) div 2 k:longint; left,right:longint; end; var a:array[0..1000000] of node; data:array[0..1000000] of longint; i,j,n,m,tot,x,y,p,c:longint; function min(a,b:longint):longint;