How do I make this menu work?

Borland / Pascal 7.0
May 22, 2011 at 05:52:24
Specs: Windows 7
This is my program for a menu on Turbo Pascal 7.0. I need to get it working with the following algorithm.

Start
User inputs his name
Input Menu Categories
User will choose category
Input Meals
User will choose Meal
Price is outputted
User is given to option to choose another meal from another category
User chooses the next category
User chooses Meal
User is asked whether he wants to use the program again
End


Please help me out. I have no idea what to do.
Thanks.

Program Mamma_Mia_Restaurant_Menu;

Uses crt;

Var
Name : real;
Category : real;
Order1, Order2, Order3, Order4, Order5, Order6, Order7 : real;
{-------------------------------------------------------------------}

Procedure Input; {enters the menu with categories, meals and prices}


Begin
Clrscr;

writeln ('Welcome to the Mamma Mia Restaurant Menu');
readln;
writeln ('Please write your name ');
readln (name);

writeln ('Please choose one of the following categories');

writeln ('1. Starters');
writeln ('2. Pasta');
writeln ('3. From the Grill');
writeln ('4. Pizza');
writeln ('5. Snacks');
writeln ('6. Dessert');
writeln ('7. Beverages');
readln (Category);

Case Category of
1:
writeln ('1. Garlic Bread');
writeln ('2. Bruschetta');
writeln ('3. Onion Rings');
writeln ('4. Chicken Wings');
writeln ('5. Soup Specialities');
readln (Order1);

Case Order1 of
1: writeln ('Garlic Bread 1.55');
2: writeln ('Bruschetta 1.75');
3: writeln ('Onion Rings 3.95');
4: writeln ('Chicken Wigns 4.95');
5: writeln ('Soup Specialities 4.50');

2:
writeln ('1. Penne Bolognese');
writeln ('2. Penne Carbonara');
writeln ('3. Spaghetti Amatriciana');
writeln ('4. Spaghetti Nettuno');
writeln ('5. Spaghetti with Octopus');
readln (Order2);

Case Order2 of
1 : writeln ('Penne Bolgnese 6.90');
2 : writeln ('Penne Carbonara 6.90');
3 : writeln ('Spaghetti Amatriciana 6.90');
4 : writeln ('Spaghetti Nettuno 8.60');
5 : writeln ('Spaghetti with Octopus 8.60);

3:
writeln ('1. Fillet of Beef');
writeln ('2. Fillet Peppered');
writeln ('3. Ribeye Steak of Beef');
writeln ('4. Lamb Shanks');
writeln ('5. Barbeque Ribs');
writeln ('6. Duck Breast');
writeln ('7. Octopus');
writeln ('8. Baked Salmon');
writeln ('9. Spnott');
writeln ('10. Chicken Normande');
readln (Order3);

Case Order3 of
1 : writeln ('Fillet of Beef 17.75');
2 : writeln ('Fillet Peppered 18.95');
3 : writeln ('Ribeye Steak of Beef 17.50');
4 : writeln ('Lamb Shanks 13.95');
5 : writeln ('Barbeque Ribs 13.95');
6 : writeln ('Duck Breast 13.95');
7 : writeln ('Octopus 12.50');
8 : writeln ('Baked Salmon 13.95');
9 : writeln ('Spnott 13.95');
10 : writeln (' Chicken Normande 12.95');

4:
writeln ('1. Margerita');
writeln ('2. Rustica');
writeln ('3. Hawaiian');
writeln ('4. Funghi');
writeln ('5. Capricciosa');
writeln ('6. Calzone');
writeln ('7. Marinara');
writeln ('8. Quattro Stagioni');
writeln ('9. Maltija');
readln (Order3);

Case Order3 of
1 : writeln ('Margerita 6.05);
2 : writeln ('Rustica 6.50);
3 : writeln ('Hawaiian 6.95');
4 : writeln ('Funghi 7.45');
5 : writeln ('Capricciosa 7.45');
6 : writeln ('Calzone 7.35');
7 : writeln ('Marinara 7.70');
8 : writeln ('Quattro Stagioni 7.35');
9 : writeln ('Maltija 7.45');

5:
writeln ('1. Traditional Burger');
writeln ('2. Cheese Burger');
writeln ('3. Chicken Burger');
writeln ('4. Chicken Nuggets');
readln (Order5);

Case Order5 of
1 : writeln ('Traditional Burger 6.50');
2 : writeln ('Cheese Burger 6.95');
3 : writeln ('Chicken Burger 6.95');
4 : writeln ('Chicken Nuggets 5.50');

6:
writeln ('1. Chocolate Fondant');
writeln ('2. Lemon Mousse');
writeln ('3. Cherry Cheese Cake');
writeln ('4. Apple Pie');
writeln ('5. Ice Scream per Scoop');
readln (Order6);

Case Order6 of
1 : writeln ('Choclate Fondant 4.50'):
2 : writeln ('Lemon Mousse 3.75');
3 : writeln ('Cherry Cheese Cake 3.75');
4 : writeln ('Apple Pie 3.50');
5 : writeln ('Ice Cream per Scoop 1.75');

7:
writeln ('1. Soft Drinks');
writeln ('2. Juices');
writeln ('3. Foreign Mineral Water 33cl');
writeln ('4. Foreign Mineral Water 1lt');
writeln ('5. Foreign Sparkling Water 25cl');
writeln ('6. Foreign Sparkling Water 75cl');

writeln ('Hot Beverages'):

writeln ('7. Espresso');
writeln ('8. Capuccino');
writeln ('9. Coffee');
writeln ('10. Tea');
writeln ('11. Hot Chocolate');

writeln ('Local & Foreign Wines);
(readln);

writeln ('Local');
(readln);

writeln ('White');
readln;

writeln ('12. Palazzo Verdala');
writeln ('13. La Vallette');
writeln ('14. Caravaggio Chenin Blanc DOK');

writeln ('Red');
(readln);

writeln ('15. La Vallette Vin Rouge');
writeln ('16. Merlot');

writeln ('Rose');
(readln);

writeln ('17. Palazzo Verdala Rose');
writeln ('18. Medina Rose Grenache');

writeln ('Foreign');

writeln ('White');
readln;

writeln ('19. Frascati');
writeln ('20. Sancerre');
writeln ('21. Chenin Blanc');

writeln ('Red');
readln;

writeln ('22. Chianti');
writeln ('23. St.Emillion');
writeln ('24. Pinotage');

writeln ('Rose');
readln;

writeln ('25. Rose D Anjou');
writeln ('26. Mateus Rose');

writeln ('Sweet');
readln;

writeln ('27. Liebfraumilch');
writeln ('28. Blue Nun');

writeln ('Alchoholic Beverages');
readln;

writeln ('Local Beers');
readln;

writeln ('29. Cisk Lager 25cl');
writeln ('30. Hopleaf Pale 25cl');
writeln ('31. Farsons Traditional Shandy 25cl');
writeln ('32. Blue Label Ale 25cl');

writeln ('Premium Beers & Cider');
readln;

writeln ('33. Cisk Export');
writeln ('34. Carlsberg');
writeln ('35. Budweiser');
writeln ('36. Woodpecker');

readln (Order7);

Case Order7 of
1 : ('Soft Drink 1.55');
2 : ('Juice 1.55');
3 : ('Foreign mineral water 33cl 1.35');
4 : ('Foreign mineral water 1lt 2.75');
5 : ('Foreign sparkling water 25cl 1.35');
6 : ('Foreign sparkling water 75cl 2.75');
7 : ('Espresso 1.35');
8 : ('Capuccino 1.50');
9 : ('Coffee 1.20');
10 : ('Tea 1.35');
11 : ('Hot Chocolate 1.55');
12 : ('Palazzo Verdala 6.60');
13 : ('La Vallette 6.60');
14 : ('Caravaggio Chenin Blanc DOK 11.95');
15 : ('La Vallette Vin Rouge 6.60');
16 : ('Merlot 9.40');
17 : ('Palazzo Verdala Rose 6.60');
18 : ('Medina Rose Grenache 10.00');
19 : ('Frascati 11.75');
20 : ('Sancerre 19.90');
21 : ('Chenin Blanc 11.95');
22 : ('Chianti 13.25');
23 : ('St.Emillion 18.95');
24 : ('Pinotage 11.95);
25 : ('Rose D Anjou 11.75');
26 : ('Mateus Rose 11.75');
27 : ('Liebfraumilch 11.25');
28 : ('Blue Nun 13.25');
29 : ('Cisk Lager 25cl 1.40');
30 : ('Hopleaf Pale Ale 25cl 1.40');
31 : ('Farsons Traditional Shandy 25cl 1.40');
32 : ('Blue Label Ale 25cl 1.40');
33 : ('Cisk Export 1.90');
34 : ('Carlsberg 1.90');
35 : ('Budweiser 1.90');
36 : ('Woodpecker 3.20');

End.


See More: How do I make this menu work?

Report •


#1
May 29, 2011 at 11:19:45
what happens when you compile and run now?

Report •
Related Solutions


Ask Question