Турбо Пролог

Тема в разделе "Другие", создана пользователем jana22, 16 апр 2013.

  1. jana22

    jana22 New Member

    Регистрация:
    16 апр 2013
    Сообщения:
    1
    Симпатии:
    0
    Написать программу для нахождения максимального элемента дерева.Вот я попыталась решить ее, но мне выдает ошибку в описании , где уже ищет максимальный элемент!Помогите где моя ошибка?
    Код (Text):
    DOMAINS
    tree=tr(integer,tree,tree);nil
    PREDICATES
    derevo(tree)
    max(tree,integer,integer)
    CLAUSES
    derevo(tr(X,L,R)):-
    readint(X),X<>0,derevo(L),derevo®,!.
    derevo(nil):-!.
    max(tr(A,B),A):-A>=B,!.
    max(tr(_,B),B).

    max(tr(N,nil,nil),N).
    max(tr(F,L,R),F):-max(L,K),max(R,M),N>K,N>M.!.
    max(tr(_,L,R),K):-max(L,K),max(R,M),K>M,!.
    max(tr(_,_,R),M):-max(R,M).

    GOAL
    write("vvedite derevo"),nl,
    derevo(tr(X,L,R)),nl,
    write("Max= ",max)
     
  2. rrrFer

    rrrFer Well-Known Member
    Команда форума C\C++ Team

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    да все криво )
    Код (Text):
    max(A, B, A):- A > B, !. max(_, B, B).
    твое правило Мб и должно работать, но мне вот эти условия ненравяца: N>K,N>M.!. (тут может ломаца, ИМХО)

    Добавлено:
    Код (Text):
    max(tr(V, nil, nil), V):-!.
    max(tr(V, nil, R), X):- max(R, RM), max(V, RM, X).
    max(tr(V, L, nil), X):- max(L, LM), max(V, LM, X).
    max(tr(V, L, R), X):- max(L, LM), max(R, RM), max(V, LM, TX), max(TX, RM, X).
    не првоерял, могут быть опечатки
     
  3. Thrillseeker

    Thrillseeker New Member

    Регистрация:
    21 апр 2013
    Сообщения:
    4
    Симпатии:
    0
    Может Вы и мне помочь сможете?
     
  4. xakeruga30

    xakeruga30 New Member

    Регистрация:
    29 июл 2013
    Сообщения:
    1
    Симпатии:
    0
    Код (Text):
    max(tr(V, nil, nil), V):-!.
    max(tr(V, nil, R), X):- max(R, RM), max(V, RM, X).
    max(tr(V, L, nil), X):- max(L, LM), max(V, LM, X).
     
Загрузка...
Похожие Темы - Турбо Пролог
  1. авщалом
    Ответов:
    0
    Просмотров:
    857
  2. Elena19
    Ответов:
    0
    Просмотров:
    1.040
  3. bort
    Ответов:
    1
    Просмотров:
    1.181
  4. KalinaK
    Ответов:
    1
    Просмотров:
    1.698
  5. KalinaK
    Ответов:
    1
    Просмотров:
    1.609

Поделиться этой страницей