Способы получения ответов в VP 5.2

@KuroRyuu · Регистрация: 10.10.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, переношу экспертную из консольной в Визуал, но столкнулся в проблемой остановки предиката, чтобы получить ответ пользователя, сколько не гуглил, нормального примера найти не могу(
Нужен любой пример понятный, чтобы остановить выполнение предиката в какой то момент, и сделать пользователю запрос на ответ Да/Нет, с помощью button'ов или же ввода с клавиатуры.
В консольной было просто с помощью readchar(_), а в Визуал, что то никак не получается((
Надеюсь на помощь!) И спасибо отклинувшимся)

@Black Fregat · 13.06.2016, 12:03

Этот вопрос обсуждался с разработчиками ViP.. Даже в семерке очень проблематично, в пятерке, насколько я знаю, невозможно, к сожалению. Нельзя так просто "остановить" предикат и подождать реакции пользователя.
Нужно переделывать логику работы.

Вот ответ одного из специалистов из того обсуждения:

Впрямую консольную программу переделать обычно не удается. После каждого нажатия на кнопку, когда считывается ответ от пользователя в той или иной форме, генерацию вариантов нужно производить заново (предикат вызывать заново). Но ее можно ограничивать, учитывая ответы пользователя: менять пределы, в которых генерируются варианты, например.

@KuroRyuu · 13.06.2016, 12:10 **[ТС]**

Воу, печально очень, я тогда даже не знаю как бы это переделать(
Надо перебирать списки свойств, с помощью ответов да/нет (((

@Black Fregat · 13.06.2016, 12:31

Самый простой вариант примерно такой:
1) Ответы да/нет сохраняются в базе данных.
2) Предикат по ходу решения запрашивает ответы не у пользователя, а из базы
3) Наткнувшись на отсутствие ответа, предикат завершается с запросом к пользователю.
4) После выбора ответа пользователем этот ответ сохраняется в базе - и всё сначала.

@KuroRyuu · 13.06.2016, 20:10 **[ТС]**

Можно попросить маленький примерчик с запросом пользователя и выбора им ответа)
А то слишком плохо понимаю как тут идут такие запросы(

Добавлено через 7 часов 25 минут
Вот, может кто поможет перенести в визуал с консольки, а то что то никак((

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
domains
  lists = list*
  list = string
 
facts
  ingridient(string,string,lists)
  otvet_no(list)
  otvet_yes(list)
 
predicates
  tip_blud(string,string)
  game_started(string)
  vopros_po_tipu(string)
  vopros_po_ingridient(lists)
 
clauses
  game_started(Bludo):-
    tip_blud(X, Bludo),nl,
    vopros_po_tipu (X),
    ingridient (Name,X,Spisok),nl,
    vopros_po_ingridient (Spisok),
    write("Âû ìîæåòå ïîëó÷èòü ", X," - ", Name),nl.
 
  game_started(_):-
    write("Èçâèíèòå, íîëü ýìîöèé."),nl.
  
  vopros_po_tipu (Tip):-write("Âû õîòèòå ïðèãîòîâèòü "),
    write(Tip,"? (click y/n)"),
    readchar(Otvet), nl, Otvet='y'.
  
  vopros_po_ingridient ([]).
  vopros_po_ingridient ([H|T]):- otvet_yes(H),!, vopros_po_ingridient (T).
  vopros_po_ingridient ([H|_]):- otvet_no(H),!,fail.
  vopros_po_ingridient ([H|T]):-
    write("Âû èñïîëüçóåòå  "),
    write(H,", êàê èíãðèäèåíò? (click y/n)"),
    readchar(Otvet), nl, Otvet ='y',!, assertz(otvet_yes(H)),
    vopros_po_ingridient (T).
  vopros_po_ingridient ([H|_]):-assertz(otvet_no(H)),fail.
  
  
  tip_blud ("pervoe","bludo").
  tip_blud ("vtoroe","bludo").
 
  ingridient ("Product 1",
  "pervoe",["ingridient 1", "ingridient 2"]).
  ingridient ("Product 2.",
  "pervoe", ["ingridient 2", "ingridient 3"]).
 
 
  ingridient ("Product 3.",
  "vtoroe",["ingridient 1"]).
  ingridient ("Product 4.",
  "vtoroe",["ingridient 4", "ingridient 5"]).
 
goal
  game_started("bludo").

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@KuroRyuu 0 / 0 / 1 Регистрация: 10.10.2015 Сообщений: 19

	Способы получения ответов в VP 5.2 13.06.2016, 10:05. Показов 643. Ответов 4 Метки нет (Все метки) Здравствуйте, переношу экспертную из консольной в Визуал, но столкнулся в проблемой остановки предиката, чтобы получить ответ пользователя, сколько не гуглил, нормального примера найти не могу( Нужен любой пример понятный, чтобы остановить выполнение предиката в какой то момент, и сделать пользователю запрос на ответ Да/Нет, с помощью button'ов или же ввода с клавиатуры. В консольной было просто с помощью readchar(_), а в Визуал, что то никак не получается(( Надеюсь на помощь!) И спасибо отклинувшимся) 0

@KuroRyuu 0 / 0 / 1 Регистрация: 10.10.2015 Сообщений: 19
	13.06.2016, 12:10 [ТС]
	Воу, печально очень, я тогда даже не знаю как бы это переделать( Надо перебирать списки свойств, с помощью ответов да/нет ((( 0

@Black Fregat Фрилансер 3709 / 2083 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	13.06.2016, 12:31
	Самый простой вариант примерно такой: 1) Ответы да/нет сохраняются в базе данных. 2) Предикат по ходу решения запрашивает ответы не у пользователя, а из базы 3) Наткнувшись на отсутствие ответа, предикат завершается с запросом к пользователю. 4) После выбора ответа пользователем этот ответ сохраняется в базе - и всё сначала. 1