Two's complement: Difference between revisions
Added Algol W
(Added PL/M) |
(Added Algol W) |
||
Line 56:
print( ( -a, " ", 1 + ABS NOT BIN a, newline ) )
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}}
<pre>
| |||