RosettaCodeData/Task/Infinity/XPL0/infinity.xpl0
2023-07-01 13:44:08 -04:00

8 lines
240 B
Text

int A;
real X;
[Format(0, 15); \output in scientific notation
A:= addr X; \get address of (pointer to) X
A(0):= $FFFF_FFFF; \stuff in largest possible value
A(1):= $7FEF_FFFF;
RlOut(0, X); \display it
]