Дмитрий Зубков
Был на сайте: 25.06.2021 02:58

Дмитрий Зубков vokbuz

Паспорт не верифицирован

Перенос программ в Visual Prolog 7.5 

  • 61
  • Опубликовано: 2015-12-25
% Copyright (c) 1984 - 2000 Prolog Development Center A/S
% Адаптация для Visual Prolog 7.5: Д.В.Зубков, vokbuz@ya.ru, 2015
/*****************************************************************************
Задача "Ханойская башня" является одной из самых древних логических задач и
заключается в перемещении пирамиды из n дисков с одного стержня на другой
с использованием вспомогательного стержня. Перемещения ограничиваются двумя
правилами:
- за один раз переносится только один диск;
- диски всегда должны располагаться в убывающей последовательности (больший диск
нельзя класть на меньший).
******************************************************************************/

implement main
open core, console

domains
loc = right;middle;left.

constants
n = 4. % число дисков в башне

class predicates
hanoi:(integer).
move:(integer,loc,loc,loc).
inform:(loc,loc).

clauses
hanoi(N) :-
move(N,left,middle,right).
move(1,A,_,C) :-
inform(A,C),
!.

move(N,A,B,C) :-
N1=N-1,
move(N1,A,C,B),
inform(A,C),
move(N1,B,A,C).

inform(Loc1, Loc2) :-
write("\nПеренести диск с ", Loc1, " стержня на ", Loc2, " стержень").

run() :-
write("Число дисков в башне = ",n,"\n"),
hanoi(n),
write("\n\n[нажмите клавишу ВВОД...]"),
_ = stdio::readLine().

end implement main

goal
console::run(main::run).
Комментариев нет
оставить комментарий могут только авторизованные пользователи
Другие работы автора:

Многочисленные исправления и добавления на сайт zoloto999.ru Многочисленные доработки сайта zoloto999.ru. Создана англоязычная версия. Сайт сделан на NetCat.

Обновление функционала и дизайна сайта leinos.ru Доработаны бэкэнд и фронтэнд сайта http://leinos.ru, реализованного на M7 CMS. Корректировалась поисковая подсистема, добавлен раздел геолокации и др. Сайт очищен от троянских программ

Кириллица в БД Quickbooks Enterprise Solutions 14.0 Accounting Software for Small Business - Intuit Quickbooks Enterprise Solutions 14.0 обучен воспроизведению кириллических символов в базах данных программы

Простейший десятичный калькулятор средствами Logisim С использованием оригинальных идей и решений средствами ПО Logisim реализован простейший (сложение-вычитание-умножение-деление) целочисленный десятичный калькулятор. Ввод данных осуществляется унитарными кнопками, визуализация реализована на семисегм…

Автоматизация отпправки/приёма SMS средствами MikroTik Средствами языка сценариев роутера MikroTik RB951Ui-2nD с использованием модема Huawei E150 (прошивка МТС) реализован приём/отправка СМС-сообщений. Сообщения размещаются на flash-накопителе девайса с использованием FTP-подключения.

Программа подготовки наградных материалов Десктопная программа для массового формирования дипломов, сертификатов, аттестатов по предопределённым образцам/шаблонам

Программа для МК48 ; В программе используется сортировка методом пузырьковой возгонки. ; Бо'льшие числа перемещаются вверх к младшим адресам памяти через сравнение двух соседних ячеек ; Это код, который не проверен: ввод данных с третьей страницы ПП ; CLR A ; MOV P3A,…

Парсинг PDF-файлов Готовые решения для адаптивного переноса содержимого pdf-файлов в иные форматы