Коллектив авторов - Инструкция по программированию на языке ForthLogic

F:A,B,A
F:B,C,A
F:B,A

Слово FDUP (от FLOAT DUPLICATE - дублировать) дублирует вершину
математического стека, добавляя в стек еще одно значение, равное тому, которое
было до этого верхним. Слово FDROP (сбросить) убирает верхнее значение. Слово
FOVER (через) дублирует значение, которое расположено на математическом стеке
непосредственно под верхним. Слово FROT (от FLOAT ROTATE - вращать)
циклический переставляет по часовой стрелке (если смотреть на диаграмму) три
верхних значения в математическом стеке. Наконец, слово FSWAP (обменять)
меняет местами два верхних значения.
Также можно работать с любым элементом математического стека с помощью слов:
FPICK
FROLL

F:An,An-1,...,Ao,n ---> F:An,An-1,...,Ao,An
F:An,An-1,...,Ao,n ---> F:An-1,...,Ao,An

Слово FPICK (взять) дублирует n-й элемент математического стека (считая от нуля),
так что 0 FPICK тождественно FDUP, а 1 FPICK тождественно FOVER. Слово FROLL

Версия 2.6

9

(повернуть) циклически переставляет n верхних элементов математического стека
(также считая от нуля) по часовой стрелке (если смотреть на диаграмму), так что 2
FROLL тождественно FROT, 1 FROLL тождественно FSWAP, а 0 FROLL является
пустой операцией.
Чтобы "увидеть" верхнее значение на математическом стеке, используются слова F.
(FLOAT - точка) или FE. (FLOAT ENGINEER — точка) которые снимают значение с
вершины математического стека и печатают его в выходном буфере и на
терминале. В первом случае число печатается с фиксированной запятой в
свободном формате с шестью знаками после запятой (то есть без ведущих нулей и
со знаком минус, если число негативно). Во втором случае число печатается в
инженерном/научном представлении с мантиссой, основой 10 и экспонентой
(например -1,234Е-02; 1,98Е+12). Точность представления чисел при распечатке (то
есть количество цифр после десятичной запятой) можно установить с помощью
системной переменной FPREC, которая, по умолчанию равна 6. Для записи нового
значения в системную переменную FPREC существует слово FPREC!, которое
работает следующим образом: с вершины стека данных снимается число (новое
значение переменной FPREC в диапазоне от 0 до 6) и присваивается этой
переменной. Точность равная 0 означает отсутствие десятичной запятой вообще,
что тождественно преобразованию к целому. Значение системной переменной
FPREC не сохраняется при выключении питания, поэтому при использовании иной,
чем по умолчанию, точности представления чисел при распечатке, эту переменную
следует инициализировать.
Как уже упоминалось, стек представляет собой структуру данных, которая
функционирует по принципу "последний зашел - первый вышел". Такая структура
может пригодится для построения некоторых алгоритмов обработки данных. Для
этого необходимо знать количество элементов данных на стеке, чтобы иметь
возможность выполнить цикл обработки этих данных определенное количество раз.
Для определения количества элементов на стеке данных и математическом стеке,
существуют слова DEPTH (глубина) и FDEPTH (FLOAT глубина), которые кладут на
вершину стека данных количество элементов на стеке данных и на математическом
стеке соответственно:
DEPTH

An,An-1,...,A1

---> An,An-1,...,A1,n

FDEPTH

F:An,An-1,...,A1

---> n
---> F:An,An-1,...,A1

Перечисленные выше слова работают со значениями, которые уже находятся в
стеке. А как занести значение в стек? Язык ForthLogic™ имеет следующее правило
по умолчанию: если введенное слово форт-системе не известно, то прежде чем
сообщать пользователю об ошибке, форт-система пытается понять это слово как
запись числа. Если слово-число состоит из одних цифр с возможным начальным
знаком минус, то ошибки нет: слово считается известным и его действие
заключается в том, что данное число кладется на вершину стека данных. Если
слово-число состоит из одних цифр разделенных десятичной запятой (в
действительности это буква . (точка)) с возможным начальным знаком минус и
возможным научным представлением экспоненты числа (с помощью букв е или Е и
возможным знаком экспоненты минус), то слово также считается известным и его
действие заключается в том, что данное число кладется на вершину
Версия 2.6

10

математического стека.
Для непосредственного переноса чисел из одного стека в другой существуют слова
D>F и F>D. Слово D>F снимает верхнее значение с вершины стека данных и
переносит на вершину математического стека с соответствующим превращением
представления числа. --">