Предикаты для описания положения учеников и учителя в школьном компьютерном классе

@Mus_177 · Регистрация: 30.10.2014

Author24 — интернет-сервис помощи студентам

Предложить предикаты для описания положения учеников и учителя в школьном компьютерном классе, описать их в разделе PREDICATES (придумайте не менее 7 предикатов, включающих в себя: вандализм, работу за компьютером, включение и выключение компьютера, работу за столом без компьютера, выход к доске и т.п.). Создать предложения (в разделе CLAUSES) для определения:

1. Количества учащихся, работающих в данный момент за компьютером и количества учащихся, не работающих в данный момент за компьютером.

2. Списка учащихся, выходивших к доске.

3. Учащихся, проработавших за компьютером максимальное и минимальное время.

Добавлено через 3 часа 22 минуты
Я сделал первый и второй пункт,но во втором пункте не понятно как он считает..(

Prolog

DOMAINS
 list=string*
PREDICATES
 nondeterm appear(string, integer)
 nondeterm  disappear(string, integer) 
 nondeterm  at(string, string, integer)   
 nondeterm  getnocomps(string)
 nondeterm  getnocomp(list)
 nondeterm  pers(string)
 nondeterm  getcomps(string)
 nondeterm  getcomp(list)
 nondeterm  gettime(string)
 nondeterm  getTimeAll(list)
 nondeterm  gettimebetween(string)
 nondeterm  getTimeBetweenAll(list)
CLAUSES
 pers("Ivan").
 pers("Petr").
 pers("Sasha").
 pers("Andrew").
 pers("Mila").
 pers("Kat").
 appear("Ivan", 25).
 appear("Petr", 19).
 appear("Sasha", 12).
 appear("Andrew", 12).
 appear("Mila", 33).
 appear("Kat", 9).
 at("Ivan", "comp", 27).
 at("Petr", "nocomp", 20).
 at("Sasha", "comp", 13).
 at("Andrew", "nocomp", 22).
 at("Mila", "comp", 10).
 at("Kat", "nocomp", 39).
 disappear("Ivan", 33).
 disappear("Petr", 21).
 disappear("Sasha", 28).
 disappear("Andrew", 18).
 disappear("Mila", 41).
 disappear("Kat", 23).
 getnocomps(P):-pers(P),at(P,X,_),X="nocomp".
 getnocomp(L):- findall(P, getnocomps(P),L),nl,write("nocomps:"),nl,write(L),nl.
 
 getcomps(P):-pers(P),at(P,X,_),X="comp".
 getcomp(L1):- findall(P, getcomps(P),L1),nl,write("Comp:"),nl,write(L1),nl.
 
 
 //gettime(P):-pers(P),appear(P,X),disappear(P,Y),(Y-X)=8.
// getTimeAll(L2):- findall(P, gettime(P),L2),nl,write("Time(8 mins):"),nl,write(L2),nl.
 
 gettimebetween(P):-pers(P),appear(P,X),disappear(P,Y),(Y-X)>10,(Y-X)<20.
 getTimeBetweenAll(L3):- findall(P, gettimebetween(P),L3),nl,write("Time(10-20 mins):"),nl,write(L3),nl.
 
GOAL
 getnocomp(L), getcomp(L1),getTimeAll(L2),getTimeBetweenAll(L3),fail.

@Black Fregat · 18.02.2015, 08:56

Расскажите чуть подробнее суть Вашей проблемы - что именно Вы хотите получить и что вместо этого сделано сейчас.

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	18.02.2015, 08:56	2
	Расскажите чуть подробнее суть Вашей проблемы - что именно Вы хотите получить и что вместо этого сделано сейчас. 0