Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Бинарные деревья. Перевод программы на Visual Prolog
Ответ
 
Опции темы Опции просмотра
  (#16 (permalink)) Старый
xMizar xMizar вне форума
Новичок
 
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.10.2011
По умолчанию 28.10.2011, 10:26

Проект консольный. Полный код файла main.pro:

Visual Prolog Код:
implement main
open core, console

constants
className = "main".
classVersion = "".
clauses
    classInfo(className, classVersion).
domains
treetype = tree(char, treetype, treetype); nil().

class predicates
in : (char, treetype) determ.
clauses
in(X, tree(X,_,_)):- !.
in(X, tree(_,L,_)):- in(X, L), !.
in(X, tree(_,_,R)):- in(X, R).

run():-
    console::init(),
    Tree = tree('a', tree('b', tree('d', nil, nil),
        tree('e', nil, nil)), nil),
    write("Введите символ: > "),    
    X = readChar(), clearInput(),
    if in(X, Tree) then
        write("принадлежит")
    else    
        write("не принадлежит")
    end if,
    _ = readLine().
end implement main

goal
mainExe::run(main::run).
Ответить с цитированием
  (#17 (permalink)) Старый
Alison Alison вне форума
Member
 
Сообщений: 4,781
Сказал(а) спасибо: 0
Поблагодарили 119 раз(а) в 116 сообщениях
Регистрация: 17.11.2004
По умолчанию 28.10.2011, 11:11

Ну, и что же? Все работает. Все вводится, проверяется и выводится.

Когда линковка шла и появлялось окошко с вопросом добавить ли то, что требуется, Вы нажали кнопку "Add" или "Add All"? Это надо делать обязательно.
В общем, ясно, что проблема не в программе и не в VIP 7.3. А в том, что конкретно Вы там делаете, т.к. у всех остальных все работает.
Можете еще попробовать удалить папку Obj из директории проекта, а потом запустить из меню Rebuild All. Или сделать новый проект, если в этом Вы что-то совсем делали не так.
Ответить с цитированием
  (#18 (permalink)) Старый
xMizar xMizar вне форума
Новичок
 
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.10.2011
По умолчанию 29.10.2011, 14:18

Нажимал "Add All". Спасибо большое за советы. Буду ковыряться
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
списки и бинарные деревья ab_walker Prolog 5 25.12.2011 17:05
Бинарные деревья Leks100 Вопросы начинающих программистов 1 13.12.2011 11:19
бинарные деревья!!!! adekvatnaya Prolog 1 22.11.2011 23:35
Бинарные деревья ( Turbo Prolog ) Королёв Виктор Prolog 0 22.11.2011 19:36
Бинарные деревья, помогите!!! bigmen Prolog 3 22.11.2011 01:37
Бинарные деревья SanyOk Prolog 0 21.04.2011 15:12
Бинарные деревья: строгие и сбалансированные, их глубина yaLex Prolog 27 03.11.2010 02:02
Обсуждаем перевод книги “Visual Prolog 7.0 for Tyros” Elizabeth Safro Prolog 99 11.05.2009 01:31
Перевод программы из CBuilder из Visual C++ ГЫнок C++ Builder 21 22.03.2009 20:34
бинарные деревья в С++ Aspirine Задания за деньги 0 21.09.2008 15:26
Бинарные деревья как с ними работать polecat Pascal 2 18.12.2005 22:29
Перевод программы из С++ на Visual C++ BD Visual C++ 9 13.12.2005 13:13



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов