1 REM Cash to Change 10 LET a = 3.47 20 PRINT "$"; a; " in change is:" 30 PRINT 40 LET a = a * 100 50 IF a < 25 THEN 80 60 LET q = INT(a / 25) 70 LET a = a - (25 * q) 80 REM endif 90 IF a < 10 THEN 120 100 LET d = INT(a / 10) 110 LET a = a - (10 * d) 120 REM endif 130 IF a < 5 THEN 160 140 LET n = INT(a / 5) 150 LET a = a - (5 * n) 160 REM endif 170 IF a < 1 THEN 190 180 LET p = INT(a / 1) 190 REM endif 200 IF q = 0 THEN 220 210 PRINT q; " quarters" 220 REM endif 230 IF d = 0 THEN 250 240 PRINT d; " dimes" 250 REM endif 260 IF n = 0 THEN 280 270 PRINT n; " nickels" 280 REM endif 290 IF p = O THEN 310 300 PRINT p; " pennies" 310 REM endif
Return to Example Index