Программа для Turbo Prolog не работает в SWI Prolog

@VisualNIK · Регистрация: 29.10.2012

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

Скажите пожалуйста как работать в SWI Prolog...я работал на турбопролог, вот например есть там решенная задачка:

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
PREDICATES
 
 window
 menu
 click(char)
 
CLAUSES
 
 
 
 window:-makewindow(1,4,10,"Main Wondow",0,0,10,20),
 write("Tsar"),nl,write("Tsarevich"),nl,write("Korol"),nl,
 write("Korolevich"),nl,write("Sapoznik"),nl,
 write("Portnoi"),cursor(Y,X),cursor(Y,0),
 field_attr(Y,0,10,10).
 
 menu:-readchar(KEY),click(KEY),menu.
  
 
 click(27):-removewindow.
 click('o'):-cursor(Y,X),Y>0,field_attr(Y,X,10,4),Y1=Y-1,
 cursor(Y1,X),field_attr(Y1,X,10,10).
 click('l'):-cursor(Y,X),Y<5,field_attr(Y,X,10,4),Y1=Y+1,
 cursor(Y1,X),field_attr(Y1,X,10,10).
 click(13):-cursor(Y,X),field_str(Y,X,10,S),
 makewindow(2,4,10,"Entered",0,0,3,20),write(S).
 click('o'):-cursor(Y,X),Y=0,menu.
 click('l'):-cursor(Y,X),Y=5,menu.
 
 
 
GOAL
 
 window,menu.

Вот есть она а как её реализовать на SWI prolog.. Я вроде слышал, что там Clauses нужно писать в другой файл???
как запускать вообще программу??

@nullxdth · 07.05.2013, 03:28

Сообщение от nvdrossii

Я вроде слышал, что там Clauses нужно писать в другой файл???

В простейшем случае факты и предложения можно организовать в один файл.
А вообще SWI-Prolog предоставляет вполне себе вменяемую систему модулей.

Сообщение от nvdrossii

как запускать вообще программу??

Есть несколько способов:

Запустить repl и загружать исходные файлы consult'ом. Также можно добавить факты/предложения прямо в repl'е --- consult(user) (или [user]).
Оформить как сценарий, добавив при этом shebang с ключами запуска (как минимум важнейший ключ --- toplevel goal).
Скомпилировать в бинарь (сохранить состояние prolog-машины).

Подробнее тут.

@rrrFer · 09.05.2013, 13:51

Есть несколько способов:

МБ ты знаешь как замутить на SWI статическую сборку?
если грузишь исходные файлы consult-ом или оформляешь как PrologScript то на целевой машине должен быть интерпретатор.
Я не помню флажков, которые применять пытался при сборке бинарника, но получилось сделать так, чтобы интерпретатор не требовался, однако требуется куча DLL/so. Я думаю, что можно кнешно завернуть все это в код на плюсах и присобачить уже туда эти DLL/so, но хотелось бы найти адекватное решение без извращений. Заморские форумы подсказали что, по крайней мере для линукса, это возможно, но не для всех архитектур (ну я так понял во всяком случае, но пруфлинк не найду).

@VisualNIK · 18.05.2013, 10:53 **[ТС]**

а как работать в SWI prolog с окнами? вот в этой задаче он не понимает ни makewindow, ни readchar()...

@rrrFer · 18.05.2013, 20:05

nvdrossii, там есть XPCE, кстати, по нему годный мануал и сам XPCE более чем дружелюбен

@Zagushka · 23.05.2013, 12:36

Code
1
2
3
4
5
6
7
8
9
10
11
Прямоугольник M x N камней (1 меньше равно M, N меньше равно 10 000) находится на бесконечной сетке. Камни находятся в узлах сетки.
Один игрок играет в следующую игру. Один камень может перепрыгнуть через соседний по горизонтали или вертикали на свободное место. Камень, через который перепрыгнули, убирается. Цель игры — минимизировать количество камней на сетке.
Напишите программу, которая по паре чисел M и N определяет минимальное количество камней, которое может остаться на сетке.
Исходные данные
Числа M и N, разделённые пробелом.
Результат
Минимальное количество камней, которое может остаться на сетке.
Пример
исходные данные   результат
3 4
2

Привет Всем, кто сможет такое решить? Или скинуть подобный алгоритм.... Ибо в прологе я -1... Могу подогнать 6знаки ICQ, если кому нужно...

@Zagushka · 29.05.2013, 11:43

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var m,n,sol:longint;
 var tg:longint;
begin
   readln (m,n);
  if m>n then
    begin
       tg:=m;
       m:=n;
     n:=tg;
  end;
   if m=1 then
     sol:=(n+1) div 2
   else
     if (m mod 3=0)or(n mod 3=0) then
      sol:=2
   else
      sol:=1;
 writeln (sol);
 end.

Кто сможет перевести паскаль в пролог? (((

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@VisualNIK 8 / 8 / 4 Регистрация: 29.10.2012 Сообщений: 167
	18.05.2013, 10:53 [ТС]
	а как работать в SWI prolog с окнами? вот в этой задаче он не понимает ни makewindow, ни readchar()... 1

@rrrFer Заблокирован
	18.05.2013, 20:05
	nvdrossii, там есть XPCE, кстати, по нему годный мануал и сам XPCE более чем дружелюбен 1