Слово ×: различия между версиями
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) (→Ссылки) |
||
Строка 84: | Строка 84: | ||
* [http://ru.wikipedia.org/wiki/%D0%A3%D0%BC%D0%BD%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 Умножение на Википедии] | * [http://ru.wikipedia.org/wiki/%D0%A3%D0%BC%D0%BD%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 Умножение на Википедии] | ||
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0090 ∗ (star)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1410 F∗ (f-star)] в стандарте ANS Forth ''(англ.)'' | * Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0090 ∗ (star)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1410 F∗ (f-star)] в стандарте ANS Forth ''(англ.)'' | ||
* Слова [http:// | * Слова [http://forth-standard.org/standard/core/Times ∗ (star)] и [http://forth-standard.org/standard/float/FTimes F∗ (f-star)] в черновике Forth 200x ''(англ.)'' | ||
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | * [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | ||
* [http://www.forth.com/starting-forth/sf2/sf2.html How to Get Results] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | * [http://www.forth.com/starting-forth/sf2/sf2.html How to Get Results] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' |
Версия от 07:59, 29 марта 2016
× (умножить, умножение) — стандартное слово Каллисто. Умножение десятичных чисел.
× ( x1 x2 -- x3 ) Умножить. x3 ← x1 × x2
Умножает x1 на x2, возвращая произведение x3.
Ввод слова ×
В режиме NUM нажмите белую клавишу ×
Детали реализации
Слово × является «обёрткой» вокруг команды ЭКВМ ×, вызывающей переполнение при результате, по модулю больше либо равном 10100.
Обработка этой ошибки производится встроенной программой. Например, последовательность слов 1E50 ↑ × вызывает аварийный останов Каллисто с сообщением «Переполнение» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «10100» и вернуться в Каллисто, нажав С/П . Подробнее см. статью Авост Каллисто.
В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши В/О С/П .
Слово × также может использоваться для умножения целых чисел, как в Форте. В этом случае произведение x3 — также целое число, если его модуль не превышает 1012.
∗ в стандарте ANS Forth
6.1.0090 ∗ "star" CORE ( n1|u1 n2|u2 -- n3|u3 ) Умножает n1|u1 на n2|u2, возвращает n3|u3.
F∗ в стандарте ANS Forth
12.6.1.1410 F∗ "f-star" FLOATING ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 ) Умножает r1 на r2, возвращает r3.
∗ в предыдущем стандарте Forth-83 (англ.)
∗ w1 w2 -- w3 79 "times" w3 is the least-significant 16 bits of the arithmetic product of w1 times w2.
∗ в стандарте Forth-79 (англ.)
∗ n1 n2 -- n3 138 "times" Leave the arithmetic product of n1 times n2.
∗ в fig-FORTH Release 1 glossary, май 1979 (англ.)
∗ n1 n2 --- prod L0 Leave the signed product of two signed numbers.
История
Слово ∗ является одним из самых древних сохранившихся слов Форта.
Оно появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
В 1970 году слово × работало в 2К×48бит версии Форта на Burroughs B-5500.
В Форте слово × записывается, как звёздочка: ∗
В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также десятичные дроби и числа с плавающей запятой. Имя × наследует советским ПМК.
Реализация
Слово × в ФОРТ-ЕС и FORTH ИТЭФ называлось ∗ и работало только с целыми числами. Определялось оно также одинаково, через примитив M∗
Вот описания и определения этих двух слов в ядре ФОРТ-ЕС:
M* T N1,N2->D ПРОИЗВЕДЕНИЕ ДВОЙНОЙ ДЛИНЫ N1 И N2 18 * N1,N2->N3 ПРОИЗВЕДЕНИЕ ЧИСЕЛ N1 И N2 18 Экран номер 18 ( 03.10.84 М* M/ * /MOD / MOD */MOD */) CODE M* ( N1,N2->D) RH1 SECOND LH, RW1 FIRST MH, 2PUTRW1 B, : * ( N1,N2->N3) M* DROP ;
Определения этих двух слов в FORTH ИТЭФ:
HEAD 202Q,'M',252Q,MSTAR ; M* POP AX POP CX IMUL CX PUSH AX PUSH DX NEXT ... HEAD 201Q,,252Q,STAR,$COL ; * DW MSTAR,DROP,SEMI
Ссылки
- См. слова 2×, ÷, −, +
- См. также символ ×
- Умножение на Википедии
- Слова ∗ (star) и F∗ (f-star) в стандарте ANS Forth (англ.)
- Слова ∗ (star) и F∗ (f-star) в черновике Forth 200x (англ.)
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |