Нужно подредактировать программу для возможности работы со строками

@said_ua · Регистрация: 08.05.2015

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

Добрый день! Есть рабочий текст программы и бд которую он считывает. Мне нужно, что бы в этой бд вместо целых числе можно было писать текст. Пробовал менять тип домена (из integer на symbol и на char), но тогда программа не работает. Помогите пожалуйста, а то я в этом деле дуб.

Prolog

CODE=12050
 
/*           **************************
             *   КУРСОВАЯ   РАБОТА    *
             *                        *
             *                        *
             **************************
*/
 
 
domains
        
  i,c,d,f=integer
      a,b,m,t=symbol
database -svod1
          svod1(a,b,c,d,f,m,t)
database -lolo
          lolo(a,b,c,d,f,m,t)
database -kuku
          kuku(a,b,c,d,f,m,t)
database
         svod(a,b,c,d,f,m,t)
        predicates
 
        start
        patch
        load
        select(i)
        sel(i,i)
        process(i)
        procedure(i)
        sve(i)
        lod(i)
        repeat
 
 
goal
        start.
 
clauses
/*Процедура создания основного меню и загрузки базы данных*/
        start:-
            makewindow(1,26,94,"КАТАЛОГ ФАКУЛЬТАТИВОВ",0,0,25,80),
            clearwindow,
            load,
            patch.
/*Процедура управления основным меню*/
        patch:-
            repeat,
            cursor(7,0),
            write("                     0 - О пpогpамме...  "),nl,
            write("                     1 - коррекция данных"),nl,
            write("                     2 - удаление данных"),nl,
            write("                     3 - просмотр базы"),nl,
            write("                     4 - загрузка базы"),nl,
            write("                     5 - сохранение базы"),nl,
            write("                     6 - создание новой базы"),nl,
            write("                     7 - ввод новых данных"),nl,
            write("                     8 - просмотр-добавление"),nl,
            write("                     9 - выход из программы"),nl,
            write("                     =>"),
            readint(Choice),
            Choice >= 0,
            Choice < 10,
            clearwindow,
            process(Choice),
            clearwindow,
            Choice = 9,
            retractall(_),
            removewindow.
/*Процедура поиска и загрузки файла содержащего базу данных*/
        load:-
            existfile("ilgiz.dat"),
            consult("ilgiz.dat"),
            cursor(1,2),
            write("База загружена").
        load:-
            makewindow(2,74,79,"ОШИБКА",6,18,8,40),
            cursor(2,10),
            write("Нет базы на диске"),
            readchar(_),
            removewindow,
            !.
/*Пpоцедуpа ввода новых данных*/
        process(7):-
        makewindow(1,2,7,"Ввод новых данных",0,0,25,80),
            nl,
            write("Введите название факультатива                     :"),readln(K),nl,
            write("Введите Длительность факультатива                      :"),readln(O),nl,
            write("Введите имя преподавателя                           :"),readint(I),nl,
            write("Введите время начала     :"),readint(Y),nl,
            write("Введите Для каких классов проводится                   :"),readint(T),nl,
            write("Введите кабинет                             :"),readln(FF),nl,
            write("Введите дни проведения                             :"),readln(HH),nl,
             
            N1=K,NA1=O,KO1=I,OB1=Y,PL1=T,FF1=FF,HH1=HH,
            assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
            removewindow,
            fail.
/*Процедура просмотра-добавления*/
         process(8):-
         makewindow(1,2,7,"Просмотр-добавление",0,0,25,80),
         nl,
         write("Введите Название факультатива:"),readln(A),nl,nl,
         svod(KY,NA,N,OB,PL,FFF,HHH),
         A=KY,
         write("Название факультатива                         :"),write(KY),nl,
         write("Длительность факультатива                  :"),write(NA),nl,
         write("Имя преподавателя                       :"),write(N),nl,
         write("Время начала :"),write(OB),nl,
         write("Для каких классов проводится               :"),write(PL),nl,nl,nl,
         write("Кабинет                         :"),write(FFF),nl,
         write("Дни проведения                         :"),write(HHH),nl,
         write("Нажмите на любую клавишу"),
         readchar(_),
         removewindow,
         !.
         process(8):-
write("Этого названия факультатива нет в базе."),
write("Повторите введенное название факультатива и продолжайте ввод данных"),nl,nl,nl,
write("Введите Название факультатива:"),
         readln(A),nl,
         A=N1,
         write("Введите Длительность факультатива                  :"),readln(F),nl,
         write("Введите Имя преподавателя                       :"),readint(Y),nl,
         write("Введите Время начала :"),readint(J),nl,
         write("Введите Для каких классов проводится               :"),readint(G),nl,
         write("Введите Кабинет                         :"),readln(L),nl,
         write("Введите Дни проведения                         :"),readln(M),nl,
         
         NA1=F,KO1=Y,OB1=J,PL1=G,FF1=L,HH1=M,
         assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
         removewindow,
         fail.
 
/*Пpоцедуpа вывода данных о пpогpамме*/
         process(0):-
         makewindow(1,27,30,"О пpогpамме...",0,0,25,80),nl,nl,
write("                     Инфоpмационно-спpавочная система"),nl,nl,
write("                     обслуживающая работу с базои данных BSO"),nl,nl,
write("                        Язык-TURBO-PROLOG v.2.0.     "),nl,nl,
write("                            автоp: Косячко Р. В. "),nl,nl,
write("                      УГХТУ, 5-ИС  (с) 2015 г. "),nl,
cursor(20,24),
write("Нажмите на любую клавишу"),
         readchar(_),
         removewindow.
 
/*Процедура изменения содержимого записей базы данных*/
        process(1):-
        makewindow(1,2,7,"Коppекция данных",0,0,25,80),
            nl,
            select(N),
            X=N,
            svod(KY,NA,X,OB,PL,FFF,HHH),
            write("Название факультатива                     :"),write(N),nl,
            write("Длительность факультатива                      :"),write(NA),nl,
            write("Имя преподавателя                           :"),write(X),nl,
            write("Время начала     :"),write(OB),nl,
            write("Для каких классов проводится                   :"),write(PL),nl,
            write("Кабинет                             :"),write(FFF),nl,
            write("Дни проведения                             :"),write(HHH),nl,
            nl,
            write("Введите Название факультатива:"),readln(N1),
            write("Введите Длительность факультатива:"),readln(NA1),nl,
            write("Введите Имя преподавателя:"),readint(KO1),nl,
            write("Введите Время начала:"),readint(OB1),nl,
            write("Введите Для каких классов проводится:"),readint(PL1),nl,
            write("Введите Кабинет:"),readln(FF1),nl,
            write("Введите Дни проведения:"),readln(HH1),nl,          
            retract(svod(KY,NA,KO,OB,PL,FFF,HHH)),
            assert(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
            !,
            removewindow.
 
 
/*Процедура удаления записей из базы данных*/
        process(2):-
            makewindow(1,2,7,"Удаление записей",0,0,25,80),
            nl,
            select(N),
            X=N,
            svod(KY,NA,X,OB,PL,FFF,HHH),
            retract(svod(KY,NA,X,OB,PL,FFF,HHH)),!,
            removewindow.
 
/*Процедура просмотра содержимого базы данных*/
        process(3):-
        makewindow(1,2,7,"Просмотp базы",0,0,25,80),
        nl,
write("============================================================================="),nl,
write("|                          КАТАЛОГ ФАКУЛЬТАТИВОВ                           |"),nl,
write("============================================================================="),nl,
write("|Название   |Длительность|Имя          |Время |Для каких |Кабинет|Дни       |"),nl,
write("|           |            |преподавателя|начала|классов   |       |проведения|       "),nl,       
write("============================================================================="),nl,
           svod(KY,NA,N,OB,PL,FFF,HHH),
 
            cursor(Z,_),
            cursor(Z,2),write(KY),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(OB),
            cursor(Z,46),write(PL),
            cursor(Z,0),write("|"),
            cursor(Z,56),write(FFF),
            cursor(Z,67),write(HHH),
            nl,
            fail.
        process(3):-
write("------------------------------------------------------------------------------"),
nl,
write("Нажмите на любую клавишу"),
           readchar(_),
            removewindow.
 
/*Процедура загрузки в память базы данных*/
        process(4):-
            nl,
            makewindow(2,15,4,"Загрузка",5,5,20,70),
            write("1 - База будет загружена из указанного файла"),nl,
            write("2 - База будет загружена из файла ilgiz.dat"),nl,
            write("3 - Выход в основное меню"),nl,
            write("==>"),
            readint(C),
            C>0,C<4,
            lod(C),
            !,
            removewindow.
/*Процедура сохранения базы данных*/
        process(5):-
            nl,
            makewindow(2,15,4,"Запись",5,5,20,70),
            write("1 - База будет записана в указанный файл"),nl,
            write("2 - База будет записана в файл ilgiz.dat"),nl,
            write("3 - Выход в основное меню"),nl,
            write("==>"),
            readint(I),
            I>0,I<4,
            sve(I),!,
            removewindow.
 /*Процедура выбора создания новой базы*/
        process(6):-
            nl,
            makewindow(3,2,7,"Создание новой базы",0,0,25,80),
            write("1 - База будет создана по Название факультативау           "),nl,
            write("2 - База будет создана по году вступления в эксплуатацию"),nl,
            write("3 - База будет создана по смете стоимости "),nl,
            write("4 - Выход в основное меню"),nl,
            write("==>"),
            readint(O),
            O>0,O<5,
            procedure(O),
            removewindow.
            process(_).
 
/*Процедура создания новой базы данных и ее сохранения*/
        procedure(1):-
   makewindow(1,2,7,"Создание новой базы по Название факультативау",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,svod1),
            nl,
            write("Если вы хотите узнать данные  , то"),
            nl,
            write("Введите Название факультатива:"),
            readln(X),
            svod(KY,NA,N,OB,PL,FFF,HHH),
            S=KY,
            S=X,
            NA1=Na,KO1=N,OB1=OB,PL1=PL,FF1=FFF,HH1=HHH,
            assert(svod1(S,NA1,KO1,OB1,PL1,FF1,HH1)),
            fail.
 
        procedure(1):-
write("База создана"),nl,
write("______________________________________________________________________________"),
write("                     КАТАЛОГ ФАКУЛЬТАТИВОВ                           !"),
write("------------------------------------------------------------------------------"),
write("!         !              ! код !год         ! смета   !        адрес         !"),
write("!  Название факультатива  ! Длительность факультатива ! СМУ !вступления в!стоимости! ----------------------"),
write("!         !              !     !эксплуатацию!         !   раион  !   Дни проведения   !"),
write("------------------------------------------------------------------------------"),
nl,
            svod1(S,NA,N,OB,PL,FFF,HHH),
            cursor(Z,_),
            cursor(Z,2),write(S),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(OB),
            cursor(Z,46),write(PL),
            cursor(Z,56),write(FFF),
            cursor(Z,67),write(HHH),
           
            nl,
            fail.

@said_ua · 08.05.2015, 16:05 **[ТС]**

продолжение:

Prolog

        procedure(1):-
write("------------------------------------------------------------------------------"),
            save("not.dat",svod1),
            nl,
            write("База сохранена в файле not.dat"),
            nl,
            write("Нажмите любую клавишу"),
            readchar(_),
            removewindow,
            !.
 
        procedure(1):-
write("------------------------------------------------------------------------------"),
            nl,
            write("Невозможно сохранить созданную базу"),
            nl,
            write("Нажмите любую клавишу"),
            readchar(_),
            makewindow(1,2,7,"КАТАЛОГ ФАКУЛЬТАТИВОВ",0,0,25,80).
 
            procedure(2):-
    makewindow(1,2,7,"Создание новой базы по году вступления в эксплуатацию",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,lolo),
            nl,
write("Если вы хотите узнать данные по году создания объекта , то"),nl,
write("Введите год          :"),
            readint(X),
            svod(KY,NA,N,OB,PL,FFF,HHH),
            S=OB,
            S=X,
            N1=KY,NA1=NA,KO1=N,PL1=PL,FF1=FFF,HH1=HHH,
            assert(lolo(N1,NA1,KO1,S,PL1,FF1,HH1)),
            fail.
 
        procedure(2):-
write("База создана"),nl,
write("______________________________________________________________________________"),
write("           KАТАЛОГ СТРОИТЕЛЬНЫХ ОБЪЕКТОВ                                      "),
write("-----------------------------------------------------------------------------!"),
write("!         !              ! код !год         !  смета  !      адрес           !"),
write("!  Название факультатива  ! Длительность факультатива ! СМУ !вступления в!стоимости!----------------------!"),
write("!         !              !     !эксплуатацию!         !   Кабинет  !   Дни проведения   !"),
write("------------------------------------------------------------------------------"),
            lolo(KY,NA,N,S,PL,FFF,HHH),
            cursor(Z,_),
            cursor(Z,2),write(KY),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(S),
            cursor(Z,46),write(PL),
            cursor(Z,76),write("!"),
            cursor(Z,56),write(FFF),
            cursor(Z,67),write(HHH),
            nl,
            fail.
 
        procedure(2):-
write("-----------------------------------------------------------------------------"),
            save("not1.dat",lolo),
            nl,
            write("База сохранена в файле not1.dat"),
            nl,
            write("Нажмите любую клавишу"),
            readchar(_),
            removewindow,
            !.
 
        procedure(2):-
write("-----------------------------------------------------------------------------"),
            nl,
            write("Невозможно сохранить созданную базу"),
            nl,
            write("Нажмите любую клавишу"),
            readchar(_),
            makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80).
 
        procedure(3):-
     makewindow(1,2,7,"Создание базы данных по смете стоимости",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,kuku),
            nl,
   write("Если вы хотите узнать данные о наибольшей смете стоимости , то"),
            nl,
            write("Введите начальное значение сметы стоимости :"),
            readint(X),
            svod(KY,NA,N,OB,PL,FFF,HHH),
            S=PL,
            S>=X,
            N1=KY,NA1=NA,KO1=N,HH1=HHH,FF1=FFF,OB1=OB,
            assert(kuku(N1,NA1,KO1,OB1,S,FF1,HH1)),
            fail.
 
        procedure(3):-
write("База создана"),nl,
write("_____________________________________________________________________________"),nl,
write("                      КАТАЛОГ ФАКУЛЬТАТИВОВ                         !"),nl,
write("-----------------------------------------------------------------------------"),nl,
write("!         !              ! код ! год        !  смета  !  адрес              !"),nl,
write("!  Название факультатива  ! Длительность факультатива ! СМУ !вступления в!стоимости!----------------------"),nl,
write("!         !              !     !эксплуатацию!         !   раион  !   Дни проведения  !"),nl,
write("-----------------------------------------------------------------------------"),nl,
          kuku(KY,NA,N,OB,S,FFF,HHH),
            cursor(Z,_),
            cursor(Z,2),write(KY),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(OB),
            cursor(Z,46),write(S),
            cursor(Z,76),write("!"),
            cursor(Z,56),write(FFF),
            cursor(Z,67),write(HHH),
            nl,
            fail.
 
        procedure(3):-
write("-----------------------------------------------------------------------------"),
            save("not2.dat",kuku),
            nl,
            write("База сохранена в файле not.dat"),
            nl,
            write("Нажмите любую клавишу"),
            readchar(_),
            removewindow,
            !.
 
        procedure(3):-
write("-----------------------------------------------------------------------------"),
            nl,
            write("Невозможно сохранить созданную базу"),
            nl,
            write("Нажмите любую клавишу"),
            readchar(_),
            makewindow(1,2,7,"КАТАЛОГ ФАКУЛЬТАТИВОВ",0,0,25,80).
 
/*Процедура записи на диск*/
        sve(1):-
            write("Введите имя файла :"),
            readln(N),
            save(N),
            write("Все в порядке"),
            beep,
            !.
 
        sve(1):-
            write("Ошибка обмена, нажмите любую клавишу"),
            readchar(_).
 
        sve(2):-
            save("ilgiz.dat").
 
 
        sve(3).
/*Процедура чтения с диска*/
        lod(1):-
            retractall(_),
            write("Введите имя файла :"),
            readln(N),
            existfile(N),
            consult(N),
            write("Все в порядке"),
            beep,
            !.
 
        lod(1):-
            nl,
            write("Данного файла нет на диске"),nl,
            write("Нажмите любую клавишу"),
            readchar(_).
 
        lod(2):-
            retractall(_),
            existfile("ilgiz.dat"),
            consult("ilgiz.dat"),
            write("Все в порядке"),
            beep,
            !.
 
        lod(2):-
            write("Файла ilgiz.dat нет на диске"),nl,
            write("нажмите любую клавишу"),
            readchar(_).
 
        lod(3).
 
        repeat.
        repeat:- repeat.
 
/*Выбор записи*/
        select(N):-
        nl,
        write("1 - известен Название факультатива"),nl,
        write("2 - известно Длительность факультатива"),nl,
        write("3 - известно Имя преподавателя"),nl,
        write("4 - известен Время начала"),nl,
        write("5 - известна Для каких классов проводится"),nl,
        write("==>"),
        readint(X),
        sel(X,N).
 
        sel(1,N):-
        nl,
        write("Введите Название факультатива                :"),
        readln(M),
        svod(M,_,Z,_,_,_,_),
        N=Z.
 
        sel(1,N):-
        N=0.
 
        sel(2,N):-
        nl,
        write("Введите Длительность факультатива:"),
        readln(L),
        svod(_,L,Z,_,_,_,_),
        N=Z.
 
        sel(2,N):-
        N=0.
 
        sel(3,N):-
        nl,
        write("Введите Имя преподавателя: "),
        readint(F),
        svod(_,_,F,_,_,_,_),
        N=F.
 
        sel(3,N):-
        N=0.
 
        sel(4,N):-
        nl,
        write("Введите Время начала:"),
        readint(Q),
        svod(_,_,Z,Q,_,_,_),
        N=Z.
 
        sel(4,N):-
        N=0.
 
        sel(5,N):-
        nl,
        write("Введите Для каких классов проводится:"),
        readint(W),
        svod(_,_,Z,_,W,_,_),
        N=Z.

И сама БД:

Prolog

svod("москва","дом",32,1968,2314,"очаково","мира")
svod("москва","дом",12,1956,1243,"раменки","жукова")
svod("тверь","магазин",42,1975,2134,"мира","устинова")
svod("магадан","порт",23,1935,3245,"рыбачий","штормовая")

Спасибо!

@Black Fregat · 08.05.2015, 19:52

Ох уж эти партизаны..

Сообщение от said_ua

тогда программа не работает

Что не работает? Не компилируется? Зацикливается? Выдаёт неправильный результат?

Пишите, что именно у Вас не работает, будем добивать.

И это единственный способ, ибо база, прямо скажем, слабо читаема:

Сообщение от said_ua

Prolog

database -svod1
    svod1(a,b,c,d,f,m,t)
database -lolo
    lolo(a,b,c,d,f,m,t)
database -kuku
    kuku(a,b,c,d,f,m,t)
database
    svod(a,b,c,d,f,m,t)

@said_ua · 08.05.2015, 20:04 **[ТС]**

Мне нужно чтобы в базе вместо чисел можно было слова писать. Если поменять тип домена - программа не компилируется.

@Black Fregat · 09.05.2015, 03:21

Сообщение от said_ua

программа не компилируется.

Молча?

Добавлено через 50 секунд

Не по теме:

Можно подумать, это мне нужно - вытягивать информацию по одному слову

@said_ua 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 8
	08.05.2015, 20:04 [ТС]	4
	Мне нужно чтобы в базе вместо чисел можно было слова писать. Если поменять тип домена - программа не компилируется. 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	09.05.2015, 03:21	5
	Сообщение от said_ua программа не компилируется. Молча? Добавлено через 50 секунд Не по теме: Можно подумать, это мне нужно - вытягивать информацию по одному слову 0