Currency: Difference between revisions
→{{header|Bracmat}}: Added Bracmat example
(→{{header|Bracmat}}: Added Bracmat example) |
|||
Line 244:
total 23683000000000006.16
</pre>
=={{header|Bracmat}}==
The amounts <code>before-tax</code>, <code>tax</code>, <code>after-tax</code> are computed as rounded amounts in dollar cents.
<lang bracmat> div$((4000000000000000*550+2*286)+1/2,1):?before-tax
& div$(!before-tax*765/10000+1/2,1):?tax
& !before-tax+!tax:?after-tax
& ( fix
= cents dollars
. mod$(!arg.100):?cents
& ( !cents:<10&0 !cents:?cents
|
)
& div$(!arg.100):?dollars
& str$(!dollars "." !cents)
)
& str
$ ( "before-tax "
fix$!before-tax
"\ntax "
fix$!tax
\n
"after-tax "
fix$!after-tax
\n
)</lang>
''Output''
<pre>before-tax 22000000000000005.72
tax 1683000000000000.44
after-tax 23683000000000006.16</pre>
=={{header|C}}==
| |||