Find minimum number of coins that make a given value: Difference between revisions
Find minimum number of coins that make a given value (view source)
Revision as of 21:02, 25 November 2021
, 2 years agoFind minimum number of coins that make a given value en Yabasic
(Find minimum number of coins that make a given value en BASIC256) |
(Find minimum number of coins that make a given value en Yabasic) |
||
Line 1,121:
A total of 11 coins in all.
</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang yabasic>amount = 988
sumCoins = 0
dim coins(7)
coins(0) = 1
coins(1) = 2
coins(2) = 5
coins(3) = 10
coins(4) = 20
coins(5) = 50
coins(6) = 100
coins(7) = 200
print "Make a value of ", amount, " using the coins 1, 2, 5, 10, 20, 50, 100 and 200:"
for n = arraysize(coins(),1) to 0 step -1
tmp = floor(amount/coins(n))
if tmp >= 0 then
print tmp, " * ", coins(n)
sumCoins = sumCoins + tmp
amount = mod(amount, coins(n))
end if
next n
end</lang>
{{out}}
<pre>
Igual que la entrada de FreeBASIC.
</pre>
| |||