Перевести код из turbo prolog в visual prolog

@sadykoff · Регистрация: 16.05.2018

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

не подскажите плиз как будет выглядеть код turbo prolog в Visual Prologe 5.2

turbo prolog:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
domains
int=integer
intl=int*
intll=intl*
 
predicates
task(intl)
next(intl,intl)
 
clauses
 
next([5,5,5],[]). 
next([X,Y,Z],[X,Y,Z1]) :- Z<5, Z1=Z+1, !.
next([X,Y,5],[X,Y1,-5]) :- Y<5, Y1=Y+1, !.
next([X,5,5],[X1,-5,-5]) :- X<5, X1=X+1, !.
 
task([]).
task([X,Y,Z]) :- 2*X+7*Y-3*Z=4, write("X=",X," Y=",Y," Z=",Z),nl, next([X,Y,Z],[XX,YY,ZZ]), task([XX,YY,ZZ]), !. 
task([X,Y,Z]) :- 2*X+7*Y-3*Z<>4, next([X,Y,Z],[XX,YY,ZZ]), task([XX,YY,ZZ]), !. 
 
goal
task([-5,-5,-5])

@Black Fregat · 16.05.2018, 11:19

А не пробовали запускать? По идее, должен прямо так работать.

@sadykoff · 16.05.2018, 16:24 **[ТС]**

Я на прологе совсем новичок . Поэтому не так уж и разбираюсь )
Да по идее должно было работать , на турбо она работает , и вот вставляю в визуал там эрроры
вот скриншот .

Вложение 937747

@Black Fregat · 16.05.2018, 19:18

Не вижу вложения..

@Black Fregat · 17.05.2018, 19:30

Не знаю, какие у Вас "эрроры", вложения так и не вижу
У меня пошло сходу, только точку в конце добавил.

Вот результат, если интересно

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
X=-5 Y=2 Z=0
X=-4 Y=0 Z=-4
X=-4 Y=3 Z=3
X=-3 Y=1 Z=-1
X=-2 Y=-1 Z=-5
X=-2 Y=2 Z=2
X=-1 Y=0 Z=-2
X=-1 Y=3 Z=5
X=0 Y=1 Z=1
X=1 Y=-1 Z=-3
X=1 Y=2 Z=4
X=2 Y=0 Z=0
X=3 Y=-2 Z=-4
X=3 Y=1 Z=3
X=4 Y=-1 Z=-1
X=5 Y=-3 Z=-5
X=5 Y=0 Z=2

Что-то Вы не так делаете.. Сверьте по шагам: Объясните что к чему

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Black Fregat Фрилансер 3709 / 2083 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	16.05.2018, 11:19
	А не пробовали запускать? По идее, должен прямо так работать. 0

@sadykoff 0 / 0 / 0 Регистрация: 16.05.2018 Сообщений: 2
	16.05.2018, 16:24 [ТС]
	Я на прологе совсем новичок . Поэтому не так уж и разбираюсь ) Да по идее должно было работать , на турбо она работает , и вот вставляю в визуал там эрроры вот скриншот . Вложение 937747 0

@Black Fregat Фрилансер 3709 / 2083 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	16.05.2018, 19:18
	Не вижу вложения.. 0

Опции темы