Icefall

DUP в первой строке с большой буквы напиши

А оный препод этот форум не читает?

Хе, кстати, преподу привет!

Icefall
Мое сообщение выше посмотри.

И снова здравствуйте! Спасибо всем тем кто откликнулся. К сожалению код на Си остался в аудитории { забыл его забрать, да если честно я его сам полностью и не сделал (-:, но если найду то обязательно запостю. }

На форте значит алгоритм вычисления корня из целого числа выглядит так? {Кстати, мы "программим" под линуксом -> консоль -> gforth. В Gforth этот код сработает?}

: SQRT ( n -- s ) DUP 2 < IF 0 MAX EXIT THEN
DUP 2/ ( -- n s )
BEGIN 2DUP / OVER ( -- n s n/s s )
+ 2/ ( -- n s s' )
SWAP OVER ( -- n s' s s' )
- ABS 2 < UNTIL NIP ;

А без комментов, чтобы никто не догадался, так.
: SQRT
DUP 2 < IF 0 MAX EXIT THEN
DUP 2/
BEGIN 2DUP / OVER
+ 2/
SWAP OVER
- ABS 2 < UNTIL NIP ;
Еще бы понять, что тут деляется. Что есть
DUP 2 < IF 0 MAX EXIT THEN <-- если ноль то выход?
- ABS 2? <-- - модуль зачем ?
NIP <-- что есть NIP?

Наглость, конечно, но написали бы мне-балбесу членораздельное предложение, как ответить на провакоционный вопрос преподавателя "Ну и объясни как это работает?". (-:


Если это не Вы, Евгений Александрович, то надеюсь, что нет...

А как насчет того чтобы пролистать русские изданные книги по Форт языку.
Чтение их необреминительное занятие.

P.S. ссылки на них есть на forth.org.ru

Есть еще такой вариант из одной Форт сиистемы.
Извлечение корня из двойного числа.

: sqrt ( d -- n ) \ binary search for SQRT(d)
-1 1 rshift invert 0 >r ( d guess | result )
begin dup
while dup r@ + dup um* ( d guess [r+g]^2 | res )
rot >r 2over d- d1- nip 0< ( d f | res guess )
if r> r> over + >r ( d guess | result )
else r>
then u2/
repeat drop 2drop r> ;

Ну это уже на крайний случай... (:


Эх, не грузите интеллектом, тут бы из целого числа высчитать...

Да, что то в этом есть. Форт предполагает возможность
ручной тусовки переменных.
В Вашем случае можно воспользоваться алгоритмом с
использованием локальных именованных переменных в фигурных скобках

???

unreal666, не придирайся. я и так пост три раза правил... кому надо, разберется.
dream, объясню пошагово (а вообще иди [url="http://www.forth.org.ru/~cactus/library.htm"]книжки читай[/url]):

объявляем слово, в комментах - обозначение: n - число, s - его кв. корень;


если число меньше двух (т.е. отрицательно, 0 или 1), возвращаем нуль. Тут вообще-то допущена ошибка - при n = 1 должна возвращаться единица. исправь сам


готовим переменные для цикла. на стеке - исходное число и его кв. корень в первом приближении.


цикл: поделили число на корень в предыдущем приближении, сдублировали наверх стека старый.


нашли среднее арифметическое, это число примем как корень в следующем приближении


если разница по модулю между корнями на последовательнеых итераций (т.е. погрешность) не больше двух, выйти из цикла. убрать второй элемент стека (т.е. n).

И еще раз: [url="http://www.forth.org.ru/~cactus/library.htm"]читать книги[/url]!

Пример использования локальных переменных.

: dum+ { a b \ c -- sum } \ a и b инициализируются со стека
a b + to c c ; \ с - временная переменная

\ в форте все слова илсновной разделить между ними пробел!!!!
\ : dum+ определить слово с именем dum+
\ фигурные скобки вводят локальные переменные
\ { a b \ c -- sum } обозначить локальные переменные
\ a и b инициализируются со стека с - временная переменная
\ \ разделяет переменные для инициализации со стека и временную
\ -- sum необязательные комментрарии к результатам работы слова.
\ a b + сложить a и b
\ to c записать результат сложения в переменную с
\ с оставить на стеке данных значение временной переменной с
\ ; завершение определения

P.S. Эта форма использования локальных переменных отлична
от приведенной схемы в стандарте языка 94г,
но существует во множестве форт систем как де-факто.
Для определения глобальных переменных есть слова VALUE и VARIABLE

Огрёб зачет! Спасибо. Преподаватель конечно заподозрил неладное и охарактеризовал решение как "больно всё лаконично". Рэспект и уважуха, Forth People! Не будь Вас, как бы Forth делали? Хотя с другой стороны Не будь Вас, Forth'a глядишь бы то же не было... Всё в мире относительно! (-:

А что за учебное заведение?

Вот, как раз на днях понадобился квадратный корень... Обнаружил такую красоту (из мат.либы для rf):

На отрицательных x retroforth вылетает...