Сохранение вашей программы на диске

Для сохранения программы на диске выберите из главного меню элемент

Files, а затем - элемент Write To (Записать в) из спускающегося меню.

Введите "myfirst" и нажмите Ввод. Турбо Пролог сохранит содержимое вашего

рабочего файла с именем MYFIRST.PRO (расширение .PRO, принятое по умолча-

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

чески).

Просмотр файлов на диске

Для просмотра всех Турбо Пролог'овских программ в текущем каталоге

на текущем диске вернитесь в меню Files (нажав Alt-F) и выберите

Directory. Турбо Пролог выдаст в окно ввода запрос "Enter file mask"

("Введите маску файла"). Вы можете использовать маску, принятую по умол-

чанию ("*.*"), - что приведет к выдаче всех файлов из текущего каталога.

Или вы можете задать свою собственную маску: например, маска "*.pro" зас-

тавит Турбо Пролог вывести из текущего каталога все файлы с расширением

".PRO", тогда как маска "??PROJ.*" приведет к списку файлов вроде следую-

щего:

MYPROJ.PRO

NUPROJ.OBJ

22PROJ.NEW

AAPROJ.XYZ

Введите в окно ввода "*.PRO" и нажмите Ввод. На экране появится спи-

сок всех программ с расширением ".PRO", включая "MYFIRST.PRO". Для возв-

рата в окно редактирования нажмите Alt-E.

Трассирование вашей программы

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

Турбо Прологе. Вы будете работать с MYFIRST.PRO - примером программы, ко-

торый вы использовали раньше. Если вы уже сохранили ее на диске, то для

загрузки копии этой программы в редактор воспользуйтесь командой

Files/Load. Если же нет - введите ее снова.

Что такое "трасса"? Это встроенное в Турбо Пролог диагностическое

средство, позволяющее вам просматривать программу "по-шагам". Используя

трассирование вы "идете" по программе в соответствии с логикой работы

Турбо Пролога, т.е. так, как он выполняет программу: вы можете непосредс-

твенно увидеть, что делает система, пытаясь разрешить задачу. Каждый отт-

рассированный шаг отображается в окне трассировки; для выполнения каждого

следующего шага вы нажимаете F10.

Для трассирования выполнения программы вы должны в начало своей

программы вставить директиву компилятора "trace". Например:

trace

goal

makewindow (1, 7, 7, "Моя первая программа", 4, 56, 14, 22),

nl, write ("Пожалуйста, введите свое \n имя, а

затем нажмите \n Ввод."),

cursor (5,4), readln (Name), nl,

write ("Добро пожаловать в\n Турбо Пролог,\n ", Name), nl.

Теперь попытайтесь выполнить трассировку этой программы. Для ее за-

пуска нажмите Alt-R; посмотрите, что происходит на экране. В окне редак-

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

ровки отображается первый шаг этой программы:

CALL: goal ()

С помощью F10 вы можете выполнять эту программу по шагам. Нажмите

F10 один раз. Теперь в окне трассирования вы увидите:

CALL: makewindow (1, 7, 7, "Моя первая программа", 4, 56, 14, 22)

Теперь нажмите несколько раз F10 (следя за тем, что происходит в

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

CALL: readln (_)

Снова нажмите F10. Теперь курсор должен мигать в том месте окна ва-

шей программы, где вы будете вводить свое имя. Введите "Миша" и нажмите

Ввод. В окне трассирования теперь будет

RETURN: readln ("Миша")

───────────────────────────────────────────────────────────────

Files Edit │Run│ Compile Options Setup

└───┘

╔════════════ Editor ═════════════════╗┌───── Dialog ──────┐

║ Trace Line 6 Col 1 C:\TPROLOG2\MYF║│ │

║goal ║│┌─My First Program─┤

║ makewindow(1,7,7,"My First Program║││ │

║ nl,write("Please type your\n name ║││Please type your │

║ cursor(5,4),readln(Name),nl, ║││name then press │

║ write(" Welcome to\n Turbo Prolog ║││Enter. │

║ ║││ │

║ ║││ Moi │

╚═════════════════════════════════════╝└┴──────────────────┘

┌───────── Message ────────────┐ ┌───────── Trace ─────────┐

│Compiling WORK.PRO │ │RETURN: cursor(5,4) │

│Load C:\TPROLOG2\MYFIRST.PRO │ │CALL: readln(_) │

│Save C:\TPROLOG2\MYFIRST.PRO │ │RETURN: readln("Moi") │

│Compiling C:\TPROLOG2\MYFIRST.│ │ │

└──────────────────────────────┘ └─────────────────────────┘

F1-Help F2-Save F5-Zoom F10-Step Shift-F10-Resize Alt-T-Trace

───────────────────────────────────────────────────────────────

Рис. 2.5: Трассирование вашей первой программы.

Ну, а теперь, нажимайте на F10 до тех пор, пока в окно трассирования

не будет выведено

RETURN: goal ()

что просигнализирует о завершении выполнения вашей программы. Нажмите F10

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

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