Need help with a food program in turing

[void]

long live pascal

[void]

i think this is what your looking for mr.im too lazy to try...

code:

var names : array 1 .. 15 of string := init ("Hamburger", "Cheese Burger",     "Chicken Burger", "Submarine", "Salad", "2 Cookies", "Fries", "Pasta",     "Mashed Potatoes", "Baked Potatoes", "Pop", "Chocolate Milk",     "Gatorade/ Powerade", "Water", "Slush Puppy") var prices : array 1 .. 15 of real := init (3, 3.4, 2.4, 5, 3, 1, 2, 2, 1.5,     1, 1, 1.5, 2, 1, 1.35) var choice : array 1 .. 3 of int var total : real := 0 var bill : real var change : real var t, l, q, d, n, p : real := 0 put "Main Dishes         Prices" for a : 1 .. 5     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for get choice (1) for a : 6 .. 9     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for put "10-", names (10) : 20, prices (10) : 0 : 2 get choice (2) for a : 11 .. 15     put a, "-", names (a) : 20, prices (a) : 0 : 2 end for get choice (3) total := prices (choice (1)) + prices (choice (2)) + prices (choice (3)) for a : 1 .. 3     put names (choice (a)) : 23, prices (choice (a)) : 0 : 2 end for put "--------------------------" put "TOTAL:" : 22, total : 0 : 2 put "Enter Bill Being Used:$" .. get bill if bill = 100 or bill = 50 or bill = 20 or bill = 10 or bill = 5 then elsif bill not= 100 or bill not= 50 or bill not= 20 or bill not= 10 or         bill not= 5 then     put "YOU IDIOT THAT IS NOT A BILL"     put "TERMINATING PROGRAM DUE TO STUPIDITY" end if change := bill - total cls t := change div 2 change := change - (t * 2) l := change div 1 change := change - (l * 1) q := change div .25 change := change - (q * 0.25) d := change div .1 change := change - (d * 0.1) n := change div .05 change := change - (n * 0.05) p := change div .01 change := change - (p * 0.01) put "Toonies :", t put "Loonies :", l put "Quarters:", q put "Dimes   :", d put "Nickels :", n put "Pennies :", p

if that doesnt work....your loss not mine

[Miko99]

awwww u hurt my feelings....for a second...until i realise its true. and by the way, i dont like your driving so i plan on staying off my lawn! LoL

[void]

dont try to get on my good side...you ruined our perfectly fine pointless topic...

[Miko99]

How do i get this to be continuous. The user will select there choices as much as they want and the price will continue to ad up.

My code so far thanks to void:

code:

var names : array 1 .. 17 of string := init ("Pizza", "Crispy Fries", "Hamburger", "Cheese Burger",     "Chicken Burger", "Submarine", "Salad", "2 Cookies", "Fries", "Pasta",     "Mashed Potatoes", "Baked Potatoes", "Pop", "Chocolate Milk",     "Gatorade/ Powerade", "Water", "Slush Puppy") var prices : array 1 .. 17 of real := init (2.5, 4, 3, 3.4, 2.4, 5, 3, 1, 2, 2, 1.5,     1, 1, 1.5, 2, 1, 1.35) var choice : array 1 .. 3 of int var total : real := 0 var bill : real var change : real var f, t, l, q, d, n, p : real := 0 var choice5:string var count:int:=0 put "Main Dishes         Prices" loop count:=count+1 for a : 1 .. 7     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for get choice (1) for a : 8 .. 12     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for put "10-", names (10) : 20, prices (10) : 0 : 2 get choice (2) for a : 13 .. 17     put a, "-", names (a) : 20, prices (a) : 0 : 2 end for get choice (3) total := prices (choice (1)) + prices (choice (2)) + prices (choice (3)) put ("Would you like select 3 more things") get choice5 exit when (choice5="no") end loop for a : 1 .. 3     put names (choice (a)) : 23, prices (choice (a)) : 0 : 2 end for put "--------------------------" put "TOTAL:" : 22, total : 0 : 2 put "Enter Bill Being Used:$" .. get bill if bill not= 100 or bill not= 50 or bill not= 20 or bill not= 10 or         bill not= 5 then     put "That is not a valid Bill"   elsif bill = 100 or bill = 50 or bill = 20 or bill = 10 or bill = 5 then end if change := bill - total cls put "Your change is: $", change, " and you will get: " f := change div 5 change := change - (f * 5) t := change div 2 change := change - (t * 2) l := change div 1 change := change - (l * 1) q := change div .25 change := change - (q * 0.25) d := change div .1 change := change - (d * 0.1) n := change div .05 change := change - (n * 0.05) p := change div .01 change := change - (p * 0.01) put "Fives :", f put "Toonies :", t put "Loonies :", l put "Quarters:", q put "Dimes   :", d put "Nickels :", n put "Pennies :", p

[w0lv3rin3]

I'm looking @ this code, what does 21 and 0 : 2 do witin the code

code:

for a : 1 .. 7     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for get choice (1) for a : 8 .. 12     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for

also here

what does 23, 0 : 2, and in put "TOTAL:" : 22, total : 0 : 2, where u see 22, total : 0 : 2, whats those numbers their for?

code:

for a : 1 .. 3     put names (choice (a)) : 23, prices (choice (a)) : 0 : 2 end for put "--------------------------" put "TOTAL:" : 22, total : 0 : 2 put "Enter Bill Being Used:$" .. get bill

[Tony]

alignment...

:number after a string sets the minimum size string has to be and adds spaces to output to match that number, so you can have preaty looking columns...

second :number sets presision of real values (desimal places)

[Miko99]

Well how do i get that code to loop over and over and the total continusely adds up and is displayed at the end, with the exact coins they will get back.

[krishon]

just put a loop around everything

[Miko99]

Tried it, and id didn't work.

[Andy]

turing's mod is screwed up, there is a rounding error

[Grey_Wolf]

code:

var names : array 1 .. 17 of string := init ("Pizza", "Crispy Fries", "Hamburger", "Cheese Burger",     "Chicken Burger", "Submarine", "Salad", "2 Cookies", "Fries", "Pasta",     "Mashed Potatoes", "Baked Potatoes", "Pop", "Chocolate Milk",     "Gatorade/ Powerade", "Water", "Slush Puppy") var prices : array 1 .. 17 of real := init (2.5, 4, 3, 3.4, 2.4, 5, 3, 1, 2, 2, 1.5,     1, 1, 1.5, 2, 1, 1.35) var choice : array 1 .. 3 of int var total : real := 0 var bill : real var change : real var f, t, l, q, d, n, p : real := 0 var choice5:string var count:int:=0 put "Main Dishes         Prices" loop count:=count+1 for a : 1 .. 7     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for get choice (1) for a : 8 .. 12     put a, "-", names (a) : 21, prices (a) : 0 : 2 end for put "10-", names (10) : 20, prices (10) : 0 : 2 get choice (2) for a : 13 .. 17     put a, "-", names (a) : 20, prices (a) : 0 : 2 end for get choice (3) total := prices (choice (1)) + prices (choice (2)) + prices (choice (3)) put ("Would you like select 3 more things") get choice5 exit when (choice5="no") end loop for a : 1 .. 3     put names (choice (a)) : 23, prices (choice (a)) : 0 : 2 end for put "--------------------------" put "TOTAL:" : 22, total : 0 : 2 put "Enter Bill Being Used:$" .. get bill if bill not= 100 or bill not= 50 or bill not= 20 or bill not= 10 or         bill not= 5 then     put "That is not a valid Bill"   elsif bill = 100 or bill = 50 or bill = 20 or bill = 10 or bill = 5 then end if change := bill - total cls put "Your change is: $", change, " and you will get: " f := change div 5 change := change - (f * 5) t := change div 2 change := change - (t * 2) l := change div 1 change := change - (l * 1) q := change div .25 change := change - (q * 0.25) d := change div .1 change := change - (d * 0.1) n := change div .05 change := change - (n * 0.05) p := change div .01 change := change - (p * 0.01) put "Fives :", f put "Toonies :", t put "Loonies :", l put "Quarters:", q put "Dimes   :", d put "Nickels :", n put "Pennies :", p

This code should loop it forever although i would suggest asking the user if they wish to continue.

[Miko99]

That code doesn't keep everything the user selects in memory. I need it to keep everything. so i fi select 6 things, then i get charged for 6 things.

[Miko99]

can someone please tell me how to get the food program to loop and continuesly add up the prices no matter how much food i select.