DELHI实现十进制和二进制互转
2008-02-22 00:57
204 查看
DELPHI如何实现二进制和十进制的互转
工作中用到,网上不好搜,干脆自己写个,欢迎扔砖
十进制转二进制
function inttobin(i:integer):string;
var b:string;
begin
b:='';
while i>=1 do
begin
b:=inttostr(i mod 2)+b;
i:=round((i-(i mod 2))/2);
end;
result:=b;
end;
二进制转十进制
function bintoint(s:string):integer;
var i,j,r:integer;
p:string;
begin
r:=0;
j:=1;
for i:=length(s)-1 downto 0 do
begin
p:=copy(s,j,1);
r:=r+round(intpower(2,i)*strtoint(copy(s,j,1)));
j:=j+1;
end;
result:=r;
end;
工作中用到,网上不好搜,干脆自己写个,欢迎扔砖
十进制转二进制
function inttobin(i:integer):string;
var b:string;
begin
b:='';
while i>=1 do
begin
b:=inttostr(i mod 2)+b;
i:=round((i-(i mod 2))/2);
end;
result:=b;
end;
二进制转十进制
function bintoint(s:string):integer;
var i,j,r:integer;
p:string;
begin
r:=0;
j:=1;
for i:=length(s)-1 downto 0 do
begin
p:=copy(s,j,1);
r:=r+round(intpower(2,i)*strtoint(copy(s,j,1)));
j:=j+1;
end;
result:=r;
end;
相关文章推荐
- 【栈】十进制转换成二进制的过程及算法实现
- 原码反码补码详解与十进制转换为二进制的各种实现
- 递归2: 十进制转换成二进制的递归与迭代实现
- 数据结构5:利用栈实现二进制到十进制的转换
- 一个十进制的正整数在二进制表示中的数字个数(C实现)
- 从键盘输入某个十进制小数或整数,转换成对应的二进制小数并输出。 (查询十进制小数转换成二进制小数的算法,使用循环来实现。 最多保留小数位后7位数字即可)算法
- 用C#代码实现二进制与十进制的互相转换
- 用栈实现十进制到二进制的转换
- 汇编->十进制到二进制书转换的程序实现
- 用位运算实现十进制转换为二进制
- 用代码实现C函数功能——十进制转换为二进制
- C语言实现二进制与十进制转换
- 位运算实现十进制转换为二进制
- 实验3:栈和队列的基本操作实现及其应用——十进制转换为二进制
- 利用CONNECT BY实现二进制到十进制的转换
- 关于使用查表法实现十进制到二进制,八进制,十六进制的转换
- C++实现将十进制的ip地址转换为二进制ip地址
- 使用bitset实现二进制和十进制的相互转换
- 实现二进制与十进制之间的相互转换
- 十进制转换为二进制 (三种方法实现)