十进制实数转二进制数

program l67(input,output);

var

x,z:real;

i,j,k,y,q:integer;

a,b:array[1..500] of 0..1;

begin

for i:=1 to 500 do

begin

a[i]:=0;

b[i]:=0;

end;

read(x);

y:=trunc(x);

z:=x-y;

i:=1;

while y>0 do

 begin

 q:=y mod 2;

 a[i]:=q;

 y:=y div 2;

i:=i+1;

end;

for j:=i-1 downto 1 do

write(a[j]);

write('.');

j:=1;

while  j<6 do

begin

z:=z*2;

b[j]:=trunc(z);

z:=z-trunc(z);

write(b[j]);

j:=j+1;

end;

end.