二進(jìn)制字符與十進(jìn)制互轉(zhuǎn) (2001年5月25日) 

網(wǎng)友更新  分類:算法   作者:閻磊  推薦:yanlei   閱讀次數(shù):173  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
二進(jìn)制字符轉(zhuǎn)十進(jìn)制
Function binToDec(Value :string) : integer;
VAR
str : String;
Int : Integer;
i : integer;
BEGIN
Str := UpperCase(Value);
Int := 0;
FOR i := 1 TO Length(str) DO
Int := Int * 2+ ORD(str[i]) - 48;
Result := IntToStr(Int);
end;
十進(jìn)制轉(zhuǎn)二進(jìn)制
function mod_num(n1,n2:integer):integer;//取余數(shù)
begin
result:=n1-n1 div n2*n2
end;
function reverse(s:String):String;//取反串
Var
i,num:Integer;
st:String;
begin
num:=Length(s);
st:='';
For i:=num DownTo 1 do
Begin
st:=st+s[i];
End;
Result:=st;

end;
Function DecTobin(Value :Integer) : string;//十進(jìn)制轉(zhuǎn)化二進(jìn)制
Var
ST:String;
N:Integer;
Begin
ST:='';
n:=value;
While n>=2 Do
Begin
st:=st+IntToStr(mod_num(n,2));
n:=n div 2;
End;
st:=st+IntToStr(n);
Result:=reverse(st);

End;
//E_Mail:yanleigis@21.com,參考Srw