Тест на прологе

@deadik · Регистрация: 17.03.2010

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

Вот в чем вопрос, дорогие программисты, получил задание сделать тесты на прологе. задание:создать тесты на прологе, которые будут задавать вопрос,и в зависимости от ответа ставить баллы.
в задании было описать предикаты
<вопрос>(<номер вопроса>,<текст вопроса>,<уровень>)
<ответ>(<номер вопроса><номер ответа><текст ответа>,<оценка>)
<неправильный ответ>(<номер вопроса><номер ответа><текст ответа>,<оценка>)
остальное,разумеется, самому. я вот описал эти предикаты, вроде, как все, также, для удобства описал отношения правильных ответов и неправильных, и у меня баллы равняются уровню вопроса, в случае правильного ответа и нулю, если выбран неправильный ответ.
далее суть проблемы: я не знаю как сделать сами тесты, то есть, что б задавались поочередно вопросы и предлагались ответы,я так понимаю, что это надо делать через makewindow, но как я так и не понял. И еще,надо,как я понял, что б в конце баллы суммировались, но это потом. ну и вот собственно, что я смог придумать, пока для 10 вопросов.

Prolog

DOMAINS
number, level, otvetn, mark = integer
text, otvet = string
PREDICATES
vopros(number,text,level)
righ(number,otvetn,otvet,mark)
nr(number,otvetn,otvet,mark)
ok(number,otvetn)
no(number,otvetn)
ball(integer)
CLAUSES
vopros(1,"Skolko okon imeet prolog?",1).
vopros(2,"Shto otobrazaet nizniy ryadok okna?",1).
vopros(3,"Shto nuzno sdelat dlya polucheniya neobhodimoi gammi okna?",2).
vopros(4,"Kakuyu directivu neobhodimo dobavit dlya trassirovki?",2).
vopros(5,"Kakim slovom mozno zamenit znak :- ?",2).
vopros(6,"Kakoe rasshirenie failov imeet prolog?",2).
vopros(7,"Kak opredelyaetsa predicat oshibki?",3).
vopros(8,"Kakim znakom opredelyaetsa predicat obrezaniya?",3).
vopros(9,"Kak nazivaetsa sovokupnost predlozeniy v Prologe?",4).
vopros(10,"Kak nazivaetsa vizov funkcii samoi sebia?",4).
 
righ(1,1,"4",1).
righ(2,3,"status-soobshenie",1).
righ(3,1,"summirovat sumi kodov cvetov texta,tla i specefektov",2).
righ(4,4,"trace",2).
righ(5,2,"if",2).
righ(6,3,"pro",2).
righ(7,4,"fail",3).
righ(8,1,"!",3).
righ(9,2,"procedura",4).
righ(10,1,"rekursiya",4).
 
nr(1,2,"2",0).
nr(1,3,"5",0).
nr(1,4,"1",0).
nr(2,1,"directoriu",0).
nr(2,2,"vremya",0).
nr(2,4,"text programmi",0).
nr(3,2,"summirovat sumi kodov cvetov texta i tla ",0).
nr(3,3,"summirovat sumi kodov cvetov tla i specefektov",0).
nr(3,4,"vvesti otdelno cveta texta i tla",0).
nr(4,1,"dir_trace",0).
nr(4,2,"trace.h",0).
nr(4,3,"NewTrace",0).
nr(5,1,"or",0).
nr(5,3,"and",0).
nr(5,4,"then",0).
nr(6,1,"txt",0).
nr(6,2,"prl",0).
nr(6,4,"log",0).
nr(7,1,"error",0).
nr(7,2,"err",0).
nr(7,3,"ff",0).
nr(8,2,"?",0).
nr(8,3,"<-",0).
nr(8,4,"$",0).
nr(9,1,"abzazz",0).
nr(9,3,"text",0).
nr(9,4,"predlozeniya",0).
nr(10,2,"control function",0).
nr(10,3,"function same",0).
nr(10,4,"restrukciya",0).
 
ok(1,1).
ok(2,3).
ok(3,1).
ok(4,4).
ok(5,2).
ok(6,3).
ok(7,4).
ok(8,1).
ok(9,2).
ok(10,1).
 
no(X,Y):-vopros(X,_,_,_),not(ok(X,_).
righ(X,_,_,_):-vopros(X,_,_,_),ok(X,_).
nr(X,_,_,_):- vopros(X,_,_,_),no(X,_).
ball(X) if righ(_,_,_,X).
ball(X) if nr(_,_,_,X).
GOAL

@Aselek · 10.04.2010, 22:55

можете решить эту задачу?
3.2. Имеется список, каждый элемент которого, в свою очередь является списком. Отсортировать список верхнего уровня (по возрастанию сумм элементов-списков второго уровня).

можете скинуть прогу на почту lessya255@mail.ru

я уже спать не могу из-за этой проги, она у меня никак не получается.....

@deadik · 11.04.2010, 17:12 **[ТС]**

не в тему...

@Fizigr · 27.01.2012, 17:50

Удалось решить задачу? У меня курсовик на эту тему, только тесты должны использовать БД.

@Aselek 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 5
	10.04.2010, 22:55	2
	можете решить эту задачу? 3.2. Имеется список, каждый элемент которого, в свою очередь является списком. Отсортировать список верхнего уровня (по возрастанию сумм элементов-списков второго уровня). можете скинуть прогу на почту lessya255@mail.ru я уже спать не могу из-за этой проги, она у меня никак не получается..... 0

@deadik 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 16
	11.04.2010, 17:12 [ТС]	3
	не в тему... 0

@Fizigr 0 / 0 / 0 Регистрация: 27.01.2012 Сообщений: 5
	27.01.2012, 17:50	4
	Удалось решить задачу? У меня курсовик на эту тему, только тесты должны использовать БД. 0

Опции темы