Math problem - GameCreators Forum

Author

Message

lancol

15

Years of Service

User Offline

Joined: 19th Apr 2009

Location:

Posted: 19th Apr 2009 18:14

Link

Well, I'm having a problem with a change sorter thing I made a while ago. What it does is, it takes the input number (US dollars) and sorts it into the least amount of change possible; Quarters, dimes, nickels, pennies. I've run it a bunch of times, and every time, it leaves a remainder, and I don't know why. Be aware that it is heavy psuedo-code, (also if you know of a better way of doing it that would help)

+ Code Snippet

GOSUB Detail
Do
Input "Enter amount here >$",Money#
CLS
Quart = Money# / Quarter#
   print "total quarters = "; Quart
Money# = Money# - Quarter# * Quart
Dime = money# / Dimes#
   Print "total Dimes = "; Dime
Money# = Money# - Dimes# * Dime
nick = Money# / Nickel#
   print "Total nickels = "; nick
Money# = Money# - Nickel# * nick
penny = Money# / pennys#
   Print "total pennies = "; penny
Money# = Money# - Pennys# * penny
   Print "Total remainder = "; Money#
REM *****Strange remainder******
wait key
CLS
Loop
Detail:
Quarter# = .25
Dimes# = .1
Nickel# = .05
Pennys# = .01
Return

Back to top

Profile PM

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 19th Apr 2009 20:33

Link

It's because dark basic only handles fractions to 7 decimal places, leaving an error of anything after that.

Try this instead, it uses all whole numbers, though the input is still in dollars.

+ Code Snippet

GOSUB Detail
Do
Input "Enter amount here >$",Money#
CLS
money = money#*100
Quart = Money / Quarter
   print "total quarters = "; Quart
Money = Money - Quarter * Quart
Dime = money / Dimes
   Print "total Dimes = "; Dime
Money# = Money - Dimes * Dime
nick = Money / Nickel
   print "Total nickels = "; nick
Money# = Money - Nickel * nick
penny = Money / pennys
   Print "total pennies = "; penny
Money# = Money - Pennys * penny
   Print "Total remainder = "; Money
REM *****Strange remainder******
wait key
CLS
Loop
Detail:
Quarter = 25
Dimes = 10
Nickel = 5
Pennys = 1
Return

Back to top

Profile PM

lancol

15

Years of Service

User Offline

Joined: 19th Apr 2009

Location:

Posted: 19th Apr 2009 21:49

Link

Well, I tried it out, but it didn't work the way I wanted exactly. But I think I know what you mean there, so hopefully I can figure somthing out with it. Thanks.

Back to top

Profile PM

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 21st Apr 2009 02:12

Link

It's not absolutey necessary, but you could use the modulus command (in other languages its the operator %).
the modulus finds the remainder when you divide two numbers. so...
100 mod 25 = 0
because 25 fits into 100 evenly, and there is no remainder
101 mod 25 = 1
because 25 fits into 100 evenly, and then there is 1 left over.
124 mod 25 = 24
because 25 fits into 100 evenly, and then there are 24 left over.
125 mod 25 = 0
because 25 fits into 125 evenly!

So...
cents=1023
Heres some code

+ Code Snippet

input "Dollars: ",dollars$
cents#=val(dollars$)*100.0
cents=int(cents#)
total_dollars=int(cents*1.0/100.0)
cents=cents mod 100
total_quarters=int(cents/25.0)
cents=cents mod 25
total_dimes=int(cents/10.0)
cents=cents mod 10
total_nickels=int(cents/5.0)
cents=cents mod 5
total_pennies=cents
print str$(total_dollars)+" Dollars, "
print str$(total_quarters)+" quarters, "
print str$(total_dimes)+" dimes, "
print str$(total_nickels)+" nickels, "
print str$(total_pennies)+" pennies."
wait 10000

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Math problem