Лебедева Н.С. Методическое пособие по программированию на Turbo Prolog
Подождите немного. Документ загружается.
61
Параметр ширина окна – целое число, указывающее
число столбцов, занимаемых окном. Максимально
возможное значение – 80.
Если аргументы предиката makewindow являются
неозначенными переменными, то им присваиваются
значения параметров текущего окна.
Предикат shiftwindow – используется для смены текущего окна,
его формат:
shiftwindow (Window –number).
Если окно 1 является текущим, то задание предиката
shiftwindow (2) вызывает переназначение всех операций
ввода и вывода в окно 2. В то же время Турбо-Пролог
“помнит” предыдущее окно и его атрибуты. Например,
если окно 2 будет перекрывать окно 1, то выполнение
предиката shiftwindow (2) вызовет появление окна 2
перед окном 1. Информация из окна 1 сохраняется и
появится на экране, когда произойдет переключение и
окно 1 вновь станет текущим.
Предикат gotowindow используется для быстрого переключения
между двумя окнами, которые не перекрываются, его формат:
gotowindow (Window_number).
Предикат cleawindow используется для удаления из текущего
окна изображения. Окно и рамка окна не разрушаются. Окно
закрашивается соответствующим цветом фона.
Предикат не имеет аргументов.
Предикат removewindow используется для удаления текущего
окна с экрана.
Предикат не имеет аргументов.Если за окном находится
другое окно, то это окно и его содержимое становится
видимым.
Турбо-Пролог имеет звуковые средства, позволяющие производить
музыкальные звуки в широком диапазоне частот, управляя продолжи-
тельностью их звучания. В Турбо-Прологе имеются два предиката
генерации звуков:
sound
beep
62
Предикат sound производит звуковой сигнал.
Формат:
sound (длительность, частота).
Предикат beep генерирует звук высокой частоты.
Формат:
beep
Например, правило
do_beep:–
beep,
beep,
beep.
генерирует три звуковых сигнала. Данное правило можно использовать,
например, для того, чтобы привлечь внимание пользователя в
ситуации, когда требуется ввод какой-либо информации, или, чтобы
уведомить о наличии ошибочного состояния.
Таблица 8.1
Соответствие между значениями атрибута и цветом символа
для окон Турбо-Пролога
Цвет символа Значение
атрибута
Черный 0
Синий 1
Зеленый 2
Голубой 3
Красный 4
Фиолетовый 5
Коричневый 6
Белый 7
Серый 8
Светло-синий 9
Светло-зеленый 10
Светло-голубой 11
Светло-красный 12
Светло-фиолетовый 13
Желтый 14
63
Таблица 8.2
Соответствие между значениями атрибута и цветом фона
для окон Турбо-Пролога
Цвет фона Значение
атрибута
Черный 0
Синий 16
Зеленый 32
Голубой 48
Красный 64
Фиолетовый 80
Коричневый 96
Белый 112
Таблица 8.3
Значение атрибута, определяющего цвет рамки окна
в Турбо-Прологе
Вид рамки окна
Нет рамки 0
Синяя 1
Зеленая 2
Светло-синяя 3
Красная 4
Фиолетовая 5
Желтая 6
Белая 7
Коричневая 8
64
Рекомендуемая литература
Основная литература
1. Братко И. Программирование на языке Пролог для искусственного
интеллекта. − Москва: Мир, 1990. − 556 с.
2. Ин Ц., Соломон Д. Использование Турбо-Пролога. − Москва: Мир,
1993. − 606 с.
3. Доорс Дж., Рейблейн А., Вадера С. Пролог − язык программирования
будущего. – Москва: Финансы и статистика, 1990. − 140 с.
4. Клоксин У., Меллиш К. Программирование на языке Пролог. −
Москва: Мир, 1987. − 332 с.
5. Макаллистер Дж. Искусственный интеллект и Пролог на микро−
ЭВМ. – Санкт-Петербург: Машиностроение, 1990, − 235 с.
6. Стобо Дж. Язык программирования Пролог. − Москва: Радио и связь,
1993. − 368 с.
7. Стерлинг Л., Шапиро Э. Искусство программирования на языке
Пролог. – Москва: Мир, 1990. − 327 с.
8.
Янсон А. Турбо-Пролог в сжатом изложении. − Москва: Мир, 1991. −
94 с
.
9. Братенькин Д., Волков Н., Лебедева Н. Практикум по функционально−
логическому программированию. – Рига: РАУ, 1998. – 48 с.
Дополнительная литература
1. Березкин А. Программирование в Турбо-Прологе. Фонд кафедры
КИГвП, текстовый файл, 1999.
2. Лорьекр К. Системы искусственного интеллекта. − Москва: Мир,
1990. − 240 с.
3. Хоггер К. Введение в логическое программирование. − Москва: Мир,
1987. − 336 с.
65
Приложение 1. Лабораторные работы
Лабораторная работа 1
Работа с фактами и правилами
Цель и содержание работы
Целью работы является приобретение практических навыков по
составлению фактов, правил на языке Турбо-Пролог и работе с ними.
Разработать программу в соответствии с индивидуальным заданием,
которая должна содержать факты различных предикатов и не менее трех
правил. В программе должны быть использованы как внутренние, так и
внешние цели. Вариант индивидуального задания выбирается в
соответствии с номером по журналу.
Индивидуальные задания
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. Покупка / продажа компьютеров.
66
Контрольные вопросы
1. Объекты данных в Турбо-Прологе.
2. Правила образования имен в Турбо-Прологе.
3. Понятие «анонимная переменная» и ее использование.
4. Структура программы в Турбо-Прологе.
5. Встроенные типы доменов в Турбо-Прологе.
6. Декларативный и процедурный смысл программ.
7. Цели программы, факты и правила.
8. Этапы программирования на Турбо-Прологе.
9. Турбо-Пролог и логика предикатов.
10. Обработка правил и фактов внутренними подпрограммами
унификации Турбо-Пролога.
11. Написать процедуру, которая определяет всевозможные родст-
венные отношения.
12. Написать процедуру, которая определяет:
1) максимальное число из двух заданных чисел;
2) к какому классу относится заданное число.
67
Лабораторная работа 2
Повторяющиеся операции
Цель и содержание работы
Целью работы является приобрести навыки в использовании
средств языка Турбо-Пролог для программирования повторяющихся
операций, научиться понимать процедурный и декларативный смысл
программы. Разработать программу, содержащую процедуры в
соответствии с индивидуальным заданием. Вариант индивидуального
задания выбирается в соответствии с номером по журналу.
Индивидуальные задания
1. Вводятся два числа: n и m, причем m < n. Определить, в каком из
отрезков: [n − m, n − 1] или [n + 1, n + m] находится больше простых
чисел.
2. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ N. Найти среди введенных
все простые числа, вывести их и подсчитать количество.
3. Вводятся два числа: n и m. Определить m первых простых чисел,
больших данного числа n.
4. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ Z. Вводится число p ∈ Z,
причем р ≠ 0. Вывести все числа, которые делятся нацело на p и
подсчитать их количество.
5. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ Z, a
i
≠ 0. Вводится число
p
∈ Z. Вывести все числа, на которые делится нацело число p и
подсчитать их количество.
6. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Вводится число k ∈ R.
Вывести все числа, по модулю большие заданного числа k и подсчи-
тать их количество.
7. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ Z. Определить, каких чисел
среди введенных больше: четных или нечетных.
8. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Осуществить вывод по
следующему правилу: выводим 1-е число, а каждое последующее
выводимое число должно быть больше предыдущего выведенного
числа. Подсчитать количество выведенных чисел.
9. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Осуществить вывод по
следующему правилу: выводим 1-е число; 2-е выведенное число
должно быть больше 1-го выведенного числа, 3-е − меньше 2-го, 4-е
− больше 3-го и т. д. Подсчитать количество выведенных чисел.
68
10. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить наибольшую
разность между двумя соседними элементами: max{| a
i
− a
i-1
− 1|}.
Вывести также номера элементов, между которыми она найдена.
11. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить наибольший
и наименьший элементы, расстояние (количество элементов) между
ними и перепад (разность) значений между ними.
12. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить наибольший
промежуток монотонности по возрастанию и убыванию.
13. Вводится многочлен n-й степени, имеющий вид:
f(x) = a
0
x
n
+ a
1
x
n
−1 + ... + a
n−1
x + a
n
, ∀i: a
i
∈ R; n ∈ N; вводится число
m ∈ N. Найти m-ю производную от f(x): f
(m)
(x).
14. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить, что
преобладает в последовательности а
1
, а
2
, …, а
n
− количество пар
элементов, для которых выполняется условие a
i
< a
i+1
или количество
пар элементов, для которых справедливо a
i
> a
i+1
.
15. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить сумму всех
a
i+1
− a
i
, таких, что a
i
< a
i+1
.
16. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить каких чисел
среди введенных больше: четных отрицательных или нечетных
положительных.
17. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить какое среди
введенных чисел повторяется наибольшее число раз. Сколько раз оно
встречается.
18. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить каких чисел
среди введенных больше: тех, которые больше среднего ариф-
метического или тех, которые меньше его.
19. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Определить у какого
числа самая большая дробная часть.
20. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Вводятся числа b ∈ R и
ε ∈ R +. Вывести все числа, попадающие в интервал (b − ε, b + ε) и
подсчитать их количество.
21. Вводятся два числа: n ∈ N и m ∈ M. Вычислить:
!)(
!
mn
n
A
m
n
−
= и
.
!)(!
!
mnm
n
C
m
n
−
=
22. Вводится число n ∈ N. Вычислить:
,
),(НОК
),(НОД
1
∑
=
n
i
ni
ni
69
где
НОД(а,
b) − наибольший общий делитель чисел а и b;
НОК(а,
b) − наименьшее общее кратное чисел а и b.
23. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Вычислить:
.
}...,,,min{
)...,,,НОД(
21
21
n
n
aaa
aaa
24. Вводятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Вычислить:
.
)...,,,(НОК
1
21
∏
=
n
i
i
n
a
aaa
25. Водятся n чисел: {а
1
, а
2
, …, а
n
}, ∀i : a
i
∈ R. Вычислить:
НОК
(a
1
, НОД
(a
2
, НОК
(a
3
, НОД
(a
4
, ...))))
и
НОД
(a
1
, НОК
(a
2
, НОД
(a
3
, НОК
(a
4
, ...)))).
26. Водится число n
∈ N. Вычислить:
.
!)(
!
n
n
F
F
(n!-е число Фибоначчи / Факториал n-го числа Фибоначчи).
27. Вводится число n
∈
N. Вычислить: n!!
.
28. Вводится число n
∈
N. Вычислить:
n
F
F
.
70
Контрольные вопросы
1. Сопоставимость термов.
2. Откат, механизм отката.
3. Встроенные предикаты
fail
и
cut
.
4. Повторение и откат.
5. Метод отката после неудачи.
6. Метод отсечения и отката.
7. Метод повтора, определяемый пользователем.
8. Правило рекурсии, устранение хвостовой рекурсии.
9. Процедурный и декларативный смысл программ.
10. Написать процедуру, которая выбирала бы из заданной базы данных
«
Список студентов
»:
1) все заданные фамилии;
2) одну заданную фамилию;
3) фамилию и номер группы;
11. Написать процедуру, которая вычисляет:
1) произведение натурального ряда заданной длины
N
;
2) выводит на печать квадраты введенных чисел;
12. Написать программу, которая вычисляет
k
! и объяснить процедурный
и декларативный смыслы программы.