420 PROLOG.ERR missing

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

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

Подскажите как исправить ошибку при компиляции Error correction Line 20 Coll 11 Есть еще обычный текстовый файл in
Листинг программы 
  1. domains
  2. file=f;f_o
  3.  
  4. predicates
  5. find(string,string,integer)
  6. upper_file(string,string)
  7. transform(string,integer)
  8. prov(string,string,integer)
  9.  
  10. goal
  11. upper_file("in.txt","out.txt").
  12.  
  13. clauses
  14.  
  15. transform(FS,L):-
  16.           not(eof(f)),!,
  17.           readln(S),
  18.           prov(FS,S,L),
  19.           transform(FS,L).
  20. transform(FS,L):-       (в этой строке показывает ошибку на FS)
  21.           closefile(f),
  22.           closefile(f_o).
  23.  
  24. upper_file(N_F,N_o_F):-
  25.           existfile(N_F),!,
  26.           write("Введите искомую строку:"),nl,
  27.           readln(Find_Str),
  28.           str_len(Find_Str,L),
  29.           openread(f,N_F),
  30.           readdevice(f),
  31.           openwrite(f_o,N_o_F), 
  32.           writedevice(f_o),
  33.           transform(Find_Str,L).
  34. upper_file(N_F,_):-
  35.           write(" Файл с именем*",N_F," *не найден"). 
  36.  
  37. find(Subs,S,L):-
  38.          frontstr(L,S,Subs1,_),
  39.          Subs1=Subs,!.
  40. find(Subs,S,L):-
  41.          frontchar(S,_,S1),
  42.          find(Subs,S1,L).
  43.          
  44. prov(FS,S,L):-
  45.          find(FS,S,L),
  46.          write(S),
  47.          nl,!.
  48. prov(FS,S,L):- !.

Решение задачи: «420 PROLOG.ERR missing»

textual
Листинг программы 
  1. domains
  2. file=f;f_o
  3.  
  4. predicates
  5. find(string,string,integer)
  6. upper_file(string,string)
  7. transform(string,integer)
  8. prov(string,string,integer)
  9.  
  10. goal
  11. upper_file("in.txt","out.txt").
  12.  
  13. clauses
  14.  
  15. transform(FS,L):-
  16.           not(eof(f)),!,
  17.           readln(S),
  18.           prov(FS,S,L),
  19.           transform(FS,L).
  20. transform(FS,L):-
  21.           closefile(f),
  22.           closefile(f_o).
  23.  
  24. upper_file(N_F,N_o_F):-
  25.           existfile(N_F),!,
  26.           write("Введите искомую строку:"),nl,
  27.           readln(Find_Str),
  28.           str_len(Find_Str,L),
  29.           openread(f,N_F),
  30.           readdevice(f),
  31.           openwrite(f_o,N_o_F), 
  32.           writedevice(f_o),
  33.           transform(Find_Str,L).
  34. upper_file(N_F,_):-
  35.           write(" Файл с именем ",N_F," не найден"). 
  36.  
  37.  
  38. find(Subs,S,L):-
  39.          frontstr(L,S,Subs1,_),
  40.          Subs1=Subs,!.
  41. find(Subs,S,L):-
  42.          frontchar(S,_,S1),
  43.          find(Subs,S1,L).
  44.          
  45. prov(FS,S,L):-
  46.          find(FS,S,L),
  47.          write(S),
  48.          nl,!.
  49. prov(FS,S,L):- !.

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

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

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

6   голосов , оценка 3.833 из 5

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

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

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