紧急求助!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(100分)

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #1

如何把十进制数据转换成二进制浮点数
请尽量能给个完整的思路
有源程序最好
欢迎大家讨论
分不够可以在加

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #2

function inttobin(value:longint,size:integer):string;
var
i:integer;
begin
for i:=size do
wnto 0 do

begin

if value and (1 shl i )<>0 then

begin

result:=result+'1';
end else
begin
result:=result+'0';
end;
end;

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #3

楼上的兄弟给出的代码只可以简单的把十进制数转换成二进制数
我要的是把十进制数转换成二进制浮点数的形式
形式
阶符＋阶码＋尾符＋尾数
(1)+(8)+(1)+(31)

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #4

它应该自动以这种格式存放，只有在C和pascal 格式不同需要转化时才用到。
看看c51之类单片机的书

 

Z

zhumoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #5

关注

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #6

可是,我想安这个形式显示在几个edit中,我如何把他分解开

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #7

function PascalReal(Var I8096Real):real;
var
ar6 : array[0..5] of byte;
ar4 : array[0..3] of byte;
real6 : real;
begin
move(I8096Real,ar4,4);
fillchar(ar6,sizeof(Real),0);
move(ar4[0],ar6[0],1);
move(ar4[1],ar6[3],3);
move(ar6,real6,6);
try
if (real6<0) or (real6>=10e10) then
begin
PascalReal:=0;
RealError:=-1;
end else
PascalReal:=real6;
except
PascalReal:=0;
RealError:=-1;
end;
end;

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #8

接受答案了.