Currency: Difference between revisions
m
no edit summary
(BBC BASIC entry.) |
mNo edit summary |
||
| (4 intermediate revisions by 2 users not shown) | |||
Line 2,259:
{{out}}
net=22000000000000005.72, tax=1683000000000000.44, total=23683000000000006.16
=={{header|Unicon}}==
Solution takes advantage of Unicon's FxPt class as well as Unicon's operator overloading extension.
<syntaxhighlight lang="unicon">import math
procedure main()
n_burgers := 4000000000000000
n_shakes := 2
price := FxPt(5.50) * n_burgers + FxPt(2.86) * n_shakes
tax := (price * FxPt(7.65/100)).round(2)
total := price + tax
write(left("Price", 10), "$", right(price.toString(),21))
write(left("Tax", 10), "$", right(tax.toString(),21))
write(left("Total", 10), "$", right(total.toString(),21))
end</syntaxhighlight>{{out}}
<pre>Price $ 22000000000000005.72
Tax $ 1683000000000000.44
Total $ 23683000000000006.16</pre>
=={{header|VBA}}==
Line 2,294 ⟶ 2,314:
=={{header|Wren}}==
{{libheader|Wren-big}}
<syntaxhighlight lang="
var hamburgers = BigRat.new("4000000000000000")
| |||