identification division.
program-id. dou.
author. "Patrick Cousot".
date-written. 10.3.2006.
date-compiled.
data division.
working-storage section.
01 pic X.
88 xfalse value 0.
88 xtrue value 1.
77 x pic 9(8)V4 comp-5.
77 y pic 9(4)V2 comp-5.
77 z pic 9(4)V2 comp-5.
77 r pic 9(4)V2 comp-5.
procedure division.
* x = ldexp(1.,50)+ldexp(1.,26)
compute x = 112581234227.0e2
compute y = x + 1e-12
compute z = x - 1
compute r = y - z
* ./a.out
* 134217728.000000
display r.
end-program dou.
¤ Dauer der Verarbeitung: 0.1 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|