Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу БД для продажи билетов в кино
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
lendrik lendrik вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.04.2007
По умолчанию 24.04.2007, 20:08

у меня такое задание:1. Написать программу для продажи билетов в кино. Должна быть представлена следующая информация: фильм, свободные места, цена билета. Реализовать вывод всей информации о билетах, поиск билета по ряду. Реализовать поиск по цене с указанием максимально возможной цены (должна быть выведена информация о билетах, цены на которые ниже указанного значения). Для удобства работы реализовать меню с соответствующими пунктами.
я пробую так,но что то прога не хочет запускаться
Код:
DOMAINS
    kino=string
    sv_mesta= integer*
    ryad=integer
    cena=integer
    file=f
DATABASE
   bilet(kino,ryad,sv_mesta,cena)
   
PREDICATES
    nondeterm m (char)
    nondeterm menu
    vivod_inf(ryad)
    vivod_inf(cena)
  
CLAUSES
 bilet("Solyaris",1,[1,2,3,4,5,6,7,8,9,10],50).
 bilet("Solyaris",2,[1,2,3,4,5,6,9],60).
 bilet("Solyaris",3,[1,2,3,4,5,8,9],70).
 bilet("Solyaris",4,[2,3,4,7,8],80).
 bilet("Solyaris",5,[1,2,9,10],80).
 bilet("Solyaris",6,[1,10],80).
 bilet("Solyaris",7,[1,2],80).
 bilet("Solyaris",8,[],80).
 bilet("Solyaris",9,[],90).
 bilet("Solyaris",10,[1,2,10],110).
 
 bilet("Titanik",1,[1,2,3,4,6,7,8,9,10],50).
 bilet("Titanik",2,[1,2,3,4,5,6,7,8,9,10],50).
 bilet("Titanik",3,[1,2,3,7,8,9,10],55).
 bilet("Titanik",4,[1,2,3,7,8,9],60).
 bilet("Titanik",5,[1,2,3,8,9,10],60).
 bilet("Titanik",6,[1,2,8,9,10],60).
 bilet("Titanik",7,[1,2,8,9,10],70).
 bilet("Titanik",8,[1,2,3,4,5,6,7,8,9,10],70).
 bilet("Titanik",9,[1,2,4,8,9,10],80).
 bilet("Titanik",10,[1,2,3,10],120).

 vivod_inf(Ryad):-                   /при запуске пишет The variable is only used once/
 bilet(kino,ryad,sv_mesta,cena),     / а здесь пишет Wrong object type про ryad /
 write("net inf o "),nl,
 fail.
 
 vivod_inf(cena):-
 bilet(kino,rayd,sv_mesta,cena),
 write("net inf "),nl,
 fail.
 
 menu:-
    write("1-bilet po ryadu"),nl,
    write("2-bilet po cene"),nl,
    write("3-vvedite limit po cene"),nl,
    readchar©,
    m©.
    
    m('1'):-
      write("vvedite ryad"),nl,
      readint(Ryad),
      vivod_inf(Ryad),
      menu.
      
    m('2'):- 
    write("vvedite cenu"),nl,
    readint(Cena),
    vivod_inf(Cena),
    menu.
    
 m('3'):-
    write("vvedite limit cenyi"),nl,
    readint(Limit),
    bilet(kin,_,_,Cena),
    Cena<=Limit,
    write("kino",kino,"Ryad",ryad,"Sv_mesta",sv_mesta,"Cena",Cena),nl,
    fail,menu.
    
    m(_):-!,menu.
    GOAL
    menu.
Если видите ошибки,исправте пожалуйста,я уже не знаю, что тут придумать,а сдавать ведь надо!!!!
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для продажи театральных билетов на GNU Common Lisp Alex054 Lisp 0 25.12.2011 16:12
Помогите пожалуйста с решением программы в прологе о продаже театральных билетов Alex054 Prolog 0 18.12.2011 22:12
Мой первый Кино Блог - WikiKino.COM WikiKino Веб-программирование 2 31.10.2011 23:08
Ваши оценки блогу о Кино Skeptikum Зацените! 2 07.02.2011 15:23
sli при просмотре кино глючит nerosa Видеокарты 0 08.11.2010 18:09
Поиск всех счастливых билетов с числом 6 Maple Prolog 5 26.11.2008 19:36
Нет звука голосов при просмотре кино в Windows XP :( Elf_A Звук и акустические системы 2 10.09.2008 10:52
Как оценить компьютер для продажи? morevici Системный блок 0 01.08.2008 05:34
проблема со звуком в кино Я легенда Звук и акустические системы 1 27.06.2008 20:11
создание билетов Jodu Pascal 2 22.03.2008 19:52



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