有过程的进制转换器（pascal 进制转换器）

本文目录

• pascal 进制转换器
• 急求：C语言进制转换器代码完善又加分了！！！
• vb计算器进制转换程序
• 编写一进制转换器，二进制，十进制，十六进制之间的相互转换（需采用控件数组，不能使用hex,oct函0谢谢啦
• 求进制批量转换工具

pascal 进制转换器

在10进制以下的范围
先将s进制数转化为十进制数n:
从右往左每一位乘上s^(o-1) (o为从右往左的位数)然后相加
如2进制1101--》1*2^0+0*2^1+1*2^2+1*2^3=13
十进制数n转化为k进制
一位一位地取n mod k再将n:=n div k
直到 n 为 0
然后反向输出
如13转化为3进制
13 mod 3=1
13 div 3=4
4 mod 3=1
4 div 3=1
1 mod 3=1
1 div 3=0
则1101（二进制）--》13（十进制）--》111(三进制)
十进制以上就需要用英语字母来表示了，比较麻烦，但方法完全一样，只是表示不同。

急求：C语言进制转换器代码完善又加分了！！！

给
void
two_ten()
{
long
num;
int
b,TheTen=0,Total=0;
printf("\n请输入一个二进制数(只包含0或1):");
scanf("%ld",#);
while(num)
{
b=num-(int)(num/10)*10;
TheTen+=b*pow(2,Total);;
Total++;
num=(int)(num/10);
}
printf("转换为十进制：");
//打印
printf("%d",TheTen);
printf("\n");
}
void
eight_ten()
{
int
num,
i;
int
arr;
printf("\n请输入一个八进制数(只由0~7之前的数组成)：");
scanf("%o",#);
printf("转换为十进制：");
//打印
printf("%d",num);
printf("\n");
}
void
sixteen_ten()
{
int
num,
i;
int
arr;
printf("\n请输入一个十六进制数(只由0~9和A~F之前的数组成)：");
scanf("%X",#);
printf("转换为十进制：");
//打印
printf("%d",num);
printf("\n");
}

vb计算器进制转换程序

VB
二进制，八进制，十进制，十六进制转换
-
程序开发
-
ASP.NET教程
Public
Function
D_To_B(ByVal
Dec
As
Long)
As
String
Do
D_To_B
=
Dec
Mod
2
&
D_To_B
Dec
=
Dec
\
2
Loop
While
Dec
End
Function
Public
Function
B_To_D(ByVal
Bin
As
String)
As
Integer
Dim
i
As
Long
For
i
=
1
To
Len(Bin)
B_To_D
=
B_To_D
*
2
+
Val(Mid(Bin,
i,
1))
Next
i
End
Function
Public
Function
H_To_B(ByVal
Hex
As
String)
As
String
Dim
i
As
Long
Dim
B
As
String
Hex
=
UCase(Hex)
For
i
=
1
To
Len(Hex)
Select
Case
Mid(Hex,
i,
1)
Case
"0":
B
=
B
&
"0000"
Case
"1":
B
=
B
&
"0001"
Case
"2":
B
=
B
&
"0010"
Case
"3":
B
=
B
&
"0011"
Case
"4":
B
=
B
&
"0100"
Case
"5":
B
=
B
&
"0101"
Case
"6":
B
=
B
&
"0110"
Case
"7":
B
=
B
&
"0111"
Case
"8":
B
=
B
&
"1000"
Case
"9":
B
=
B
&
"1001"
Case
"A":
B
=
B
&
"1010"
Case
"B":
B
=
B
&
"1011"
Case
"C":
B
=
B
&
"1100"
Case
"D":
B
=
B
&
"1101"
Case
"E":
B
=
B
&
"1110"
Case
"F":
B
=
B
&
"1111"
End
Select
Next
i
While
Left(B,
1)
=
"0"
B
=
Right(B,
Len(B)
-
1)
Wend
H_To_B
=
B
End
Function
Public
Function
B_To_H(ByVal
Bin
As
String)
As
String
Dim
i
As
Long
Dim
H
As
String
If
Len(Bin)
Mod
4
《》
0
Then
Bin
=
String(4
-
Len(Bin)
Mod
4,
"0")
&
Bin
End
If
For
i
=
1
To
Len(Bin)
Step
4
Select
Case
Mid(Bin,
i,
4)
Case
"0000":
H
=
H
&
"0"
Case
"0001":
H
=
H
&
"1"
Case
"0010":
H
=
H
&
"2"
Case
"0011":
H
=
H
&
"3"
Case
"0100":
H
=
H
&
"4"
Case
"0101":
H
=
H
&
"5"
Case
"0110":
H
=
H
&
"6"
Case
"0111":
H
=
H
&
"7"
Case
"1000":
H
=
H
&
"8"
Case
"1001":
H
=
H
&
"9"
Case
"1010":
H
=
H
&
"A"
Case
"1011":
H
=
H
&
"B"
Case
"1100":
H
=
H
&
"C"
Case
"1101":
H
=
H
&
"D"
Case
"1110":
H
=
H
&
"E"
Case
"1111":
H
=
H
&
"F"
End
Select
Next
i
B_To_H
=
H
End
Function

编写一进制转换器，二进制，十进制，十六进制之间的相互转换（需采用控件数组，不能使用hex,oct函0谢谢啦

十六进制转十进制数算法
十六进制中，ABCDEF分别表示10 11 12 13 14 15
个位+十位×16+百位×256……
即：16的0，1，2……次方
例如5BB
11＋11×16＋5×256＝1467
十进制转换十六进制
拿 十进制数 除以十六就可以了
10转16：
100以内一点的10转16心算比较快。10转16用传统的计算方式可以了，就是大于15小于256的10进制数除以16为的值为十位的16进制数，其余数为个位的16进制数，没余数则个位为0。如61的16进制是3D，61除以16得3余13，3作十位数，13转成D为各位数。
十进制转换二进制算法
比如1994 转换成二进制如下!
1994/2=997-----------0
997/2=498------------1
498/2=249------------0
249/2=124------------1
124/2=62-------------0
62/2 =31-------------0
31/2 =15-------------1
15/2 =7--------------1
7/2 =3--------------1
3/2 =1--------------1
1/2=0 --------------1
除到零为止.书上有说:除到零.最后一位剩1
这样加起来就是1994了.
参考资料：谭浩强(师范院校教科书)
二进制转换十进制
例如:110110101
转为10进制的方法是1+0*2+1*4+0*8+1*16+1*32+0*64+1*128+1*256
就是依次往上递增2的次方

求进制批量转换工具

文本转换工具Replace Pioneer能轻易办到。
假设有以下二进制文本：
0101 1010 11110010
0101 1011 11100101
转换为以下16进制：
5 a f2
5 b e5
步骤：
1. ctrl-o 打开源文件
2. ctrl-h 替换，设置如下：
replace unit=》word
search pattern=》.*
replace with=》calc(oct(’0b’.$match),’x’)
3. 点击replace
4. OK！
如需批量处理多个文件，在第3步选中“use batch mode input filename ..." 和 “use input filename+xxx".并点击“batch",然后自己选中多个文件，点击"Replace"即可。
下载：www.mind-pioneer.com www.download.com
其他转换：
calc(oct(’0b’.$match),’d’) 2-》10
calc(oct(’0b’.$match),’o’) 2-》8
calc(oct(’0b’.$match),’x’) 2-》16
calc(oct(’0’.$match),’d’) 8-》10
calc(oct(’0’.$match),’b’) 8-》2
calc(oct(’0’.$match),’x’) 8-》16
calc(oct(’0x’.$match),’d’) 16-》10
calc(oct(’0x’.$match),’b’) 16-》2
calc(oct(’0x’.$match),’o’) 16-》8