Negative base numbers: Difference between revisions
Content added Content deleted
No edit summary |
(changed driver output for decoding) |
||
| Line 293: | Line 293: | ||
P := Decode_Negative_Base (ns, B); |
P := Decode_Negative_Base (ns, B); |
||
Put ( |
Put (To_String(ns)); |
||
Put (" decoded in base "); |
Put (" decoded in base "); |
||
Put (Item => B, Width => 3); |
Put (Item => B, Width => 3); |
||
| Line 310: | Line 310: | ||
<pre> |
<pre> |
||
10 encoded in base -2 = 11110 |
10 encoded in base -2 = 11110 |
||
11110 decoded in base -2 = 10 |
|||
146 encoded in base -3 = 21102 |
146 encoded in base -3 = 21102 |
||
21102 decoded in base -3 = 146 |
|||
15 encoded in base -10 = 195 |
15 encoded in base -10 = 195 |
||
195 decoded in base -10 = 15 |
|||
36058 encoded in base -62 = Ada |
36058 encoded in base -62 = Ada |
||
Ada decoded in base -62 = 36058</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||