fork download
copy 
  1. var a,b,c,d: single;
  2.  
  3. procedure writebits (cnt : integer; var x);
  4. var
  5.   b: byte;
  6.   i,j: integer;
  7. begin
  8.   for i := 0 to cnt-1 do begin
  9.     b := byte((PChar(@x)+i)^);
  10.     for j := 0 to 7 do write (b shr j and 1);
  11.   end;
  12.   writeln;
  13. end;
  14.  
  15. begin
  16.   a := 0.1;
  17.   b := 0.2;
  18.   c := a+b;
  19.   d := 0.3;
  20.   writebits(4, c);
  21.   writebits(4, d);
  22. end.
Success #stdin #stdout 0.01s 208KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
01011001100110011001100101111100
01011001100110011001100101111100
https://ideone.com/w6PRN
language:
Pascal (fpc 3.0.4)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!