Prolog. Найти Минимальный Элемент Из Введенных С Клавиатуры

Тема в разделе "Другие задачи", создана пользователем irinaS, 6 окт 2012.

Статус темы:
Закрыта.
  1. irinaS

    irinaS Гость

    Arity Prolog. Используя рекурсию, найти минимальный элемент из введенных с клавиатуры

    Не работает. Было много идей, но эта последняя.

    Код (Text):
    run:-
    write('Zkonchit vvod chisel 0'),nl,
    write('vvedi x'),nl,
    write('x='),read(X),nl,
    Rez is X,
    re(X,X,Rez).

    re(X,X,Rez):-
    X=:=0,write(Rez).

    re(X,X,Rez):-
    X/=0,Rez1 is X,X1 is X,
    write('x='),read(Y),nl,
    X>=Y,Rez1 is Y,X1 is Y,
    re(X1,X1,Rez1).
     
  2. rrrFer

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

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    Код (Text):
    predicates
    in( integer )
    in
    min( integer, integer, integer )
    p( integer, integer )
    goal
    in( Min ), nl, write( Min ), nl.
    clauses
    min( A, B, A ):- A<B.
    min( _, B, B ).
    in :-
    write( "continue? (y/n)" ), nl,
    readln( C ),!, C = "y";!,fail.
    p( V, V ):-
    NOT( in ), !.
    p( V, Min ):-
    in(Min_), min( Min_, V, Min ).

    in( Min ):-
    write("num: "), readInt( V ),!, p(V, Min).
    На арити сам переведешь )
     
Загрузка...
Похожие Темы - Prolog Найти Минимальный
  1. 203
    Ответов:
    0
    Просмотров:
    808
  2. ChuckNorris7
    Ответов:
    0
    Просмотров:
    1.066
  3. snakelight
    Ответов:
    2
    Просмотров:
    1.377
  4. igrokk
    Ответов:
    2
    Просмотров:
    1.497
  5. Thrillseeker
    Ответов:
    8
    Просмотров:
    2.144
Статус темы:
Закрыта.

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