Formatted numeric output: Difference between revisions
Content added Content deleted
(Added XPL0 example) |
|||
Line 2,045: | Line 2,045: | ||
00007.125 |
00007.125 |
||
</lang> |
</lang> |
||
=={{header|XPL0}}== |
|||
<lang XPL0>int C; |
|||
[Format(5, 3); \5 places before decimal point and 3 after |
|||
RlOut(8, 7.125); \output real number to internal buffer |
|||
loop [C:= ChIn(8); \read character from internal buffer |
|||
if C = ^ then C:= ^0; \change leading space characters to zeros |
|||
if C = $1A then quit; \exit loop on end-of-file (EOF = end of chars) |
|||
ChOut(0, C); \display digit character on terminal |
|||
]; |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
00007.125 |
|||
</pre> |
|||
=={{header|XSLT}}== |
=={{header|XSLT}}== |