Язык программирования Форт



         

Приложение Д. Ответы к упражнениям


Блок 0 [0:0] ( Глава 1. Упражнения 1. 01 из 02 ) ( 1. ) ( а. 10 б. 0 в. 6 г. 1 д. 4 ) ( 2. ) ( а. 1 2 * b. 1 2 * 2 / в. 2 3 / 1 + г. 1 2 + 3 / д. 3 2 1 + / е. 3 4 + 2 1 + / ) ( 3. ) : POWER4 ( n -- ) DUP CUBE * ; ( 4, ) : NEWPOWER4 ( n -- ) SQUARE SQUARE ; ( 5. ) : PYTHAGORUS ( n1 n2 -- ) SQUARE SWAP SQUARE * :

Блок 1 [1:0] ( Глава 1. Упражнения 1. 02 из 02 ) ( 6. ) ( AREA ( радиус -- ) SQUARE 314 * ; ( 7. ) : VOLUME ( длина радиус -- ) AREA * ; : XVOLUME ( радиус длина -- ) SWAP AREA * ; ( Второе описание менее эффективно из-эа лишнего SWAP . )

Блок 2 [2:0] ( Глава 1. Упражнения 2. 01 из 02 ) ( 1. ) ( Главное преимущество диска заключается в уменьшении вероятности потери программы и в простоте ее изменения.) ( 2. ) : .X ." -" ; ( .X может быть изменено для отображения любого символа. ) ( 3. ) : LIMITBAR ( n --) DUP 40 > IF DROP 40 THEN BAR ; ( Для использования с 80-символьным экраном: ) ( : LIMITBAR ( n -- ) DUP 80 > IF DROP 80 THEN BAR ; ) ( Аналогичным образом можно приспособиться к экрану любой ширины ) ( 4. ) : LIMITBAR1 ( n --) 100 / DUP 64 > IF DROP 64 THEN BAR ; (5. ) : LIMITBAR2 ( в.- ) 10000 / 64 * DUP 64 > IF DROP 64 THEN BAR ;

Блок 3 [3 :0] ( Глава 1. Упражнения 2. 02 из 02 ) ( 6. ) : GRAPH ( n1 т2 n3 ... -- или n1 n2 n3 ) CR DEPTH DUP 16 < IF DO LIMITBAR LOOP THEN ; ( Заметии, что исходное число может остаться в стеке.) ( 7.) : BAR ( n --) DUP 0 DO .X LOOP . СR ; ( DUP позволяет использовать вернее число как LIMlTBAR, так и . ) : LIMITBAR3 ( n -- ) DUP 50 > IF DROP 50 THEN BAR ;

Блок 4 [4 :0] ( Глава 2, Упражнения 1. 01 из 04 ] . ( 1. ) ( а. 5 5 + 5 + . Ответ: 15 б. 5 5 * 5 * 5 * . 625 в. 5 5 + 5 * . , 50 г. 5 5 + 5 / . 2 д. 5 5 + 2 / . 5 е. 10 5 5 + / . 1 ж. 5 4 + 5 5 + / . 0 з. 5 5 * 5 4 * 4 4 * + . 61 и. 5 4 + 5 4 + * . 81 к. 5 4 + 5 4 + * . 81

Блок 5 [5 :0] Глава 2. Упражнения 1. 02 из 04 ) ( 2.) а. 5 5 5 + + . Ответ: 15 б. 5 5 5 5 * * * . 625 в. 5 5 5 + * . 50 г. Это нельзя изменить. д. и это нет. е. Это тоже нельзя.


Содержание  Назад  Вперед