home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / pascal / 4535 < prev    next >
Encoding:
Text File  |  1992-07-23  |  976 b   |  40 lines

  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!utcsri!torn!news.ccs.queensu.ca!dmurdoch
  3. From: dmurdoch@QueensU.CA (Duncan Murdoch)
  4. Subject: TP 6.0 bug in Comp formatting
  5. Message-ID: <BrvJ8L.KDB@knot.ccs.queensu.ca>
  6. Sender: news@knot.ccs.queensu.ca (Netnews control)
  7. Organization: Queen's University, Kingston, Canada
  8. Date: Fri, 24 Jul 1992 03:33:57 GMT
  9. Lines: 29
  10.  
  11. Here's a bug report I've sent to Borland:
  12.  
  13. The program below illustrates a bug in the formatting of the Comp type:
  14. even though the 19th digit is stored accurately, it's always printed as a 0.
  15.  
  16.  {$N+}
  17.   var
  18.     c,d : comp;
  19.     i : integer;
  20.   begin
  21.     c := 1000000000000000000.0;
  22.     writeln('c=',c:0:0);
  23.     for i:=0 to 10 do
  24.     begin
  25.       d := c+i;
  26.       writeln('d=',d:0:0,' d-c=',d-c:0:0);
  27.     end;
  28.   end.
  29.  
  30.    This prints:
  31.  
  32.     c=1000000000000000000
  33.     d=1000000000000000000 d-c=0
  34.     d=1000000000000000000 d-c=1
  35.     d=1000000000000000000 d-c=2
  36.     ... and so on.
  37.  
  38. Duncan Murdoch
  39. dmurdoch@mast.queensu.ca
  40.