二进制与十进制的转换，请帮忙！全文检索无法使用。(100分)

shamohu · 2004-01-30

如何进行二进制与十进制间的相互转换？有无专用的函数？比如将-23.569812或8.11转换成二进制，反之亦然。谢谢！ (全文检索无法使用，总出错)

不知道_0909 · 2004-01-30

修改一下 function octtobin(i:integer):string;   {十进制转换为二进制函数} var   j:integer;   s:string; begin   j:=i;   s:=' ';     while j>=2 do       begin        if (j mod 2)=1 then           begin             s:='1'+s;             j:=j div 2;            end          else            begin               s:='0'+s;               j:=j div 2;            end;         end;    s:=chr(ord('0')+j) + s;   //octtobin := s;//删除此句    octtobin := Trim(s);//修改支出 end; function bintooct(k:string):integer;       {二进制转换为十进制函数} var   i,j,t:integer;   s:char; begin      t:=1;      j:=length(k);      j:=0+(ord(k[j])-ord('0'))*t;      for i:=length(k)-1 downto 1 do begin             s:=k;             t:=t*2;    j:=j + ((ord(s)-ord('0'))*t); end;         bintooct:=j;      k := Trim(k);//删除此句     end;

Supermay · 2004-01-30

delphi中有提供专用的函数,我用过好像在IdGlobal.pas中

shamohu · 2004-01-30

TO "不知道_0909": 你提供的函数只能在整数与二进制的转换，而我所需要的是实数(包括正负)与二进制的转换。 TO ”Supermay“：我用的是Delphi 5,没有发现有IdGlobal.pas文件。 谢谢二位！望继续帮忙！

不知道_0909 · 2004-01-30

这是我改写的带小数位的，正负的没有写，你改一下就可以了 function octtobin1(i:Extended):string;   {十进制转换为二进制函数} var  j,k: integer;  m1,m2: Extended;  s1,s2:string; begin   j := trunc(i);   s1:=' ';   s2:=' ';   while j>=2 do   begin     if (j mod 2) =1 then     begin       s1:='1'+s1;       j:=j div 2;     end     else     begin        s1:='0'+s1;        j:=j div 2;     end;   end;   s1:=chr(ord('0')+j) + s1;   octtobin1 := Trim(s1);   if trunc(i)<> i then   begin     m1:= i-j;     k := length(floattostr(m1))-2;     m2 := m1 * power(10,k);     k := trunc(m2);     while k>=2 do     begin       if (k mod 2) =1 then       begin         s2:='1'+s2;         k:=k div 2;       end       else       begin          s2:='0'+s2;          k:=k div 2;       end;     end;     s2:=chr(ord('0')+k) + s2;     octtobin1 := Trim(s1 + '.' + s2);   end; end;

不知道_0909 · 2004-01-30

这次应该能满足你的需要 function bintooct(k:string):string;       {二进制转换为十进制函数} var  i,j,t:integer;  s:char;  s1,s2,s3: string; begin   if leftstr(trim(k),1) = '0' then     s1 := ''   else     s1 := '-';   k := rightstr(trim(k),length(k)-1);   if pos('.',k) = 0 then   begin     t:=1;     j:=length(k);     j:=0+(ord(k[j])-ord('0'))*t;     for i:=length(k)-1 downto 1 do     begin       s:=k;       t:=t*2;       j:=j + ((ord(s)-ord('0'))*t);     end;     bintooct:=s1 +inttostr(j);   end   else   begin//带有小数位的     t:=1;     s2 := leftstr(k, pos('.',k)-1);     j:=length(s2);     j:=0+(ord(s2[j])-ord('0'))*t;     for i:=length(s2)-1 downto 1 do     begin       s:=s2;       t:=t*2;       j:=j + ((ord(s)-ord('0'))*t);     end;     s3 := inttostr(j);     t:=1;     s2 := trim(copy(k, pos('.',k)+1,length(k)));     j:=length(s2);     j:=0+(ord(s2[j])-ord('0'))*t;     for i:=length(s2)-1 downto 1 do     begin       s:=s2;       t:=t*2;       j:=j + ((ord(s)-ord('0'))*t);     end;     bintooct:=s1 +s3+'.'+inttostr(j);   end; end; function octtobin(i:Extended):string;   {十进制转换为二进制函数} var  j,k: integer;  m1,m2: Extended;  s1,s2, s3, s4:string; begin   if i >= 0 then     s3 :=  '0'   else   begin     i := -i ;     s3 := '1';   end;   j := trunc(i);   s1:=' ';   s2:=' ';   while j>=2 do   begin     if (j mod 2) =1 then     begin       s1:='1'+s1;       j:=j div 2;     end     else     begin        s1:='0'+s1;        j:=j div 2;     end;   end;   s1:=chr(ord('0')+j) + s1;   s4 := Trim(s3+s1);   if trunc(i)<> i then   begin     s2 := '';     m1:= i-trunc(i);     k := length(floattostr(m1))-2;     m2 := m1 * power(10,k);     k := trunc(m2);     while k>=2 do     begin       if (k mod 2) =1 then       begin         s2:='1'+s2;         k:=k div 2;       end       else       begin          s2:='0'+s2;          k:=k div 2;       end;     end;     s2:=chr(ord('0')+k) + s2;     s4 := Trim(s4 + '.' + s2);   end;   octtobin := s4; end;

shamohu · 2004-02-02

谢谢“不知道_0909”！

ll2004 · 2004-02-02

二进制转换为十进制函数 11001100.11001 1*2^7 + 1*2^6 + 0*2^5 + 0*2^4 + 1*2^3 + 1*2^2 + 0*2^1 + 0*2^0 + 1*2^(-1) + 1*2^(-2) + 0*2^(-3) + 0*2^(-4) + 1*2^(-5)

fei_l · 2004-02-02

l12004的方法更易理解啊 将二进制的串一个一个取出来再乘以它的权就可以了

二进制与十进制的转换，请帮忙！全文检索无法使用。(100分)

shamohu

Unregistered / Unconfirmed

不知道_0909

Unregistered / Unconfirmed

Supermay

Unregistered / Unconfirmed

shamohu

Unregistered / Unconfirmed

不知道_0909

Unregistered / Unconfirmed

不知道_0909

Unregistered / Unconfirmed

shamohu

Unregistered / Unconfirmed

ll2004

Unregistered / Unconfirmed

fei_l

Unregistered / Unconfirmed

Similar threads