Ответ в теме: Количество положительных и отрицательных чисел в файле Visual Prolog

      Комментарии к записи Ответ в теме: Количество положительных и отрицательных чисел в файле Visual Prolog отключены
#2935

Ketrin
Участник

predicates
  file_read (integer,integer)
  
 p(integer,integer,symbol)
clauses
file_read(K,T):-
  eof(f1), 
  clozefile(f1),!.
file_read(K,T):-
  eof(f1), 
  readint(X), 
  X > 0,
  K1=K+1,
  file_read(K1,T); 
  not(eof(f1)),
  T1=T+1, 
  file_read(K,T1).
   
 p(K1,T1,Z):-
   K1 > T1,Z="Да";
   Z="Нет".
 
goal 
  openread(f1,"F:/2.txt"), 
  readdevice(f1),
  file_read(0,0),
  p(K,T,Z), 
  write(Z). 

Посмотрите что теперь не так, вроде все прописано