Начальный курс программирования на языке Форт

         

СМЕШАННЫЕ МАТЕМАТИЧЕСКИЕ ОПЕРАЦИИ


Приведем еще четыре математические операции. Как и в случае сокращенных операций, их функции должны быть вам понятны:ABS ( n -- |n| ) Помещение в стек абсолютной величины заданного числа. NEGATE ( n -- -n ) Изменение знака на противоположный. MIN ( n1 n2 -- min) Помещение в стек минимального из двух заданных чисел. МАХ ( n1 n2 -- max) Помещение в стек максимального из двух заданных чисел.

Рассмотрим две простые задачи на использование слов ABS и MIN.

ABS

Напишите определение для вычисления разности между двумя числами (независимо от порядка их следования): : РАЗНОСТЬ ( n1 n2 -- разность ) - ABS ;

Результаты получаются одинаковыми при любом порядке ввода: 52 37 РАЗНОСТЬ . 15 ok или 37 52 РАЗНОСТЬ . 15 ok

MIN

Напишите определение для вычисления суммы комиссионного сбора, которую получат продавцы мебели, если им обещано 50 дол. или 1/10 часть от продажной цены при каждой сделке (в зависимости от того, какая из сумм окажется меньшей): : КОМИССИОННЫЕ ( цена - комиссионные ) 10 / 50 MIN ;

При трех различных значениях получается следующее. 600 КОМИССИОННЫЕ . 50 ok 450 КОМИССИОННЫЕ . 45 ok 50 КОМИССИОННЫЕ . 5 ok



Содержание раздела