Binary digits: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 2,967: | Line 2,967: | ||
</pre > |
</pre > |
||
=={{header|MAD}}== |
|||
MAD has basically no support for runtime generation of strings. |
|||
Therefore, this program works by calculating an integer whose decimal representation |
|||
matches the binary representation of the input, e.g. <code>BINARY.(5)</code> is <code>101</code>. |
|||
<lang MAD> NORMAL MODE IS INTEGER |
|||
INTERNAL FUNCTION(NUM) |
|||
ENTRY TO BINARY. |
|||
BTEMP = NUM |
|||
BRSLT = 0 |
|||
BDIGIT = 1 |
|||
BIT WHENEVER BTEMP.NE.0 |
|||
BRSLT = BRSLT + BDIGIT * (BTEMP-BTEMP/2*2) |
|||
BTEMP = BTEMP/2 |
|||
BDIGIT = BDIGIT * 10 |
|||
TRANSFER TO BIT |
|||
END OF CONDITIONAL |
|||
FUNCTION RETURN BRSLT |
|||
END OF FUNCTION |
|||
THROUGH SHOW, FOR VALUES OF N = 5, 50, 9000 |
|||
SHOW PRINT FORMAT FMT, N, BINARY.(N) |
|||
VECTOR VALUES FMT = $I4,2H: ,I16*$ |
|||
END OF PROGRAM </lang> |
|||
{{out}} |
|||
<pre> 5: 101 |
|||
50: 110010 |
|||
9000: 10001100101000</pre> |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |