Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Помогите пожалуйста с решением программы в прологе о продаже театральных билетов
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Alex054 Alex054 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.12.2011
Post Помогите пожалуйста с решением программы в прологе о продаже театральных билетов - 18.12.2011, 22:12

Здравствуйте. Помогите пожалуйста с решением задачи:
Составить программу для продажи театральных билетов, которая должна отображать следующую информацию: спектакль, свободные места, цена билета. Реализовать вывод всей информации о билетах, поиск билета по ряду. Подсчитать количество проданных билетов и количество свободных мест, у которых минимальна цена.

Заранее спасибо

Мои наработки, по которым ничего не работает:
prolog Код:
DOMAINS
 ryad,nom=integer
 mesto_list=mesto*
 mesto=integer
 spekt=symbol
 cena=integer
 
PREDICATES
 
spek(Nom,Spekt)
cen(Nom,Ryad,Mesto_list,Cena)
inform
/*poisk(Ryad)*/
M(Mesto_list,Mesto_list)
prod(Nom,Ryad,Mesto,Cena)
 
menu
vibor(char)
 
CLAUSES
 spek(1,"Отцы и дети").
 spek(2,"Ревизор").
 
 
 cen(1,1,[1,2,3,4,5,6,7,8,9,10],2000).
 cen(1,2,[1,2,3,4,5,6,7,8,9,10],2000).
 cen(1,3,[1,2,3,4,5,6,7,8,9,10],1500).
 cen(1,4,[1,2,3,4,5,6,7,8,9,10],1500).
 cen(1,5,[1,2,3,4,5,6,7,8,9,10],1000).
 cen(1,6,[1,2,3,4,5,6,7,8,9,10],1000).
 
 cen(2,1,[1,2,3,4,5,6,7,8,9,10],2100).
 cen(2,2,[1,2,3,4,5,6,7,8,9,10],2100).
 cen(2,3,[1,2,3,4,5,6,7,8,9,10],1800).
 cen(2,4,[1,2,3,4,5,6,7,8,9,10],1800).
 cen(2,5,[1,2,3,4,5,6,7,8,9,10],1500).
 cen(2,6,[1,2,3,4,5,6,7,8,9,10],1500).
 
 
 prod(1,1,[2,4,5,6,8,10],2000).
 prod(1,2,[3,6,7,9],2000).
 prod(1,3,[1,2,3],1500).
 prod(1,4,[4,6,9],1500).
 prod(1,5,[3,4,7,9,10],1000).
 prod(1,6,[2,5,7,8,9],1000).
 
 prod(2,1,[1,2,4,5,6,8,9,10],2100).
 prod(2,2,[2,5,8,9],2100).
 prod(2,3,[1,3,6,8,9,10],1800).
 prod(2,4,[1,2,7,8,9],1800).
 prod(2,5,[7,9,10],1500).
 prod(2,6,[1,3,5,7,8],1500).
 
 
inform :- write("Введите номер спектакля "),readint(A),spek(A,X),
         write(X),
         cen(A,Y,[X,Y],C),
         write(Y, " ",  C), nl, fail.
 inform :- nl.
 
 /*poisk(B) :- Write("Введите ряд"), Readint(B),*/
          /*   Cen(_,B,_,_),*/
             
            /* write(B, " "), nl, fail.*/
 /*poisk(_) :- nl.*/
 
 /*poisk(V, W) :- punk(X, V),*/
 /*      cen(X, Z),*/
 /*      Z<=W,*/
/*       write(X, " ", V, " ", Z, " "), nl, fail.*/
/* poisk(_, _) :- nl.*/
               
  menu :- write("Введите вариант: "), nl,
          write("1 - Информация"),nl,
          write("2 - Поиск по ряду"),nl,
         /* write("3 - Количество билетов"),nl,*/
          write("0 - Выход "),readchar(C), vibor(C), menu, nl.
menu.
 
vibor('1'):- nl,inform.
/*vibor('2'):- nl,write("Введите ряд "),readint(N),poisk(N).*/
/*vibor('3'):- nl,write(" "),readln(R),nl,write("Введите цену "),readint(T),*/
            /* poisk(R,T).*/
vibor(_):- fail.              
         
GOAL
 menu.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для продажи театральных билетов на GNU Common Lisp Alex054 Lisp 0 25.12.2011 16:12
Помогите пожалуйста с решением задачи.Очень прошу. Алекс307595 Pascal 0 22.12.2011 13:37
Пожалуйста, помогите решить задачку на прологе!!! tana-_- Prolog 0 06.12.2011 20:57
Помогите пожалуйста решить задачу на прологе!!!!!!!!! Несси Prolog 4 27.11.2011 17:42
Помогите пожалуйста с решением. Pascal Borland Артём Фирсанов Pascal 9 02.05.2011 19:51
Помогите пожалуйста с решением задачи на BProloge Bananza Prolog 1 03.07.2010 19:29
Помогите, пожалуйста, с решением этих задач. Очень важно! Santei Prolog 3 10.06.2010 18:28
Помогите с решением задачки на прологе Novichok92 Prolog 5 20.05.2010 19:55
Пожалуйста,помогите с решением логической задачи!Если можно,не используя спискт pavelr Prolog 10 11.03.2010 17:55
Помогите пожалуйста с решением задач AmorphiS Prolog 5 26.02.2008 14:01
Помогите пожалуйста люди добрые с решением задачи! назарово Prolog 0 31.01.2008 06:52
Помогите, пожалуйста, с решением задачи по массивам Anonymous Вопросы начинающих программистов 3 17.12.2003 19:34



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов