Count the coins: Difference between revisions
no edit summary
(Added F# version) |
No edit summary |
||
Line 967:
100 5 count-change .</lang>
=={{header|FutureBasic}}==
<lang futurebasic>
include "ConsoleWindow"
dim as long penny, nickel, dime, quarter , count
penny = 1 : nickel = 1
dime = 1 : quarter = 1
for penny = 0 to 100
for nickel = 0 to 20
for dime = 0 to 10
for quarter = 0 to 4
if penny + nickel * 5 + dime * 10 + quarter * 25 == 100
print penny; " pennies "; nickel;" nickels "; dime; " dimes "; quarter; " quarters"
count++
end if
next quarter
next dime
next nickel
next penny
print count;" ways to make a dollar"
</lang>
Output:
<pre>
0 pennies 0 nickels 0 dimes 4 quarters
0 pennies 0 nickels 5 dimes 2 quarters
0 pennies 0 nickels 10 dimes 0 quarters
0 pennies 1 nickels 2 dimes 3 quarters
......
65 pennies 5 nickels 1 dimes 0 quarters
65 pennies 7 nickels 0 dimes 0 quarters
70 pennies 0 nickels 3 dimes 0 quarters
70 pennies 1 nickels 0 dimes 1 quarters
242 ways to make a dollar
</pre>
=={{header|Go}}==
|