看下面的代码。实数的转化我就不会了。哪位大虾可以帮忙?
function octtobin(i:integer):string; //将10进制数转化为二进制数
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;
end;
function BintoOct(k:string):integer; //将二进制转化为10进制数
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;
end;