Руководство к пользованию TURBO PROLOG

Подождите немного. Документ загружается.

nl,write(" PLOS"),

makewindow(2,7,7,"Right operand",2,50,5,25),

makewindow(3,7,7,"Gives",10,30,5,25),

makewindow(4,7,7,"",20,30,5,35).

do_sums:-

run(_),clear_windows,do_sum.

run(Z):-

shiftwindow(1),

cursor(2,1),readint(X),

shiftwindow(2),

cursor(2,10),readint(Y),

shiftwindow(3),Z=X+Y,cursor(2,10),write(Z),

shiftwindow(4),

write(" Please press the speace bar"),

readchar(_).

clear_windows:-

shiftwindow(1),clearwindow,

shiftwindow(2),clearwindow,

shiftwindow(3),clearwindow,

shiftwindow(4),clearwindow.

Ввод-вывод, ориентированный на экран

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Семейство стандартных предикатов, основанное на базовых

предикатах read и write, не соответствует более сложным при-

менениям имеющихся в Турбо Прологе средств управления экраном

и окнами. В Турбо Прологе существует несколько других специ-

ально разработанных стандартных предикатов, которые упрощают

обработку полного экрана и окон. В этом разделе мы сначала

опишем те средства, которые имеются в нашем распоряжении, а

потом воспользуемся некоторыми из них, чтобы построить прос-

тую программу, которая могла бы служить основой для машинной

игры "стреляй вверх".

Доступ ко всему экрану или окну, а также их обработку,

можно осуществить на трех различных уровнях:

- на уровне одного символа;

- на уровне одного поля (полем называется связная после-

довательность координат символов, расположенных на одной и

той же строке);

- на уровне одного окна.

На уровне символа важными предикатами, предназначенными

для обработки экрана или окна, являются предикаты scr_char

(символ_экрана) и scr_attr (атрибут_экрана). Первый из них

имеет вид

scr_char(Row,Column,Character)

и используется как для чтения, так и для записи символа. Если

все три параметра связаны, то значение переменной Characteer

(символ) будет записано в указанную позицию. Если первые два

параметра связаны, а последний свободен, то символ считывает-

ся из указанной позиции. Если параметры Row (строка) и

(столбец) соответствуют позиции, лежащей за границами актив-

ного окна, то фиксируется ошибка периода прогона.

Предикат scr_attr используется аналогично предыдущему и

имеет вид

scr_attr(Row,Column,Attr)

Атрибут позиции символа (строка и столбец) либо присваивает-

ся, либо считывается в зависимости от того, является перемен-

ная Attr (атрибут) связанной или свободной.

На уровне поля можно воспользоваться предикатом field_str

(строка_поля), который имеет вид

field_attr(Row,Column,Lenght,String)

и работает аналогично. С его помощью можно считывать текст

или записывать текст в поле, расположенное на экране или

внутри окна. Расположение поля определяется переменными Row,

Column и Length (длина), которые должны соответствовать пози-

циям символов внутри границ активного в данный момент окна.

Если предикат определяет позиции, расположенные за пределами

экрана или за пределами активного окна, то программа будет

остановлена в связи с ошибкой периода прогона. Если перемен-

ная string (строка) связана со значением, содержащим большее

число символов, чем длина поля Length, то используются лишь

первые Length символов строки. Если, наоборот, строка короче,

чем длина поля, то оставшаяся часть поля заполняется пробела-

ми.

Всем позициям выбранного поля можно присвоить определен-

ное значение атрибута, воспользовавшись только одним вызовом

стандартного предиката field_attr (атрибут_поля), который

имеет следующий вид:

field_attr(Row,Column,Length,Attr)

Все параметры должны быть связанными, хотя если первые три

параметра связаны, а последний параметр Attr свободен, то он

будет связан с текущим атрибутом заданного поля (который оп-

ределяется как атрибут первого символа, принадлежащего полю).

Предикат window_str (строковое_значение_окна) имеет сле-

дующий вид:

window_str(StringParam)

Если переменная StringParam (строковый_параметр) при вызове

предиката свободна, то она будет связана со строковым значе-

нием, изображенном сейчас в активном окне и, таким образом,

будет включать в себя столько строк, сколько их имеется в ак-

тивном окне. Длина каждой строки в строковом значении опреде-

ляется последним символом этой строки, отличным от пробела.

С другой стороны, если переменная StringParam связана с

некоторым строковым значением, то оно будет переписано в окно

в соответствии со следующим алгоритмом:

- если в строковом значении содержится больше строк, чем

их имеется в окне, то строки будут переписываться до тех пор,

пока окно не будет исчерпано;

- если строковое значение содержит меньше строк, чем их

имеется в окне, то оставшиеся строки окна будут заполнены

пробелами;

- если в строке, принадлежащей строковому значению, со-

держится больше символов, чем их умещается в одной строке ок-

на, то строка, переписываемая в окно, будет усечена;

- если число символов в строке меньше, чем число столб-

цов, имеющихся в окне, то строка будет дополнена пробелами.

Простая аркадская игра

~~~~~~~~~~~~~~~~~~~~~~

Чтобы показать, насколько мощны имеющиеся в Турбо Прологе

средства обработки окон, мы воспользуемся сейчас предикатом

scr_char и построим программу для очень простой аркадской иг-

ры. Во время выполнения программы в верхней части экрана бу-

дут появляться чудовища, которые будут постепенно спускаться

вниз по направлению к игроку, расположенному в нижней части

экрана. Игрок должен направлять огонь из "поражающего писто-

лета", для чего используются клавиши и . Цель игры сос-

тоит в том, чтобы уничтожить чудовищ, пока они не успели

уничтожить вас.

Поскольку Турбо Пролог работает весьма быстро, нам надо

замедлить его темп, чтобы дать возможность зафиксировать

изображение на экране. В противном случае вся игра протекала

бы настолько быстро, что мы практически ничего не заметили

бы. Таким образом, мы определяем предикат delay (задержка),

целью которого является холостая трата времени; длительность

этого промежутка времени определяется значением единственного

целочисленного параметра. Предложения для этого предиката

имеют следующий вид:

delay(0):-!.

delay(N):-N1=N-1,delay(N1).

Теперь мы можем определить предикат zapGun (поражаю-

щий_пистолет) таким образом, что его вызов

zapGun(24,Column)

будет имитировать стрельбу лучом лазера, направленным с ниж-

ней части экрана прямо вверх вдоль заданного столбца

(Column). Мы добьемся этого за счет повторяющегося появления

и исчезновения символа "А".

zapGun(N,C):-

N>0,!,scr_char(N,C,'^'),delay(150),

scr_char(N,C,' '),N1=N-1,zapGun(N1,C).

zapGun(_,_).

Атакуемые чудовища будут представлены списком целых зна-

чений, обозначающих номера столбцов, по которым они спускают-

ся вниз. Нам хотелось бы добиться появления чудовищ (предс-

тавляемых символом "А") и их исчезновения (чтобы имитировать

движение). Предикат showThem (показать_их) имеет три парамет-

ра: список столбцов, занимаемых чудовищами, строка, на кото-

рой они должны быть изображены, и символ, которым будет пред-

ставлена на экране каждая точка, где расположено чудовище.

showThem([],_,_):-!.

showThem([Monster|TheRest],ROW,Char):-

scr_char(ROW,Monster,Char),

showThem(TheRest,ROW,Char).

В различные моменты игры нам надо будет проверять, какие

чудовища пока "живы" и какой строки они успели достигнуть:

testresult([],_):-

write("\nПоздравляем с победой!"),

delay(32000),exit.

testresult(_,ROW):-ROW<24,!.

testresult(_,_):-

write("\nСожрали они тебя."),

delay(32000),exit.

Как только чудовище уничтожено, оно вычеркивается из списка

живых чудовищ с помощью предиката delete (удалить):

delete(_,[],[]).

delete(X,[X|R],R):-!.

delete(X,[Y|R],[Y|R2]):-!,delete(X,R,R2).

Осталось рассмотреть еще несколько деталей. Мы должны по-

заботиться, чтобы поражающий пистолет не выходил за боковые

границы экрана и чтобы он перемещался на один столбец влево

при нажатии клавиши и на один столбец вправо при нажатии

клавиши . Нажатие любой другой клавиши ни к каким дейст-

виям не приводит. Соответствующий код выглядит следующим об-

разом:

test('z',0,0):-!.

test('x',78,78):-!.

test('z',OldCOL,NewCOL):-!,NewCOL=OldCOL-1.

test('x',OldCOL,NewCOL):-!,NewCOL=OldCOL+1.

test(',',OldCOL,NewCOL):-!,NewCOL=OldCOL-5.

test('.',OldCOL,NewCOL):-!,NewCOL=OldCOL+5.

test('4',OldCOL,NewCOL):-!,NewCOL=OldCOL-10.

test('6',OldCOL,NewCOL):-!,NewCOL=OldCOL+10.

test(_,C,C).

Внутренняя цель для нашей программы имеет вид:

doit(0,[6,22,30,42,45,50,56,59,62,73],0).

Таким образом, в начале игры поражающий пистолет располо-

жен в столбце 56, чудовища - в столбцах 42, 45, 50, 55, 56 и

59. При этом все чудовища находятся в строке 0. Предложения,

определяющие предикат doit (сделай_это), имеют следующий вид:

doit(Initial,Monsters,ROW):-

testresult(Monsters,ROW),

showThem(Monsters,ROW,'\1'),

readchar(Ch),

test(Ch,Initial,Final),

zapGun(24,Final),

delete(Final,Monsters,LiveMonsters),

NewROW=ROW+1,

cursor(24,Final),

showThem(Monsters,ROW,' '),

doit(Final,LiveMonsters,NewROW).

Полный текст составляет программу 28:

/* Программа 28 */

Domains

Monsters=Integer*

Predicates

delay(Integer)

zapGun(Integer,Integer)

delete(Integer,Monsters,Monsters)

testresult(Monsters,Integer)

doit(Integer,Monsters,Integer)

showThem(Monsters,Integer,Char)

test(Char,Integer,Integer)

Goal

makewindow(1,7,0,"",0,0,25,80),

doit(0,[6,22,30,42,45,50,56,59,62,73],0).

Clauses

doit(Initial,Monsters,ROW):-

testresult(Monsters,ROW),

showThem(Monsters,ROW,'\1'),

readchar(Ch),

test(Ch,Initial,Final),

zapGun(24,Final),

delete(Final,Monsters,LiveMonsters),

NewROW=ROW+1,

cursor(24,Final),

showThem(Monsters,ROW,' '),

doit(Final,LiveMonsters,NewROW).

testresult([],_):-

write("\nПоздравляем с победой!"),

delay(32000),exit.

testresult(_,ROW):-ROW<24,!.

testresult(_,_):-

write("\nСожрали они тебя."),

delay(32000),exit.

showThem([],_,_):-!.

showThem([Monster|TheRest],ROW,Char):-

scr_char(ROW,Monster,Char),

showThem(TheRest,ROW,Char).

zapGun(N,C):-

N>0,!,scr_char(N,C,'^'),delay(150),

scr_char(N,C,' '),N1=N-1,zapGun(N1,C).

zapGun(_,_).

test('z',0,0):-!.

test('x',78,78):-!.

test('z',OldCOL,NewCOL):-!,NewCOL=OldCOL-1.

test('x',OldCOL,NewCOL):-!,NewCOL=OldCOL+1.

test(',',OldCOL,NewCOL):-!,NewCOL=OldCOL-5.

test('.',OldCOL,NewCOL):-!,NewCOL=OldCOL+5.

test('4',OldCOL,NewCOL):-!,NewCOL=OldCOL-10.

test('6',OldCOL,NewCOL):-!,NewCOL=OldCOL+10.

test(_,C,C).

delete(_,[],[]).

delete(X,[X|R],R):-!.

delete(X,[Y|R],[Y|R2]):-!,delete(X,R,R2).

delay(0):-!.

delay(N):-N1=N-1,delay(N1).

Игра в отгадывание слов с помощью окон

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

В программе 29 средства обработки окон, имеющиеся в Турбо

Прологе, используются для построения игры в отгадывание слов,

Чтобы получить достаточно короткую программу, ее операции ор-

ганизованы вполне примитивно; тем не менее, те действия, ко-

торые выполняются на экране с помощью окон, весьма вырази-

тельны.

Игрок должен отгадать одно за другим три слова. Сначала

его (или ее) просят ввести букву. Если эта буква присутствует

в слове, то она появляется в окне YES (да). В противном слу-

чае буква попадает в окно NO (нет). После каждой попытки уга-

дать букву игрока просят отгадать все слово целиком. Для это-

го он должен набить его буква за буквой, причем после каждой

буквы следует нажимать клавишу . В программе хранится за-

пись, содержащая полное число попыток:

/* Программа 29 */

domains

list=symbol*

scores=integer

predicates

member(symbol,list)

run

continue(list,scores)

yes_no_count(symbol,list)

guess_word(scores,list)

word(list,integer)

read_as_list(list,integer)

goal

makewindow(1,7,0,"",0,0,25,80),

makewindow(2,7,135,"Cunting",1,20,4,34),

makewindow(3,112,112,"YES",5,5,7,30),

makewindow(4,112,112,"NO",5,40,7,30),

makewindow(5,7,7,"",14,20,10,34),

run.

clauses

run:-word(W,L),

shiftwindow(1),clearwindow,

write("The word has ",L," letters"),

shiftwindow(2),clearwindow,

shiftwindow(3),clearwindow,

shiftwindow(4),continue(W,0),fail.,

continue(L,R):-

shiftwindow(4),clearwindow,

write("Guess a letter :"),

Total=R+1,readln(T),yes_no_count(T,L),

shiftwindow(4),clearwindow,

guess_word(Total,L),continue(L,Total).

yes_no_count(X,List):-

member(X,List),shiftwindow(2),write(X),!.

yes_no_count(X,_):-

shiftwindow(3),write(X).

guess_word(Count,Word):-

write("Know the word yet? Press y or n""),

readchar(A),A='y',cursor(0,0),

write("Type it one letter per line \n"),

word(Word,L),read_as_list(G,L),

G=Word,clearwindow,window_attr(112),

write("Right! You used ",Count," guess(es)"),

readchar(_),window_attr(7),!,fail.

guess_word(_,_).

word([b,o,r,d],4). word([p,r,o,l,o,g],6).

word([f,o,c,u,r,e],6).

member(X,[X|_]):-!.

member(X,[_|T]):-member(X,T).

read_as_list([],0):-!.

read_as_list([Ch|Rest],L):-

readln(Ch),L1=L-1,read_as_list(Rest,L1).

Окно в ДОС

~~~~~~~~~~

Программы на Турбо Прологе могут организовать доступ к

системе ДОС, воспользовавшись предикатом system (система),

который имеет следующий вид:

system ("Любая команда ДОС или имя выполняемого файла")

Если аргумент представляет собой пустую строку (""), то

система ДОС будет вызвана при условии, что системный файл

COMMAND.COM доступен из текущего каталога ДОС (см.раздел "Ус-

тановка" в главе 12). После этого вы можете давать команды

ДОС. Чтобы вернуться в Турбо Пролог, набейте команду

exit

(Выполнение соответствующего стандартного предиката exit

(выход) приведет к прекращению исполнения программы на Турбо

Прологе, после чего управление будет возвращено в Турбо Про-

лог.)

Чтобы, например, скопировать файл B:ORIGINAL.PIL на файл

A:ACOPY.FIL, пользуясь средствами, выходящими за рамки систе-

мы Турбо Пролог, можно задать цель

system("").

и скопировать файл, воспользовавшись обычной командой ДОС

A:\>copy b:original.fil aaacopy.fil

Затем можно вернуться в Турбо Пролог, дав команду

A:\>exit

после чего Турбо Пролог ответит:

Goal :_

Это средство вызова ДОС можно сочетать со средствами об-

работки окон и строить ваши собственные пользовательские ин-

терфейсы с ДОС. Например, предикаты

makewindow(1,7,7,"DOS",5,26,10,40),

system("").

ограничивают всякий диалог с ДОС окном, состоящим из 8 строк

и 38 столбцов и расположенном в правом верхнем углу экрана.

Программа 30 выводит на экран каталоги для дисков на на-

копителе А (левое окно) и на накопителе В (правое окно), пос-

ле чего управление возвращается в Турбо Пролог при нажатии

пробела.

/* Программа 30 */

goal

makewindow(1,7,7,"Directory for disk a:",0,0,20,35),

system("dir a:"),

makewindow(2,7,7,"Directory for disk b:",0,40,20,35),

system("dir b:"),

makewindow(3,7,7,"",21,25,3,30).

Программа 31 представляет собой пример обслуживающей

программы копирования файлов с очень элегантным пользователь-

ским интерфейсом, основанном на управлении окнами. При такой

организации пользователь не обязан помнить, какое имя появля-

ется в команде ДОС copy (копирование) первым - имя копии или

имя файла, подлежащего копированию (это часто приводит к не-

разберихе многих начинающих пользователей ЭВМ). В программе

31 используется стандартный предикат concat (конкатенация),

который рассматривается в главе 9 и имеет вид:

concat(X,Y,Z)

Предикат вырабатывает истину, если переменная Z связана с ре-

зультатом конкатенации строк, с которыми связаны переменные X

и Y. Так, например, предикат

concat("hello"," mother",X)

будет удовлетворен и свяжет переменную X со значением "hello

mother" (здравствуй, мама), а предикат

concat("valerie","ann","valerie-ann")

выработает ложь (из-за лишнего дефиса в имени "valerie-ann").

/* Программа 31 */

goal

makewindow(1,7,7,"Source",0,0,20,35),

write("Which file do you want to copy ?"),

cursor(3,8),readln(X),

makewindow(2,7,7,"Destination",0,40,20,35),

write("What is the name of the new copy ?"),

cursor(3,8),readln(Y),

concat(X," ",X1),concat(X1,Y,Z),

concat("copy ",Z,W),

makewindow(3,7,7,"Process",14,15,8,50),

write(" Copyng ",X," to ",Y),cursor(2,3),

system(W).

Дата и время

~~~~~~~~~~~~

С использованием ДОС связано еще два стандартных предика-

та, которые удобны в употреблении: date (дата) и (time) (вре-

мя). Каждый из них может быть использован двумя способами,

что зависит от того, связаны ли при входе все их параметры

или свободны. Если все переменные в предикате

time(Hours,Minutes,Seconds,Hundredths)

связаны, то он приведет к установке внутренних системных ча-

сов (показывающих часы, минуты, секунды и сотые доли секун-

ды). Если же все переменные свободны, то они будут связаны с

текущими показаниями внутренних часов.

Предикат date также связан с внутренними системными часа-

ми; он действует аналогично и имеет следующую форму (включаю-

щую в себя год, месяц и число);

date(Year,Month,Day)

В программе 32 предикат time используется для вывода вре-

мени, уходящего на формирование листинга каталога для накопи-

теля А.

/* Программа 32 */

goal

makewindow(1,7,7,"Timer",8,10,17,60),

time(0,0,0,0),system("dir a:"),

time(H,M,S,Hundredths),

write(H," hours "),

write(M," minutes "),

write(S," seconds "),

write(Hundredths," hundredths of a second"),nl,nl.

Более сложный пример использования предиката time предс-

тавлен в программе 60, которая рассматривается в главе 10.

8. ЗАНЯТИЕ 6:

ГРАФИКА И ЗВУК

Помимо обработки окон есть и другой путь сделать ваши

программы более колоритными; он связан с использованием гра-

фики и звука. Турбо Пролог предлагает выбор между графикой,

основанной на точках и линиях, и полным набором команд "Гра-

фики с черепахой". Сложные очертания легко рисовать, пользу-

ясь графикой с черепахой - все, что вы должны делать, это

сопровождать маленькую черепаху, несущую перо, вдоль экрана.

В данной главе приводится подробное описание всех этих сред-

ств и предлагается несколько увлекательных примеров программ.

Глава завершается двумя приложениями стандартного предиката

sound (звук), причем одно из них превращает вашу ЭВМ в фор-

тепьяно!

Графика в Турбо Прологе

~~~~~~~~~~~~~~~~~~~~~~~

Перед тем, как пользоваться имеющимися в Турбо Прологе

командами графики, вам необходимо провести соответствующие

установки экрана, для чего следует воспользоваться стандарт-

ным предикатом graphics (графика). Когда работа со средствами

графики будет закончена, вы сможете очистить экран и вернуть-

ся к текстовому режиму с помощью стандартного предиката text

(текст).

Предикат graphics имеет вид

graphics(ModeParam,Palette,Background)

и выполняет начальные установки экрана для графики со сред-

ней, высокой или сверхвысокой разрешающей способностью. Воз-

можные значения переменной ModeParam (параметр_режима) и по-

лучающиеся в результате форматы экрана приведены в таблице

8-1. Стандартный адаптер цветовой графики фирмы IBM поддержи-

вает режимы 1 и 2; режимы 3, 4 и 5 поддерживаются усовершенс-

твованным графическим адаптером. Во всех случаях предикат

graphics очищает экран и устанавливает курсор в левый верхний

угол.

В режиме 1 можно пользоваться четырьмя цветами (цвета 0,

1, 2 и 3) в соответствии с таблицей 8-2. Цвет 0 - это текущий

цвет фона. Цвета определяются одной из двух палитр, выбирае-

мых в зависимости от того, с каким значением связана перемен-

ная Palette (палитра) - с 0 или с 1. В режимах 3 и 4 можно

использовать 16 цветов, а в режиме 5 - 13.

Переменная Background (фон) также имеет целое значение.

С его помощью выбирается один из цветов фона, указанных в

таблице 8-3.

Таблица 8-1

Выбор разрешающей способности графики

-----------------------------------------------------------

Параметр Число Число Описание

режима столбцов строк

-----------------------------------------------------------

1 320 200 Средняя степень разрешения,

4 цвета

2 640 200 Высокая степень разрешения,

черно-белое изображение

3 320 200 Средняя степень разрешения,

16 цветов

4 640 200 Высокая степень разрешения,

16 цветов

5 640 350 Сверхвысокая степень разре-

шения, 13 цветов

------------------------------------------------------------

Таблица 8-2

Выбор палитры при средней разрешающей способности

------------------------------------------------------------

Палитра Цвет 1 Цвет 2 Цвет 3

------------------------------------------------------------

0 зеленый красный желтый

1 циан фуксин белый

--------------------------------------------------------------

Таблица 8-3

Цвета фона

--------------------------------------------------------------

0 черный 8 серый

1 синий 9 голубой

2 зеленый 10 светло-зеленый

3 циан 11 светлый циан

4 красный 12 светло-красный

5 фуксин 13 светлый фуксин

6 коричневый 14 желтый

7 белый 15 белый с повышенной ярко-

стью

--------------------------------------------------------------

Двумя основными стандартными предикатами, используемыми

для графики, являются предикаты dot (точка) и line (лиия).

Вызов предиката

dot(Row,Column,Color)

приводит к размещению точки в месте, определяемом значения-

ями переменных Row (строка) и Column (столбец), а цвет точки

определяется переменной Color (цвет). Первые два параметра -

это целые значения в диапазоне от 0 до 31999, причем они не

зависят от текущего режима экрана. (Если переменная Color)

свободна в момент вызова предиката, то он возвращает числовое

значение цвета).

Аналогично, предикат

line(Row1,Col1,Row2,Col2,Color)

приводит к построению линии между точками (Row1, Col1) и

(Row2, Col2), причем цвет линии определяется переменной Color.

Программа 33 содержит типичную последовательность вызовов

стандартных предикатов, используемых для графики.

/* Программа 33*/

goal

write("Before graphics"),readchar(_),

graphics(1,1,4),

line(4000,4000,10000,20000,2),

write(ordinary write during graphics mode"),

readchar(_),

text,

write("After graphics").

В программе 34 стандартные предикаты графики используются

для построения "автоматического заполнителя экрана". Сначала

вокруг экрана строится граница, а затем вы можете рисовать,

нажимая клавиши (для движения вверх), (для движения

вниз), (для движения влево) или -> (для движения вправо).

Остальные клавиши игнорируются, за исключением клавиш U , D ,

L и R (которые имеют тот же смысл, что только что перечислен-

ные), а также клавиши , нажатие которой приводит к выходу

из программы.

/* Программа 34 */

predicates

move(char,integer,integer,integer,integer)

stert

changestate(integer,integer)

goal

start:-

graphics(1,1,4),

line(1000,1000,1000,31000,2),

line(1000,31000,31000,31000,2),

line(31000,31000,31000,1000,2),

line(31000,1000,1000,1000,2),

changestate(15000,15000).

changestate(X,Y):-

readchar(Z),move(Z,X,Y,X1,Y1),changestate(X1,Y1).

move('r',X,31000,X,31000):-!.

move('r',X,Yold,X,Ynew):-!,Ynew=Yold+100,dot(X,Yold,3).

move('l',X,1000,X,1000):-!.

move('l',X,Yold,X,Ynew):-!,Ynew=Yold-100,dot(X,Yold,3).

move('v',X,1000,X,1000):-!.

move('v',Xold,Y,Xold,Y):-!,Xnew=Xold-100,dot(Xold,Y,3).

move('d',31000,Y,31000,Y):-!.

move('d',Xold,Y,Xold,Y):-!,Xnew=Xold-100,dot(Xold,Y,3).

move('.',_,_,_,_):-!,exit.

move(_,X,Y,X,Y).

Команды "Графики с черепахой"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Стандартные предикаты, которые приводят к действиям, ана-

логичным рассмотренным в программе 34, встроены в Турбо Про-

лог и представляют собой команды "Графики с черепахой".

Когда вы входите в режим графики, экран очищается, а в

его середине появляется. Она стоит вертикально по направлению

к верхней части экрана, а к ее хвосту прикреплено "перо". По

мере того, как движение черепахи управляется различными стан-

дартными предикатами, "перо" оставляет на экране след.

Действие этих предикатов зависит от следующих факторов:

- расположение черепахи;

- направление движения черепахи;