420 PROLOG.ERR missing

@Bodya169 · Регистрация: 26.05.2016

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

Подскажите как исправить ошибку при компиляции
Error correction Line 20 Coll 11
Есть еще обычный текстовый файл in

Prolog

domains
file=f;f_o
 
predicates
find(string,string,integer)
upper_file(string,string)
transform(string,integer)
prov(string,string,integer)
 
goal
upper_file("in.txt","out.txt").
 
clauses
 
transform(FS,L):-
          not(eof(f)),!,
          readln(S),
          prov(FS,S,L),
          transform(FS,L).
transform(FS,L):-       (в этой строке показывает ошибку на FS)
          closefile(f),
          closefile(f_o).
 
upper_file(N_F,N_o_F):-
          existfile(N_F),!,
          write("Введите искомую строку:"),nl,
          readln(Find_Str),
          str_len(Find_Str,L),
          openread(f,N_F),
          readdevice(f),
          openwrite(f_o,N_o_F), 
          writedevice(f_o),
          transform(Find_Str,L).
upper_file(N_F,_):-
          write(" Файл с именем*",N_F," *не найден"). 
 
 
find(Subs,S,L):-
         frontstr(L,S,Subs1,_),
         Subs1=Subs,!.
find(Subs,S,L):-
         frontchar(S,_,S1),
         find(Subs,S1,L).
         
prov(FS,S,L):-
         find(FS,S,L),
         write(S),
         nl,!.
prov(FS,S,L):- !.

@Catstail · 28.02.2017, 17:11

В 21 и 22-й строках (да и далее!) у функции closefile аргумент должен быть именем, начинающимся с загл. буквы.

@Bodya169 · 01.03.2017, 06:40 **[ТС]**

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

@arlat · 01.03.2017, 09:29

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

transform(FS,L):- (в этой строке показывает ошибку на FS)
closefile(f),
closefile(f_o).

Prolog

1
2
3

transform(_,_):-
  closefile(f),
  closefile(f_o).

@Bodya169 · 01.03.2017, 14:23 **[ТС]**

У Вас при этом нормально компиляция проходит?

@arlat · 01.03.2017, 16:01

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

У Вас при этом нормально компиляция проходит?

Это было предположение...
Собственно ваш код и без изменений у меня компилируется.

@arlat · 01.03.2017, 16:08

Prolog

domains
file=f;f_o
 
predicates
find(string,string,integer)
upper_file(string,string)
transform(string,integer)
prov(string,string,integer)
 
goal
upper_file("in.txt","out.txt").
 
clauses
 
transform(FS,L):-
          not(eof(f)),!,
          readln(S),
          prov(FS,S,L),
          transform(FS,L).
transform(FS,L):-
          closefile(f),
          closefile(f_o).
 
upper_file(N_F,N_o_F):-
          existfile(N_F),!,
          write("Введите искомую строку:"),nl,
          readln(Find_Str),
          str_len(Find_Str,L),
          openread(f,N_F),
          readdevice(f),
          openwrite(f_o,N_o_F), 
          writedevice(f_o),
          transform(Find_Str,L).
upper_file(N_F,_):-
          write(" Файл с именем ",N_F," не найден"). 
 
 
find(Subs,S,L):-
         frontstr(L,S,Subs1,_),
         Subs1=Subs,!.
find(Subs,S,L):-
         frontchar(S,_,S1),
         find(Subs,S1,L).
         
prov(FS,S,L):-
         find(FS,S,L),
         write(S),
         nl,!.
prov(FS,S,L):- !.

Это из файла скопировал назад на сайт.
У вас возможно с кодировкой что-то не то, мне пришлось преобразовывать в OEM 866.

Добавлено через 3 минуты
А, ну и это у меня PDC 3.21, турбо не имею, хотя это должно быть фактически одно и то же.

Добавлено через 1 минуту

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

420 PROLOG.ERR missing

А почему missing?

@Bodya169 · 02.03.2017, 12:14 **[ТС]**

Такую ошибку показывает при компиляции. Я уже запарился и так кручу и так эту программу не пойму как она работает. На турбо никак не запускается почему то. Если делаю как вы предположили то компилируется запускается(запрашивает искомую строку). Я так понимаю когда программа находит эту строку в файле in, она потом создает файл out и записывает туда эту строку или нужно создать вручную этот файл для записи?

@arlat · 02.03.2017, 12:34

да, кто его знает, я в турбо вообще году в 1990 один раз работал на лабах

могу кинуть pdc321 плюс там ваша задача как TEST1.PRO
заодно будет на форуме

@Bodya169 · 02.03.2017, 12:39 **[ТС]**

Спасибо) попробую разобраться)

@arlat · 02.03.2017, 12:42

да так же как в турбо должно быть, это ж разработка PDC, которая потом ушла в Борланд, а потом опять в PDC, и сейчас развилась до Visual-Prolog

@Bodya169 -19 / 0 / 0 Регистрация: 26.05.2016 Сообщений: 72
	02.03.2017, 12:39 [ТС]	10
	Спасибо) попробую разобраться) 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	28.02.2017, 17:11	2
	В 21 и 22-й строках (да и далее!) у функции closefile аргумент должен быть именем, начинающимся с загл. буквы. 0

@Bodya169 -19 / 0 / 0 Регистрация: 26.05.2016 Сообщений: 72
	01.03.2017, 06:40 [ТС]	3
	Не получается( Не могли бы вы показать в тексте программы как исправить если не сложно? 0

@Bodya169 -19 / 0 / 0 Регистрация: 26.05.2016 Сообщений: 72
	01.03.2017, 14:23 [ТС]	5
	У Вас при этом нормально компиляция проходит? 0

@arlat 794 / 598 / 156 Регистрация: 07.10.2013 Сообщений: 1,327
	01.03.2017, 16:01	6
	Сообщение от Bodya169 У Вас при этом нормально компиляция проходит? Это было предположение... Собственно ваш код и без изменений у меня компилируется. Миниатюры 0

@Bodya169 -19 / 0 / 0 Регистрация: 26.05.2016 Сообщений: 72
	02.03.2017, 12:14 [ТС]	8
	Такую ошибку показывает при компиляции. Я уже запарился и так кручу и так эту программу не пойму как она работает. На турбо никак не запускается почему то. Если делаю как вы предположили то компилируется запускается(запрашивает искомую строку). Я так понимаю когда программа находит эту строку в файле in, она потом создает файл out и записывает туда эту строку или нужно создать вручную этот файл для записи? 0

@arlat 794 / 598 / 156 Регистрация: 07.10.2013 Сообщений: 1,327
	02.03.2017, 12:42	11
	да так же как в турбо должно быть, это ж разработка PDC, которая потом ушла в Борланд, а потом опять в PDC, и сейчас развилась до Visual-Prolog 0