frtm for Android APK

Опис

Фртм (ФоРТх Модоки) је софтвер који симулира програмски језик ФОРТХ. Међутим, није предвиђено да репродукује строги ФОРТХ. Не постоји компајлер, али речи и константе у кориснички дефинисаној речи се тумаче када се она региструје.

Постоје и неки аспекти за разлику од ФОРТХ-а: фртм нема речи за манипулисање повратним стеком, док фртм дозвољава рекурзивну дефиницију речи.

Фртм такође подржава израчунавање реалних бројева. Има математичке функције као што су експоненцијалне, квадратни корен, тригонометријске функције, хиперболичке функције, битне операције. Дакле, фртм може бити алтернативни софтвер научног калкулатора.

Тумачење израза ће се вршити у складу са Реверсе Полисх Нотатион (РПН). Фртм има условну грану "иф", структуру за петљу "до-вхиле" и "фор-лооп". Такође можете направити нову реч комбиновањем речи.

На Андроид ОС-у додата је конфигурација почетне величине речника и стека, могућност чувања речи у речнику у „књигу речи“. Број „књиге речи“ је ограничен на највише три.

За детаљнију спецификацију језика, погледајте веб страницу на јапанском за подршку.

Ако желите да бесплатно тестирате фртм, испробајте верзију фртм-а Јава апплета на следећој веб страници:

хттп://ввв.рбт.хис.у-фукуи.ац.јп/~нанива/цомп/фртма.хтмл

*** ПРИМЕРИ речи ***

* Просек два броја

: аве + 2.0/;

* Просек од Н бројева

: наве свап преко 1 за рот + лооп свап 1.0 */;

2 4 6 8 10 5 наос . кр

0 1 2 3 4 5 6 7 8 9 10 СП наос . кр

* Варијанца становништва од Н бројева

: нварп дуп 1+ цопи наве СП нротр свап дуп * преко 1 за рот дуп * + лооп свап 1.0 */СП нрот дуп * - ;

2 4 6 8 10 5 нварп . кр

* Непристрасна варијанса Н бројева

: нвар дуп 1+ цопи наве СП нротр свап дуп * преко 1 за рот дуп * + петља СП нрот дуп * 3 ндуп * - свап 1- 1.0 */;

2 4 6 8 10 5 нвар . кр

* Највећи заједнички делилац 2 броја

: гцд врши замену преко % дуп 0 > док испусти ;

1001 819 гцд . кр

* Факторски [чињеница(1)=1, чињеница(н)=н*чињеница(н-1)]

** Рекурзија

: фацтр дуп 1=иф елсе дуп 1- фацтр * ендиф ;

10 фацтр . кр

** Итерација

: факти 1 заменити 1+ 1 за И * петљу ;

10 фацти . кр

* Фибоначијев низ [фиб(0)=0, фиб(1)=1, фиб(н)=фиб(н-1) + фиб(н-2)]

** Рекурзија

: фиб дуп 0= иф елсе дуп 1=иф елсе дуп 1- фиб свап 2 - фиб + ендиф ендиф;

30 фиб . кр

** Итерација

: фиби дуп 0= иф елсе 0 1 рот 1 фор свап овер + лооп свап дроп ендиф ;

30 фиби . кр

* Графика

** Попуните правоугаоник

: кутије 16 0 за И сетцол 10 20 И * + дуп 100 100 рецтф петља ;

гм кутије

: хлс 16 0 за И 45 * 2/50 100 сетХЛС 10 20 И * + дуп 100 100 рецтф петља ;

гм хлс

** Рекурзивно цртање (Кохова крива)

: испуштање пре 5 копија ;

: генк 3 ндуп 6 ндуп - * минус 100/свап 4 ндуп 7 ндуп - * 100/+ 5 ндуп +

5 нротр 4 ндроп ;

: гени свап 3 ндуп 6 ндуп - * 100/свап 4 ндуп 7 ндуп - * 100/+ 4 ндуп +

5 нротр 4 ндроп ;

: ген 6 цопи генк 7 нротр гени ;

: задржи 7 нротр 7 нротр пре ;

: пост 9 нрот 9 нрот 4 нрот 4 нрот 5 ндуп 1- ;

: лине мовето линето ;

: коцх дуп 0= иф дроп лине елсе

пре 0 0 ген кееп 33 0 ген пост коцх

пре 33 0 ген задржати 50 -28 ген пост коцх

пре 50 -28 ген задржати 66 0 ген пост коцх

пре 66 0 ген задржати 100 0 ген пост коцх

5 ндроп

ендиф ;

: коцхс 10 сетцол 89 440 551 440 4 коцх

11 сетцол 551 440 320 40 4 коч

12 сетцол 320 40 89 440 4 коцх ;

гм коцхс

** Директна употреба РеГИС графичког терминала попут есцапе секвенце

гм

(В(И15)П[50,50]Ц(С)[][+40,+40][+40,-40][+40,+40][+40,-40][+40,+ 40][+40,-40][](Е)) .

(В(И12)П[50,150]Ф(Ц(Б)[200,+200][+200,-150](Е))) .

(В(И11)П[70,170]Т(С16)[16,12]'Хелло Ворлд') .

// Коришћењем речи 'грдемо', неке речи за примере графике биће регистроване у речнику.