Редактирование: MAX
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 1: | Строка 1: | ||
'''MAX''' (максимум) — стандартное слово [[Каллисто]]. Нахождение большего из двух [[Десятичное число|чисел]]. | '''MAX''' (максимум) — стандартное слово [[Каллисто]]. Нахождение большего из двух [[Десятичное число|чисел]]. | ||
MAX ( | MAX ( x1 x2 −− x3 ) Нахождение большего из двух чисел. | ||
x3 := max (x1, x2) | |||
[[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова MAX]] | [[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова MAX]] | ||
Засылает в [[Стек данных|стек]] [[Десятичное число|число]] x3, которое является наибольшим из двух [[Десятичное число|чисел]] x1 и x2. | |||
== Ввод слова MAX == | == Ввод слова MAX == | ||
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три клавиши [[Клавиша ÷|{{Серая клавиша|÷}}]] {{ШГ←}} [[Клавиша 0|{{Серая клавиша|0}}]] | В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три клавиши [[Клавиша ÷|{{Серая клавиша|÷}}]] [[Клавиша ШГ влево|{{Чёрная клавиша|ШГ←}}]] [[Клавиша 0|{{Серая клавиша|0}}]] | ||
== Детали реализации == | |||
Слово является «обёрткой» вокруг команды ЭКВМ [[К max]]. | |||
== MAX и FMAX в стандарте ANS Forth == | == MAX и FMAX в стандарте ANS Forth == | ||
6.1.1870 MAX CORE | 6.1.1870 MAX CORE | ||
( n1 n2 -- n3 ) | ( n1 n2 -- n3 ) | ||
Строка 17: | Строка 19: | ||
( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 ) | ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 ) | ||
r3 большее из r1 и r2. | r3 большее из r1 и r2. | ||
== MAX в предыдущем стандарте Forth-83 (англ.) == | |||
MAX n1 n2 -- n3 79 "max" | MAX n1 n2 -- n3 79 "max" | ||
n3 is the greater of n1 and n2 according to the operation of | n3 is the greater of n1 and n2 according to the operation of | ||
> . | > . | ||
== MAX в стандарте Forth-79 (англ.) == | |||
MAX n1 n2 -- n3 218 "max" | MAX n1 n2 -- n3 218 "max" | ||
Leave the greater of two numbers. | Leave the greater of two numbers. | ||
== MAX в fig-FORTH Release 1 glossary, май 1979 (англ.) == | |||
MAX n1 n2 --- max L0 | MAX n1 n2 --- max L0 | ||
Leave the greater of two numbers. | Leave the greater of two numbers. | ||
== Реализация == | == Реализация == | ||
Слово MAX в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение: | Слово MAX в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение: | ||
<PRE> | <PRE> | ||
МАХ N1,N2->N3 | МАХ N1,N2->N3 БОЛЬЕЕЕ ИЗ ЧИСЕЛ N1 И N2 22 | ||
Экран номер 22 | Экран номер 22 | ||
Строка 123: | Строка 77: | ||
[[Категория:Примитивы]] | [[Категория:Примитивы]] | ||
[[Категория:Математические функции Каллисто]] | [[Категория:Математические функции Каллисто]] | ||