输入一个十进制数,输出该数的二进制数、八进制数、十六进制数

Posted 2023-04-25

输入一个十进制数,输出该数的二进制数、八进制数、十六进制数

function convert10(c:string;a:integer):real;
var
 k,i,j:integer;
 cc1:longint;
 cc2:real;
 ch:char;
 c1,c2:string;
 m:integer;
begin
    k:=length(c);
    m:=pos('.',c);
    if m=0 then begin c1:=c; c2:=''; m:=k+1; end
 else begin c1:=copy(c,1,m-1); c2:=copy(c,m+1,k-m); end;
    cc1:=0; cc2:=0;
    if c1<>'' then 
     for i:=1 to m-1 do begin
         ch:=c1[i];
         case ch of
              'A'..'F':j:=ord(ch)-ord('A')+10;
              'a'..'f':j:=ord(ch)-ord('a')+10;
              '0'..'9':j:=ord(ch)-ord('0');
         end;
         cc1:=cc1*a+j;
     end;
    if c2<>'' then
 for i:=k-m downto 1 do begin
         ch:=c2[i];
         case ch of
              'A'..'F':j:=ord(ch)-ord('A')+10;
              'a'..'f':j:=ord(ch)-ord('a')+10;
              '0'..'9':j:=ord(ch)-ord('0');
         end;
         cc2:=cc2/a+j;
     end; 
    convert10:=cc1+cc2/a;
end;

function convert_b(a:real;b:integer):string;
   var
 s,s1,s2:string;
 m1:longint;
 m2,n:real;
 i,j:integer;
 ch:string[1];
   function d2c(i:integer):char;
   begin
 case i of
 0:d2c:='0';
 1:d2c:='1';
 2:d2c:='2';
 3:d2c:='3';
 4:d2c:='4';
 5:d2c:='5';
 6:d2c:='6';
 7:d2c:='7';
 8:d2c:='8';
 9:d2c:='9';
 10:d2c:='A';
 11:d2c:='B';
 12:d2c:='C';
 13:d2c:='D';
 14:d2c:='E';
 15:d2c:='F';
 else d2c:='Z';
 end;
   end;
begin
 m1:=trunc(a);
 m2:=a-m1;
 s1:='';
 s2:='';
 while m1>0 do begin
  i:=m1 div b;
  j:=m1 mod b;
  str(j:0,ch);
  ch:=d2c(j);
  s1:=ch+s1;
  m1:=i;
 end; 
        while (m2>0)and(length(s2)<8) do begin
  n:=m2*b;
  j:=trunc(n);
  str(j:0,ch);
  ch:=d2c(j);
  s2:=s2+ch;
  m2:=n-j;
 end; 
 s:=s1+'.'+s2;
 convert_b:=s;
end;

var
    s:string; 
begin 
 s:='23.25';
 writeln(convert_b(convert10(s,10),2)); 
 writeln(convert_b(convert10(s,10),8));  
 writeln(convert_b(convert10(s,10),16)); 
end.

参考技术A 十进制到二进制是除2取余，然后将余数倒着写，就是二进制码，然后二进制到八进制是三位一个数，到十六进制是四位一个数，要想十进制到八进制可以直接除以八取余，然后倒着写余数，和二进制方法一样，类似，十进制到十六进制用十进制的数除以16取余，将余数倒着写追问

谢谢你 可能我没说清楚 这是一道程序设计题

追答

楼下程序贴出来了，就不赘述了。

N11-该数二进制表示中1的个数

题目描述

输入一个整数，输出该数二进制表示中1的个数。其中负数用补码表示。

package new_offer;
/**
 * 输入一个整数，输出该数二进制表示中1的个数。其中负数用补码表示。
 * @author Sonya
 *
 */
public class N11_NumberOf1 {

	public int NumberOf1(int n) {
		String bstring=Integer.toBinaryString(n);//
		System.out.print("转换成的二进制字符串：   ");
		System.out.println(bstring);
		
		char[]ch=bstring.toCharArray();
		System.out.print("转换成的二进制数组：   ");
		System.out.println(ch);
		int count=0;
		for(int i=0;i<ch.length;i++) {
			System.out.print("二进制数组：   "+i+"   ");
			System.out.println(Integer.valueOf(ch[i]));
			if(Integer.valueOf(ch[i])==49) count++;//valueof  的值为 字符的ASCLL值
		}
		return count;
		
	}
	/**
	 * 如果一个整数不为0，那么这个整数至少有一位是1。
	 * 如果我们把这个整数减1，那么原来处在整数最右边的1就会变为0，
	 * 原来在1后面的所有的0都会变成1(如果最右边的1后面还有0的话)。其余所有位将不会受到影响。
	 * 举个例子：一个二进制数1100，从右边数起第三位是处于最右边的一个1。
	 *减去1后，第三位变成0，它后面的两位0变成了1，而前面的1保持不变，因此得到的结果是1011.
	 *我们发现减1的结果是把最右边的一个1开始的所有位都取反了。
	 *这个时候如果我们再把原来的整数和减去1之后的结果做与运算，
	 *从原来整数最右边一个1那一位开始所有位都会变成0。
	 *如1100&1011=1000.也就是说，把一个整数减去1，再和原整数做与运算，会把该整数最右边一个1变成0.
	 *那么一个整数的二进制有多少个1，就可以进行多少次这样的操作。
	 * @param n
	 * @return
	 */
	public int NumberOf1_2(int n) {
		int count = 0;
        while(n!= 0){
            count++;
            n = n & (n - 1);
         }
        return count;
	}
	public static void main(String[] args) {
		// TODO Auto-generated method stub
		N11_NumberOf1 n11=new N11_NumberOf1();
		System.out.println(n11.NumberOf1(0));
	}

}