Non-decimal radices/Input: Difference between revisions
Added XPL0
(Added BBC BASIC) |
(Added XPL0) |
||
Line 923:
% scanbase $dec1 8
bad digit 9</pre>
=={{header|XPL0}}==
<lang XPL0>include c:\cxpl\codes;
int N; real R;
[Text(8, "123_456");
N:= IntIn(8);
IntOut(0, N); CrLf(0);
Text(8, "ABcd12");
N:= HexIn(8);
HexOut(0, N); CrLf(0);
Text(8, "-3.14159e3");
R:= RlIn(8);
RlOut(0, R); CrLf(0);
]</lang>
Output:
<pre>
123456
00ABCD12
-3141.59000
</pre>
[[Category:Radices]]
| |||