Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
double-3.cob
Sprache: Cobol
|
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.13 Sekunden
(vorverarbeitet)
]
|
|
