2015-03-20
387
С любым текущим окном работают стандартные предикаты ввода и вывода – readln,readint,readchar - также.
По умолчанию, курсор расположен в верхнем левом углу окна. Используя предикат cursor и помещать курсор в любую позицию текущего окна. Этот предикат имеет вид: cursor (Row_number, Col_number).
Аргументы Row_number и Col_number являются целыми числами, задающими номера строки и столбца, по отношению к верхней строке и крайнему левому столбцу экрана. Строки и столбцы нумеруются, начиная с нуля: предикат cursor(0,0) обеспечивает вывод текста, начиная с верхнего левого угла экрана.
Например, следующие предикаты могут быть использованы для вывода сообщения в центре экрана.
makewindow(1,7,7,"", 1,1, 8,28),
cursor(4,12),
write("Доброе утро!").
Пример 1.
Программа 1. Работа с окнами
Predicates
start
run(integer)
do_sums
set_up_windows
clear_windows
Clauses
start:- set_up_windows, do_sums.
set_up_windows:-
makewindow(l, 7, 7, “”, 0, 0, 25, 80),
makewindow(1, 7, 7, "Left operand", 2, 5, 5, 25),
makewindow(2, 7, 7,"", 2, 35, 5, 10),
nl, write(" PLUS"),
makewindow(2, 7, 7, "Right operand", 2, 50, 5, 25),
makewindow(3, 7, 7, "Gives", 10, 27, 5, 25),
makewindow(4, 7, 7,"", 17, 22, 5, 35).
do_sums:- run(_), clear_windows, do_sums.
run(Z):-
shiftwindow(l),
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 space bar"),
readchar(_).
Clear_windows:-
shiftwindow(l), clearwindow,
shiftwindow(2), clearwindow,
shiftwindow(3), clearwindow,
shiftwindow(4), clearwindow.
