1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

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

    irinaS Гость

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

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

    Код:
    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 Гость

    Репутация:
    0
    Код:
    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
    Просмотров:
    1.365
  2. ChuckNorris7
    Ответов:
    0
    Просмотров:
    1.155
  3. snakelight
    Ответов:
    2
    Просмотров:
    1.448
  4. igrokk
    Ответов:
    2
    Просмотров:
    1.601
  5. Thrillseeker
    Ответов:
    8
    Просмотров:
    2.333
Статус темы:
Закрыта.

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