fork download
copy 
  1. var a,b,c,d: double;
  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(8, c);
  21.   writebits(8, d);
  22.   writeln(a+b=d, ' ', a+b=a+b);
  23. end.
Success #stdin #stdout 0.01s 208KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0010110011001100110011001100110011001100110011001100101111111100
1100110011001100110011001100110011001100110011001100101111111100
FALSE TRUE
https://ideone.com/BAPoe
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!