Coin Counter
| Author |
Message |
klutzedufus
|
 Posted: Sat Nov 03, 2012 9:13 am Post subject: Coin Counter |
|
|
So I made this program in turing because I wanted to see how much money I had, and writing it down was too mainstream. And so this program was born.
| Turing: |
% program coin counter
% you push a button every time you add a certain coin,
% for example "l" is $1 (loonie) and it counts how much money you have.
var pennies, nickels, dimes, quarters, loonies, toonies : int := 0
var total : real
var change : int := 1
var file : int
var input : string (1)
open : file, "coins.txt", put
close : file
open : file, "coins.txt", get
loop
exit when eof (file )
get : file, pennies
get : file, nickels
get : file, dimes
get : file, quarters
get : file, loonies
get : file, toonies
exit
end loop
close : file
fcn zerocheck (x : int) : int
var y : int := x
if y < 0 then
y + = 1
end if
result y
end zerocheck
proc save
open : file, "coins.txt", put
loop
put : file, pennies
put : file, nickels
put : file, dimes
put : file, quarters
put : file, loonies
put : file, toonies
put "SAVED"
exit
end loop
close : file
end save
View.Set ("offscreenonly")
loop
cls
if hasch then
getch (input )
case input of
label ' ' :
change * = - 1
label 'l' :
loonies + = 1 * change
loonies := zerocheck (loonies )
label 't' :
toonies + = 1 * change
toonies := zerocheck (toonies )
label 'q' :
quarters + = 1 * change
quarters := zerocheck (quarters )
label 'd' :
dimes + = 1 * change
dimes := zerocheck (dimes )
label 'n' :
nickels + = 1 * change
nickels := zerocheck (nickels )
label 'p' :
pennies + = 1 * change
pennies := zerocheck (pennies )
label (KEY_ENTER ) :
save
put "SAVED"
label (KEY_ESC) :
exit
label :
end case
end if
total := 2. 00 * toonies + 1. 00 * loonies + 0. 25 * quarters + 0. 10 * dimes + 0. 05 * nickels + 0. 01 * pennies
if change = 1 then
put "ADDING"
else
put "REMOVING"
end if
put "toonies: ", toonies, ", $", (2. 00 * toonies ) : 2 : 2
put "loonies: ", loonies, ", $", (1. 00 * loonies ) : 2 : 2
put "quarters: ", quarters, ", $", (0. 25 * quarters ) : 2 : 2
put "dimes: ", dimes, ", $", (0. 10 * dimes ) : 2 : 2
put "nickels: ", nickels, ", $", (0. 05 * nickels ) : 2 : 2
put "pennies: ", pennies, ", $", (0. 01 * pennies ) : 2 : 2
put "total: $", total : 2 : 2
View.Update
end loop
|
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
QuantumPhysics
|
| Posted: Thu Nov 08, 2012 9:09 pm Post subject: RE:Coin Counter |
|
|
| Um... Cool? |
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
