-----------------------------------

imraan16

Sun Jan 22, 2012 4:35 pm


Pizza Shop Program

-----------------------------------

What is it you are trying to achieve?



What is the problem you are having?
What can i do to make my program better

Describe what you have tried to solve this problem



Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)



var toppings, response, name, address : string
var pizza, drink, total_pizza, sub_total, total, number, tax, bread, pizza_price : real
var number_pizza, number_toppings, number_drinks, order, table_number, fileno, size : int
locate (3,30)
put "WELCOME TO IMRAAN'S PIZZERIA"
locate (4,28)
put "Where Our Pizza is Freshly Made"
drawfilloval (340, 200, 100, 100, 43) 
drawfilloval (341, 200, 85, 85, brightred) 
drawfilloval (340, 200, 70, 70, yellow) 
drawfilloval (340, 220, 10, 10, red) 
drawfilloval (310, 200, 10, 10, red) 
drawfilloval (350, 180, 10, 10, red) 
drawfilloval (380, 200, 10, 10, red)
drawfilloval (320, 160, 10, 10, red)
drawfilloval (320, 250, 10, 10, red)
drawfilloval (370, 250, 10, 10, red)
drawfilloval (370, 155, 10, 10, red)
procedure key
    var ch : string (1)
    getch (ch)
end key

locate(22,26)
put " Press any key to proceed to order"
key
for a : 1 .. maxx
    delay (1)
    drawfillbox (0, 8, a, 0, black)
end for
cls
put "WELCOME TO IMRAAN'S PIZZERIA"
put ""
put "Items" : 30, "Cost"
put "Small Pizza" : 30, "$7.50"
put "-additional items $0.30"
put "Medium Pizza" : 30, "$10.50"
put "-additional items $0.50"
put "Large Pizza" : 30, "12.50"
put "-additional items $0.65"
put "Extra Large Pizza" : 30, "14.00"
put "-additional items $0.75"
put "Garlic Bread" : 11
put "-with cheese $3.00" : 11
put "Coffee"
put "Tea"
put "Pop"
put "-small $1.10"
put "-large $1.80"
put "-2L $2.25"
put ""

locate (20, 25)
procedure getKey
    var ch : string (1)
    getch (ch)
end getKey


put " Press any key to proceed to order"
getKey
for a : 1 .. maxx
    delay (1)
    drawfillbox (0, 8, a, 0, black)
end for
cls

open : fileno, "C:/Menu/order.txt", put

put "Choose:

Please specify what version of Turing you are using



-----------------------------------

Alex C.

Sun Jan 22, 2012 5:10 pm


RE:Pizza Shop Program

-----------------------------------

what are you not happy about? :?


-----------------------------------

RandomLetters

Sun Jan 22, 2012 5:24 pm


RE:Pizza Shop Program

-----------------------------------

Do you go to UHS?


-----------------------------------

Alex C.

Sun Jan 22, 2012 5:40 pm


RE:Pizza Shop Program

-----------------------------------

...no. why :?


-----------------------------------

Velocity

Wed Jan 25, 2012 12:18 am


RE:Pizza Shop Program

-----------------------------------

alex can u stop posting such waste posts, if u just want to look flashy with posts dont do it on this forums, all ur posts have no relevance to the topic. And aree like 5 words each.

--------------------

Try using more procedures, u have alot of repeated lines of code.
Look up font.draw
Oh and your ur getch procedure u dont need to state it more than once you can put ''key'' anywhere you want to call it. Make sure you know what procedures are first.