Binary coded decimal: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Automated syntax highlighting fixup (second round - minor fixes)) |
|||
Line 463: | Line 463: | ||
=={{header|Julia}}== |
=={{header|Julia}}== |
||
Handles negative and floating point numbers (but avoid BigFloats due to very long decimal places from binary to decimal conversion). |
Handles negative and floating point numbers (but avoid BigFloats due to very long decimal places from binary to decimal conversion). |
||
<syntaxhighlight lang=" |
<syntaxhighlight lang="julia">const nibs = [0b0, 0b1, 0b10, 0b11, 0b100, 0b101, 0b110, 0b111, 0b1000, 0b1001] |
||
""" |
""" |
||
Line 573: | Line 573: | ||
BCD 99 (UInt8[0x99]) + BCD 1 ((UInt8[0x01], 1)[1]) = BCD 100 ((UInt8[0x01, 0x00], 1)) |
BCD 99 (UInt8[0x99]) + BCD 1 ((UInt8[0x01], 1)[1]) = BCD 100 ((UInt8[0x01, 0x00], 1)) |
||
</pre> |
</pre> |
||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
==={{header|Free Pascal}}=== |
==={{header|Free Pascal}}=== |