Найти количество всех положительных чисел в файле - Prolog
Формулировка задачи:
Всем привет, нужно написать программу, которая бы выдавала количество положительных чисел в файле. Код есть, успешно компилируется, но не выполняется: ругается на 19-ую строчку. "impossible to open file". Кто знает в чем проблема?
Листинг программы
- Domains
- file = f
- i = integer
- Predicates
- p(i)
- inc(i,i,i)
- Clauses
- inc(X,N,N1):-
- X>0,!,
- N1=N+1.
- inc(_,N,N).
- p(N):-
- readInt(I),!,
- write(I," "),
- p(TailN),
- inc(I,TailN,N).
- p(0).
- Goal
- openread(f,"C:\Documents and Settings\numbers.txt"),
- readdevice(f),
- p(N),
- write("Otvet: ",N),
- closefile(f).
Решение задачи: «Найти количество всех положительных чисел в файле»
textual
Листинг программы
- 1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
