Chain_terms/5 Внешняя База Данных

Назначение Возвращает термы из связанного списка

Обращение chain_terms(БДанн,Цепь,Дом,Терм,Укз)

Домены (db_selector,string,<domain>,<term>,ref)

Шаблоны описания (вх,вх,вх,вх/вых,вых)

аргументов

Описание При первом обращении chain_terms возвращает первый

терм из связанного списка и его указатель в связанном

списке Цепь. Затем каждый раз когда происходит поиск

с возвратом; следующий терм, размещенный в данном

связанном списке Цепь, возвращается в Терм, а

соответствующий указатель - в Укз. Когда последний

терм будет возвращен, следующее обращение даст

неудачное завершение. chain_terms также может быть

вызван с термом Терм, частично созданным.

Пример

domains

db_selector = mydba

dbdom = city(cityno,cityname);

person(firstname,lastname,street,cityno,

code)

cityno, cityname, firstname, lastname, street,

code = string

goal

db_open(mydba,"register.bin",in_file),

db_chains(mydba,Chain),

chain_terms(mydba,Chain,dbdom,Term,Ref),

write("\nTerm=",Term,", Ref=",Ref),

fail.

char_int/2

Назначение Преобразует символ в значение ASCII кода и обратно

Обращение char_int(СимвАрг,ЦелАрг)

Домены (char,integer)

Шаблоны описания (вх,вых),(вых,вх),(вх,вх)

аргументов

Описание (вх,вых)

Связывает ЦелАрг кода ASCII c СимвАрг.

(вых,вх)

Связывает символьную переменную СимвАрг с ASCII

кодом, определенным ЦелАрг.

(вх,вх)

Согласовывается, если ЦелАрг соответствует ASCII коду

СимвАрг. В противном случае не согласовывается.

Неудачное Смотри описание для потока (вх,вх).

завершение

Ошибки Отсутствуют.

Пример

Goal: char_int('a',X)

X=97

1 Решение

Goal: char_int(X,97)

X=a

1 Решение

Goal: char_int('a',97)

Да

Goal: char_int('a',197)

Нет

Circle/3 Графика

Назначение Рисует круг с заданным радиусом и центром

Обращение circle(X,Y,Радиус)

Домены (integer,integer,integer)

Шаблоны описания (вх,вх,вх)

аргументов

Описание circle рисует круг текущего цвета с центром в точке

(X,Y) и с радиусом Радиус.

Каждый графический драйвер и графический режим имеет

свое отношение горизонтального и вертикального

масштабов. Это отношение используется для circle,

чтобы нарисовать правильный круг на экране. Это

отношение может быть вычислено getaspectratio,

который возвращает горизонтальный и вертикальный

коэффициент масштаба Xотн и Yотн.

Коэффициент масштаба по оси Y, Yотн, ограничен

числом 10000; для всех графических адаптеров,

исключая VGA, коэффициент масштаба Xотн меньше чем

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

VGA, где пиксел "квадратный", Xотн равно Yотн. В

общем случае, ограничения на коэффициент масштаба

выглядят так:

Yотн = 10000

Xотн <= 10000

Смотри arc