Binary digits: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add ALGOL-M) |
||
Line 527: | Line 527: | ||
+9000 => TFFFTTFFTFTFFF |
+9000 => TFFFTTFFTFTFFF |
||
</pre> |
</pre> |
||
=={{header|ALGOL-M}}== |
|||
<lang algolm>begin |
|||
procedure writebin(n); |
|||
integer n; |
|||
begin |
|||
procedure inner(x); |
|||
integer x; |
|||
begin |
|||
if x>1 then inner(x/2); |
|||
writeon(if x-x/2*2=0 then "0" else "1"); |
|||
end; |
|||
write(""); % start new line % |
|||
inner(n); |
|||
end; |
|||
writebin(5); |
|||
writebin(50); |
|||
writebin(9000); |
|||
end</lang> |
|||
{{out}} |
|||
<pre>101 |
|||
110010 |
|||
10001100101000</pre> |
|||
=={{header|ALGOL W}}== |
=={{header|ALGOL W}}== |