高校问答中国职场性别歧视:如何在Delphi中实现2进制与10进制之间的转换?
来源：百度文库 编辑：高校问答 时间：2024/04/27 16:40:20
请教高手指点~~!
我给个类Pascal的伪代码：
其中,b代表2进制数（存在一个数组中），d代表10进制数（longint）
2 to 10:
d:=0;
for i:=1 to 2进制数的位数 do
begin
d:=d+b[i]*(2^(i-1));
end;
10 to 2:
清空b数组;
2进制数位数x:=0;
while (d>0) do
begin
inc(x);
b[x]:=d mod 2;
d := d div 2;
end;