База данных

@Marisha-Angel · Регистрация: 26.06.2010

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

Здравствуйте! Решаю следующую задачу: В экзаменационной ведомости можно выделить сведения общего назначения (предмет, номер группы, дата экзамена), сведения о человеке (фамилия, номер зачетной книжки, оценка за экзамен). Определите сколько человек не сдали программирование, выдать их списки: фамилия, номер группы. Определите сколько групп сдавали экзамены 11.06.09 и какие, составьте списки студентов, сдавших информатику: фамилия, номер группы, оценка.

Prolog

Domains
name,number_kn,Predmet, data=String
number_group,ozenka=integer
file=f.
Database
Vedomost(name,number_kn,number_group, Predmet,data,ozenka)
Predicates
m(char).
menu.
start.
 
Clauses
start:-
 existfile("Vedomosti.ddb"),!,
 consult("Vedomosti.ddb"),
 menu.
 
start:-
 openwrite(f,"Vedomosti.ddb"),
 closefile(f),
 menu.
  
menu:-
 clearwindow,
 write("1 -"),nl,
 write("2 - "),nl,
 write("3 - Добавление записи"),nl,
 write("4 - Изменение  записи"),nl,
 write("5 - Удаление записи"),nl,
 write("0 - Выход"),nl,
 readchar(C),
 m(C).
 
m('1'):-
 clearwindow,
 
 readchar(_),
 menu.
 
m('2'):-
 
 readchar(_),
 menu.
 
m('3'):-
 clearwindow,
 write("Введите фамилию"),nl,
 readln(name),
 write("Введите номер зачетной книжки"),nl,
 readln(number_kn),
 write("Введите номер групы"),nl,
 readint(number_group),
 write("Введите предмет"),nl,
 readln( Predmet),
 write("Введите дату"),nl,
 readln( data),
 write("Введите оценку "),nl,
 readint(ozenka),
 assert(Vedomost(name,number_kn,number_group, Predmet,data,ozenka)),
 menu.
 
m('4'):-
 clearwindow, 
write("Введите номер зачетной книжки"),nl,
 readln(number_kn),
 write("Введите фамилию"),nl,
 readln(name),
 write("Введите номер групы"),nl,
 readint(number_group),
 write("Введите предмет"),nl,
 readln( Predmet),
 write("Введите дату"),nl,
 readln( data),
 write("Введите оценку "),nl,
 readint(ozenka),
 retract(Vedomost(_,number_kn,_,_,_,_)),
 assertz(Vedomost(name,number_kn,number_group, Predmet,data,ozenka)),
 menu.
 
m('5'):-
 clearwindow,
 write("Введите номер зачетной книжки, запись которой надо удалить"),nl,
 readln(number_kn),
 retract(Vedomost(_,number_kn,_,_,_,_)),
 menu. 
 
m('0'):-
 save("Vedomosti.ddb"),
 retractall(_).
 
m(_):-
 menu.
   
GOAL
Start

Выдает ошибку в следующем месте:
assert(Vedomost(name,number_kn,number_group, Predmet,data,ozenka)),
От 2 переменных работает нормально.
Подскажите как исправить?
Заранее спасибо!

@Marisha-Angel · 25.01.2011, 14:21 **[ТС]**

Подскажите, пожалуйста! Выдает ошибку какую-то дурацкую:ожидается "," или ")".
Что это такое?

@Грымзик · 25.01.2011, 14:37

Вообще предикаты стоит с маленькой буквы называть, а переменные с большой. Может в турбо на это и не жалуется, но глюки какие-то вызывает. Вот так все компилиться, по крайней мере на визуал

Prolog

Domains
name,number_kn,predmet, data=string
number_group,ozenka=integer
file=f.
Database
vedomost(name,number_kn,number_group, predmet,data,ozenka)
Predicates
m(char).
menu.
start.
 
Clauses
start:-
 existfile("Vedomosti.ddb"),!,
 consult("Vedomosti.ddb"),
 menu.
 
start:-
 openwrite(f,"Vedomosti.ddb"),
 closefile(f),
 menu.
  
menu:-
 write("1 -"),nl,
 write("2 - "),nl,
 write("3 - Äîáàâëåíèå çàïèñè"),nl,
 write("4 - Èçìåíåíèå  çàïèñè"),nl,
 write("5 - Óäàëåíèå çàïèñè"),nl,
 write("0 - Âûõîä"),nl,
 readchar(C),
 m(C).
 
m('1'):-
 
 readchar(_),
 menu.
 
m('2'):-
 
 readchar(_),
 menu.
 
m('3'):-
 write("Ââåäèòå ôàìèëèþ"),nl,
 readln(Name),
 write("Ââåäèòå íîìåð çà÷åòíîé êíèæêè"),nl,
 readln(Number_kn),
 write("Ââåäèòå íîìåð ãðóïû"),nl,
 readint(Number_group),
 write("Ââåäèòå ïðåäìåò"),nl,
 readln( Predmet),
 write("Ââåäèòå äàòó"),nl,
 readln( Data),
 write("Ââåäèòå îöåíêó "),nl,
 readint(Ozenka),
 assert(vedomost(Name,Number_kn,Number_group, Predmet,Data,Ozenka)),
 menu.
 
m('4'):-
write("Ââåäèòå íîìåð çà÷åòíîé êíèæêè"),nl,
 readln(Number_kn),
 write("Ââåäèòå ôàìèëèþ"),nl,
 readln(Name),
 write("Ââåäèòå íîìåð ãðóïû"),nl,
 readint(Number_group),
 write("Ââåäèòå ïðåäìåò"),nl,
 readln( Predmet),
 write("Ââåäèòå äàòó"),nl,
 readln( Data),
 write("Ââåäèòå îöåíêó "),nl,
 readint(Ozenka),
 retract(vedomost(_,Number_kn,_,_,_,_)),
 assertz(vedomost(Name,Number_kn,Number_group, Predmet,Data,Ozenka)),
 menu.
 
m('5'):-
 write("Ââåäèòå íîìåð çà÷åòíîé êíèæêè, çàïèñü êîòîðîé íàäî óäàëèòü"),nl,
 readln(Number_kn),
 retract(vedomost(_,Number_kn,_,_,_,_)),
 menu. 
 
m('0'):-
 save("Vedomosti.ddb"),
 retractall(_).
 
m(_):-
 menu.
   
GOAL
start.

@Marisha-Angel · 26.01.2011, 10:25 **[ТС]**

Спасибо, все работает! БУду дальше делать!

Добавлено через 19 часов 25 минут
Скажите пожалуйста, а можно сделать так чтобы просмотреть все записи БД? В инете посмотрела, ничего похожего не нашла

@Грымзик · 26.01.2011, 10:52

Можно использовать findall, а можно, если только просмотреть надо

Prolog

1
2
3

all:-vedomost(Name,Number_kn,Number_group, Predmet,Data,Ozenka),
write(Name," ",Number_kn," ",Number_group," ",Predmet," ",Data," ",Ozenka,"\n"),fail.
all.

@Marisha-Angel · 27.01.2011, 09:37 **[ТС]**

Огромное спасибо, что бы я без вас делала!
Еще вопрос: как сделать, что бы выдавалось, что все студенты сдали программирование.

Prolog

m('1'):-
  makewindow(2,7,7,"‘вг¤Ґ*вл, *Ґ б¤*ўиЁҐ ЇаҐ¤¬Ґв",4,5,15,65),
 write("‚ўҐ¤ЁвҐ ЇаҐ¤¬Ґв"),
 readln(Predmet),
 p_Predmet(Predmet),
 readchar(_),
 removewindow,
 menu.
 
p_Predmet(Predmet):-
    vedomost(Name,Number_kn,Number_group,Predmet,Data,2),
    write(Name," ",Number_group,"\n"),fail.  
p_Predmet(Predmet).

@~~rrrFer~~ · 27.01.2011, 10:45

Marisha-Angel, надо попробовать найти студента который программирование не сдал и в случае если такого студента нету - выдать что все сдали

Добавлено через 8 минут
как-то так, например:

Prolog

    vedomost(string, integer)
    all
clauses  
    vedomost(ivanov,1).
    vedomost(petrov,1).
    vedomost(sidorov,1).
    
    all:-
        vedomost(_,0),!.
 
goal
    all,write("kto-to ne sdal");
        write("vse sdali").

@Marisha-Angel · 09.02.2011, 14:18 **[ТС]**

Все сделала, но нужно записи базы выводить по блокам. Как это можно реализовать.

@FireHawK · 12.02.2011, 10:50

присоединяюсь к ТС! помогите с постраничным, поблочным выводом всей БД.
в обработке пункта меню у меня заносится ФИО например в список и подсчитывается длина списка. так я знаю сколько всего записей, далее я делю целочисленно допустим на 10, и узнаю сколько страничек будет у меня выводится. потом вызываю write_all иии вот в этом правиле не очень работает вывод ( только когда число страниц = 0.

Prolog

      write_all(0,Fio):-
                  duchenik(Fio,Klass,Kuda,Post),
         nl,write(Fio," ",Klass," ",Kuda," ",Post),fail.
      write_all(0,Fio).
      write_all(K,Fio):-
         K<>0,         
         duchenik(Fio,Klass,Kuda,Post),
         nl,write(Fio,Klass,Kuda,Post),fail.
      write_all(K,Fio):- readchar(_),clearwindow.

@~~rrrFer~~ · 13.02.2011, 11:29

Prolog

domains     
    element=integer
    list=element*
predicates
    outLst(list,integer,integer)
clauses          
    outLst([],_,_):-!.
    outLst(L,0,C):-
        readchar(_),
        clearwindow,
        outLst(L,C,C),!.
    outLst([H|T],V,C):-
        write(H),nl,
        B=V-1,
        outLst(T,B,C).
goal
    L=[1,2,3,4,5,6,7,8,9,0,1,2,3,4,3,2,1,2,3,4,5,6,1,2,3,4,3,5,6,8,7,6,5,4,5,6,7,4,1],
    write(L),nl,outLst(L,10,10),readchar(_).

вывод вывод списка, на страницу выводится 10 элементов списка.

Добавлено через 1 минуту
для вывода аналогично БД, ИМХО надо использовать findall чтобы информацию из БД записать в список.

@Marisha-Angel 1 / 1 / 0 Регистрация: 26.06.2010 Сообщений: 23
	25.01.2011, 14:21 [ТС]	2
	Подскажите, пожалуйста! Выдает ошибку какую-то дурацкую:ожидается "," или ")". Что это такое? 0

@Marisha-Angel 1 / 1 / 0 Регистрация: 26.06.2010 Сообщений: 23
	26.01.2011, 10:25 [ТС]	4
	Спасибо, все работает! БУду дальше делать! Добавлено через 19 часов 25 минут Скажите пожалуйста, а можно сделать так чтобы просмотреть все записи БД? В инете посмотрела, ничего похожего не нашла 1

@Marisha-Angel 1 / 1 / 0 Регистрация: 26.06.2010 Сообщений: 23
	09.02.2011, 14:18 [ТС]	8
	Все сделала, но нужно записи базы выводить по блокам. Как это можно реализовать. 0

	13.02.2011, 11:29