home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 02 / speise.pro < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.3 KB  |  61 lines
  1. "Speisekarte"
  2.  
  3. Vorspeise(Champignoncremesuppe)->;
  4. Vorspeise(Raeucherlachs)->;
  5. Vorspeise(Krabbencocktail)->;
  6.  
  7. Fleischgericht(Rehmedaillons)->;
  8. Fleischgericht(Schweinefilet)->;
  9.  
  10. Fischgericht(Kraeuterforelle)->;
  11. Fischgericht(Scholle)->;
  12.  
  13. Dessert(Birne-Helene)->;
  14. Dessert(Erdbeeren)->;
  15. Dessert(Obstsalat)->;
  16.  
  17. "Hauptgang"
  18.  
  19. Hauptgang(h) -> Fleischgericht(h);
  20. Hauptgang(h) -> Fischgericht(h);
  21.  
  22. "Zusammenstellung des Menues"
  23.  
  24. Mahlzeit(v,h,d)->
  25.            Vorspeise(v)
  26.            Hauptgang(h)
  27.            Dessert(d);
  28.  
  29. "Kalorien pro Portion"
  30.  
  31. Kalorien(Champignoncremesuppe,250)->;
  32. Kalorien(Raeucherlachs,360)->;
  33. Kalorien(Krabbencocktail,220)->;
  34. Kalorien(Rehmedaillons,270)->;
  35. Kalorien(Schweinefilet,750)->;
  36. Kalorien(Kraeuterforelle,330)->;
  37. Kalorien(Scholle,510)->;
  38. Kalorien(Birne-Helene,406)->;
  39. Kalorien(Erdbeeren,365)->;
  40. Kalorien(Obstsalat,210)->;
  41.  
  42. "Kalorienberechnung fuer ein Menue"
  43.  
  44. Wert(v,h,d,w)->
  45.                Kalorien(v,x)
  46.                Kalorien(h,y)
  47.                Kalorien(d,z)
  48.                addiere(x,y,z,w);
  49.  
  50. "Kalorienarmes Menue"
  51.  
  52. kalorienarmes-Menue(v,h,d)->
  53.                Mahlzeit(v,h,d)
  54.                Wert(v,h,d,w)
  55.                kleiner(w,800);
  56.  
  57. "Verschiedenes"
  58.  
  59. addiere(a,b,c,d)->val(add(a,add(b,c)),d);
  60. kleiner(x,y)->val(inf(x,y),1);
  61.