VPF::Подсчет нечетных чисел в файле.

LomikXP

Дата 17.3.2010, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.3.2010

Репутация: нет
Всего: нет

Здравствуйте, у меня проблемка с "not" возникла, сам код:

Код


domains
    file=in
    i=integer
    X=integer
predicates
    writeit(i,i,i)
    readwrite(i,i)
    find
clauses
    writeit(' ',X1,X2):-!.
    writeit(X,X1,X2):- /*проверка на нечетность, использую char потому что readint не пашет.*/
        X3=X-48,
        X4=X3 mod 2,
        X2=X1+X4.
    readwrite(X,X3):-
        readchar(X2),
        writeit(X2,X,X1),
        X3=X1,
        not(eof(in)), /*<- здесь загвостка*/
        readwrite(X1,X4),
        X3=X4.
    find:-
        openread(in,"f.txt"), 
        readdevice(in),
        readwrite(0,X),
        closefile(in),
        write(X).

т.е. вылетает после not(eof(in)).
Суть программы в топике.
Буду благодарен за объяснение моей ошибки (:

P.S. Turbo PROLOG 2.0

Это сообщение отредактировал(а) LomikXP - 18.3.2010, 18:53

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »