Two's complement: Difference between revisions
Content added Content deleted
(Added PL/M) |
(Added Algol W) |
||
Line 56: | Line 56: | ||
print( ( -a, " ", 1 + ABS NOT BIN a, newline ) ) |
print( ( -a, " ", 1 + ABS NOT BIN a, newline ) ) |
||
END</lang> |
END</lang> |
||
{{out}} |
|||
<pre> |
|||
-3 -3 |
|||
</pre> |
|||
=={{header|ALGOL W}}== |
|||
{{Trans|ALGOL 68}} |
|||
<lang algolw>begin |
|||
integer a; |
|||
a := 3; |
|||
write( i_w := 1, s_w := 1, -a, 1 + number( not bitstring( a ) ) ) |
|||
end.</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |