Count the coins: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,632: / Line 1,632: @@
 =={{header|FutureBasic}}==
-<lang futurebasic>
+<lang futurebasic>include "NSLog.incl"
-include "ConsoleWindow"
+void local fn Doit
-dim as long penny, nickel, dime, quarter , count
+  long penny, nickel, dime, quarter, count = 0
-penny = 1 : nickel = 1
+  NSLogSetTabInterval(30)
-dime = 1  : quarter = 1
-for penny = 0 to 100
+  for penny = 0 to 100
-   for nickel = 0 to 20
+    for nickel = 0 to 20
       for dime = 0 to 10
-         for quarter = 0 to 4
+        for quarter = 0 to 4
-            if penny + nickel * 5 + dime * 10 + quarter * 25 == 100
+          if penny + nickel * 5 + dime * 10 + quarter * 25 == 100
-               print penny; " pennies "; nickel;" nickels "; dime; " dimes "; quarter; " quarters"
+            NSLog(@"%ld pennies\t%ld nickels\t%ld dimes\t%ld quarters",penny,nickel,dime,quarter)
-               count++
+            count++
-            end if
+          end if
-         next quarter
+        next quarter
       next dime
-   next nickel
+    next nickel
-next penny
+  next penny
-print count;" ways to make a dollar"
+  NSLog(@"\n%ld ways to make a dollar",count)
+end fn
+fn DoIt
-</lang>
+HandleEvents</lang>
 Output:
+<pre>0 pennies 0 nickels 0 dimes 4 quarters
-<pre>
-pennies 0 nickels 0 dimes 4 quarters
 pennies 0 nickels 5 dimes 2 quarters
 pennies 0 nickels 10 dimes 0 quarters
@@ Line 1,668: / Line 1,670: @@
 pennies 1 nickels 0 dimes 1 quarters
-ways to make a dollar
+ways to make a dollar</pre>
-</pre>
 =={{header|Go}}==