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

Узнай цену своей работы

Формулировка задачи:

Добрый день! Есть рабочий текст программы и бд которую он считывает. Мне нужно, что бы в этой бд вместо целых числе можно было писать текст. Пробовал менять тип домена (из integer на symbol и на char), но тогда программа не работает. Помогите пожалуйста, а то я в этом деле дуб.
Листинг программы 
  1. CODE=12050
  2.  
  3. /*           **************************
  4.              *   КУРСОВАЯ   РАБОТА    *
  5.              *                        *
  6.              *                        *
  7.              **************************
  8. */
  9.  
  10. domains
  11.         
  12.   i,c,d,f=integer
  13.       a,b,m,t=symbol
  14. database -svod1
  15.           svod1(a,b,c,d,f,m,t)
  16. database -lolo
  17.           lolo(a,b,c,d,f,m,t)
  18. database -kuku
  19.           kuku(a,b,c,d,f,m,t)
  20. database
  21.          svod(a,b,c,d,f,m,t)
  22.         predicates
  23.  
  24.         start
  25.         patch
  26.         load
  27.         select(i)
  28.         sel(i,i)
  29.         process(i)
  30.         procedure(i)
  31.         sve(i)
  32.         lod(i)
  33.         repeat
  34.  
  35. goal
  36.         start.
  37.  
  38. clauses
  39. /*Процедура создания основного меню и загрузки базы данных*/
  40.         start:-
  41.             makewindow(1,26,94,"КАТАЛОГ ФАКУЛЬТАТИВОВ",0,0,25,80),
  42.             clearwindow,
  43.             load,
  44.             patch.
  45. /*Процедура управления основным меню*/
  46.         patch:-
  47.             repeat,
  48.             cursor(7,0),
  49.             write("                     0 - О пpогpамме...  "),nl,
  50.             write("                     1 - коррекция данных"),nl,
  51.             write("                     2 - удаление данных"),nl,
  52.             write("                     3 - просмотр базы"),nl,
  53.             write("                     4 - загрузка базы"),nl,
  54.             write("                     5 - сохранение базы"),nl,
  55.             write("                     6 - создание новой базы"),nl,
  56.             write("                     7 - ввод новых данных"),nl,
  57.             write("                     8 - просмотр-добавление"),nl,
  58.             write("                     9 - выход из программы"),nl,
  59.             write("                     =>"),
  60.             readint(Choice),
  61.             Choice >= 0,
  62.             Choice < 10,
  63.             clearwindow,
  64.             process(Choice),
  65.             clearwindow,
  66.             Choice = 9,
  67.             retractall(_),
  68.             removewindow.
  69. /*Процедура поиска и загрузки файла содержащего базу данных*/
  70.         load:-
  71.             existfile("ilgiz.dat"),
  72.             consult("ilgiz.dat"),
  73.             cursor(1,2),
  74.             write("База загружена").
  75.         load:-
  76.             makewindow(2,74,79,"ОШИБКА",6,18,8,40),
  77.             cursor(2,10),
  78.             write("Нет базы на диске"),
  79.             readchar(_),
  80.             removewindow,
  81.             !.
  82. /*Пpоцедуpа ввода новых данных*/
  83.         process(7):-
  84.         makewindow(1,2,7,"Ввод новых данных",0,0,25,80),
  85.             nl,
  86.             write("Введите название факультатива                     :"),readln(K),nl,
  87.             write("Введите Длительность факультатива                      :"),readln(O),nl,
  88.             write("Введите имя преподавателя                           :"),readint(I),nl,
  89.             write("Введите время начала     :"),readint(Y),nl,
  90.             write("Введите Для каких классов проводится                   :"),readint(T),nl,
  91.             write("Введите кабинет                             :"),readln(FF),nl,
  92.             write("Введите дни проведения                             :"),readln(HH),nl,
  93.              
  94.             N1=K,NA1=O,KO1=I,OB1=Y,PL1=T,FF1=FF,HH1=HH,
  95.             assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
  96.             removewindow,
  97.             fail.
  98. /*Процедура просмотра-добавления*/
  99.          process(8):-
  100.          makewindow(1,2,7,"Просмотр-добавление",0,0,25,80),
  101.          nl,
  102.          write("Введите Название факультатива:"),readln(A),nl,nl,
  103.          svod(KY,NA,N,OB,PL,FFF,HHH),
  104.          A=KY,
  105.          write("Название факультатива                         :"),write(KY),nl,
  106.          write("Длительность факультатива                  :"),write(NA),nl,
  107.          write("Имя преподавателя                       :"),write(N),nl,
  108.          write("Время начала :"),write(OB),nl,
  109.          write("Для каких классов проводится               :"),write(PL),nl,nl,nl,
  110.          write("Кабинет                         :"),write(FFF),nl,
  111.          write("Дни проведения                         :"),write(HHH),nl,
  112.          write("Нажмите на любую клавишу"),
  113.          readchar(_),
  114.          removewindow,
  115.          !.
  116.          process(8):-
  117. write("Этого названия факультатива нет в базе."),
  118. write("Повторите введенное название факультатива и продолжайте ввод данных"),nl,nl,nl,
  119. write("Введите Название факультатива:"),
  120.          readln(A),nl,
  121.          A=N1,
  122.          write("Введите Длительность факультатива                  :"),readln(F),nl,
  123.          write("Введите Имя преподавателя                       :"),readint(Y),nl,
  124.          write("Введите Время начала :"),readint(J),nl,
  125.          write("Введите Для каких классов проводится               :"),readint(G),nl,
  126.          write("Введите Кабинет                         :"),readln(L),nl,
  127.          write("Введите Дни проведения                         :"),readln(M),nl,
  128.          
  129.          NA1=F,KO1=Y,OB1=J,PL1=G,FF1=L,HH1=M,
  130.          assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
  131.          removewindow,
  132.          fail.
  133.  
  134. /*Пpоцедуpа вывода данных о пpогpамме*/
  135.          process(0):-
  136.          makewindow(1,27,30,"О пpогpамме...",0,0,25,80),nl,nl,
  137. write("                     Инфоpмационно-спpавочная система"),nl,nl,
  138. write("                     обслуживающая работу с базои данных BSO"),nl,nl,
  139. write("                        Язык-TURBO-PROLOG v.2.0.     "),nl,nl,
  140. write("                            автоp: Косячко Р. В. "),nl,nl,
  141. write("                      УГХТУ, 5-ИС  (с) 2015 г. "),nl,
  142. cursor(20,24),
  143. write("Нажмите на любую клавишу"),
  144.          readchar(_),
  145.          removewindow.
  146.  
  147. /*Процедура изменения содержимого записей базы данных*/
  148.         process(1):-
  149.         makewindow(1,2,7,"Коppекция данных",0,0,25,80),
  150.             nl,
  151.             select(N),
  152.             X=N,
  153.             svod(KY,NA,X,OB,PL,FFF,HHH),
  154.             write("Название факультатива                     :"),write(N),nl,
  155.             write("Длительность факультатива                      :"),write(NA),nl,
  156.             write("Имя преподавателя                           :"),write(X),nl,
  157.             write("Время начала     :"),write(OB),nl,
  158.             write("Для каких классов проводится                   :"),write(PL),nl,
  159.             write("Кабинет                             :"),write(FFF),nl,
  160.             write("Дни проведения                             :"),write(HHH),nl,
  161.             nl,
  162.             write("Введите Название факультатива:"),readln(N1),
  163.             write("Введите Длительность факультатива:"),readln(NA1),nl,
  164.             write("Введите Имя преподавателя:"),readint(KO1),nl,
  165.             write("Введите Время начала:"),readint(OB1),nl,
  166.             write("Введите Для каких классов проводится:"),readint(PL1),nl,
  167.             write("Введите Кабинет:"),readln(FF1),nl,
  168.             write("Введите Дни проведения:"),readln(HH1),nl,          
  169.             retract(svod(KY,NA,KO,OB,PL,FFF,HHH)),
  170.             assert(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
  171.             !,
  172.             removewindow.
  173.  
  174. /*Процедура удаления записей из базы данных*/
  175.         process(2):-
  176.             makewindow(1,2,7,"Удаление записей",0,0,25,80),
  177.             nl,
  178.             select(N),
  179.             X=N,
  180.             svod(KY,NA,X,OB,PL,FFF,HHH),
  181.             retract(svod(KY,NA,X,OB,PL,FFF,HHH)),!,
  182.             removewindow.
  183.  
  184. /*Процедура просмотра содержимого базы данных*/
  185.         process(3):-
  186.         makewindow(1,2,7,"Просмотp базы",0,0,25,80),
  187.         nl,
  188. write("============================================================================="),nl,
  189. write("|                          КАТАЛОГ ФАКУЛЬТАТИВОВ                           |"),nl,
  190. write("============================================================================="),nl,
  191. write("|Название   |Длительность|Имя          |Время |Для каких |Кабинет|Дни       |"),nl,
  192. write("|           |            |преподавателя|начала|классов   |       |проведения|       "),nl,       
  193. write("============================================================================="),nl,
  194.            svod(KY,NA,N,OB,PL,FFF,HHH),
  195.  
  196.             cursor(Z,_),
  197.             cursor(Z,2),write(KY),
  198.             cursor(Z,12),write(NA),
  199.             cursor(Z,27),write(N),
  200.             cursor(Z,35),write(OB),
  201.             cursor(Z,46),write(PL),
  202.             cursor(Z,0),write("|"),
  203.             cursor(Z,56),write(FFF),
  204.             cursor(Z,67),write(HHH),
  205.             nl,
  206.             fail.
  207.         process(3):-
  208. write("------------------------------------------------------------------------------"),
  209. nl,
  210. write("Нажмите на любую клавишу"),
  211.            readchar(_),
  212.             removewindow.
  213.  
  214. /*Процедура загрузки в память базы данных*/
  215.         process(4):-
  216.             nl,
  217.             makewindow(2,15,4,"Загрузка",5,5,20,70),
  218.             write("1 - База будет загружена из указанного файла"),nl,
  219.             write("2 - База будет загружена из файла ilgiz.dat"),nl,
  220.             write("3 - Выход в основное меню"),nl,
  221.             write("==>"),
  222.             readint(C),
  223.             C>0,C<4,
  224.             lod(C),
  225.             !,
  226.             removewindow.
  227. /*Процедура сохранения базы данных*/
  228.         process(5):-
  229.             nl,
  230.             makewindow(2,15,4,"Запись",5,5,20,70),
  231.             write("1 - База будет записана в указанный файл"),nl,
  232.             write("2 - База будет записана в файл ilgiz.dat"),nl,
  233.             write("3 - Выход в основное меню"),nl,
  234.             write("==>"),
  235.             readint(I),
  236.             I>0,I<4,
  237.             sve(I),!,
  238.             removewindow.
  239.  /*Процедура выбора создания новой базы*/
  240.         process(6):-
  241.             nl,
  242.             makewindow(3,2,7,"Создание новой базы",0,0,25,80),
  243.             write("1 - База будет создана по Название факультативау           "),nl,
  244.             write("2 - База будет создана по году вступления в эксплуатацию"),nl,
  245.             write("3 - База будет создана по смете стоимости "),nl,
  246.             write("4 - Выход в основное меню"),nl,
  247.             write("==>"),
  248.             readint(O),
  249.             O>0,O<5,
  250.             procedure(O),
  251.             removewindow.
  252.             process(_).
  253.  
  254. /*Процедура создания новой базы данных и ее сохранения*/
  255.         procedure(1):-
  256.    makewindow(1,2,7,"Создание новой базы по Название факультативау",0,0,25,80),
  257.             nl,
  258.             cursor(7,10),
  259.             retractall(_,svod1),
  260.             nl,
  261.             write("Если вы хотите узнать данные  , то"),
  262.             nl,
  263.             write("Введите Название факультатива:"),
  264.             readln(X),
  265.             svod(KY,NA,N,OB,PL,FFF,HHH),
  266.             S=KY,
  267.             S=X,
  268.             NA1=Na,KO1=N,OB1=OB,PL1=PL,FF1=FFF,HH1=HHH,
  269.             assert(svod1(S,NA1,KO1,OB1,PL1,FF1,HH1)),
  270.             fail.
  271.  
  272.         procedure(1):-
  273. write("База создана"),nl,
  274. write("______________________________________________________________________________"),
  275. write("                     КАТАЛОГ ФАКУЛЬТАТИВОВ                           !"),
  276. write("------------------------------------------------------------------------------"),
  277. write("!         !              ! код !год         ! смета   !        адрес         !"),
  278. write("!  Название факультатива  ! Длительность факультатива ! СМУ !вступления в!стоимости! ----------------------"),
  279. write("!         !              !     !эксплуатацию!         !   раион  !   Дни проведения   !"),
  280. write("------------------------------------------------------------------------------"),
  281. nl,
  282.             svod1(S,NA,N,OB,PL,FFF,HHH),
  283.             cursor(Z,_),
  284.             cursor(Z,2),write(S),
  285.             cursor(Z,12),write(NA),
  286.             cursor(Z,27),write(N),
  287.             cursor(Z,35),write(OB),
  288.             cursor(Z,46),write(PL),
  289.             cursor(Z,56),write(FFF),
  290.             cursor(Z,67),write(HHH),
  291.            
  292.             nl,
  293.             fail.

Решение задачи: «Нужно подредактировать программу для возможности работы со строками»

textual
Листинг программы 
  1. database -svod1
  2.     svod1(a,b,c,d,f,m,t)
  3. database -lolo
  4.     lolo(a,b,c,d,f,m,t)
  5. database -kuku
  6.     kuku(a,b,c,d,f,m,t)
  7. database
  8.     svod(a,b,c,d,f,m,t)

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы