frtm for Android APK

Тавсифи

Frtm (FoRTh Modoki) як нармафзорест, ки забони барномасозии FORTH-ро тақлид мекунад. Бо вуҷуди ин, он барои дубора тавлид кардани FORTH қатъӣ пешбинӣ нашудааст. Тартибдиҳанда вуҷуд надорад, аммо калимаҳо ва доимӣ дар калимаи аз ҷониби корбар муайяншуда ҳангоми сабти ном шарҳ дода мешаванд.

Баръакси FORTH низ баъзе ҷанбаҳо мавҷуданд: frtm калимаҳои идора кардани стеки бозгаштро надорад, дар ҳоле ки frtm таърифи рекурсивии калимаро имкон медиҳад.

Frtm инчунин ҳисобкунии рақамҳои воқеиро дастгирӣ мекунад. Он дорои вазифаҳои математикӣ ба монанди экспоненсиалӣ, решаи квадратӣ, функсияҳои тригонометрӣ, функсияҳои гиперболӣ, амалҳои битвӣ мебошад. Ҳамин тавр, frtm метавонад нармафзори алтернативии ҳисобкунаки илмӣ бошад.

Тафсири ифода мувофиқи Noation Reverse Polish (RPN) анҷом дода мешавад. Frtm дорои шохаи шартии "if", сохтор барои даври "do-while" ва "for-loop" мебошад. Шумо инчунин метавонед бо якҷоя кардани калима калимаи нав созед.

Дар OS Android конфигуратсияи андозаи ибтидоии луғат ва стек, қобилияти захира кардани калима дар луғат ба "китоби калима" илова карда шудааст. Шумораи «китоби калом» то се махдуд аст.

Барои тавсифи муфассали забон, лутфан ба саҳифаи веб бо забони японӣ барои дастгирӣ муроҷиат кунед.

Агар шумо хоҳед, ки frtm-ро озодона санҷед, лутфан версияи Java апплети frtm-ро дар саҳифаи интернетии зерин санҷед:

http://www.rbt.his.u-fukui.ac.jp/~naniwa/comp/frtma.html

*** МИСОЛҲОИ калимаҳо ***

* Миёнаи ду рақам

: аве + 2.0/;

* Миёнаи рақамҳои N

: своп нав бар 1 барои рот + ивази ҳалқа 1.0 */;

2 4 6 8 10 5 нав. cr

0 1 2 3 4 5 6 7 8 9 10 SP nave. cr

* Тафовути шумораи рақамҳои N

: nvarp dup 1+ нусхаи nave SP nrotr swap dup * зиёда аз 1 барои rot dup * + своп 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp. cr

* Тафовути беғаразонаи рақамҳои N

: nvar dup 1+ нусхаи nave SP nrotr swap dup * зиёда аз 1 for rot dup * + loop SP nrot dup * 3 ndup * - своп 1- 1.0 */;

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

* Бузургтарин тақсимкунандаи умумии 2 адад

: gcd иваз кардан бар % dup 0 > ҳангоми тарк кардан ;

1001 819 гкд. cr

* Факториалӣ [факт(1)=1, далел(n)=n*факт(n-1)]

** Рекурсия

: factr dup 1=if other dup 1- factr * endif ;

10 факт. cr

** Итерация

: факти 1 иваз 1+ 1 барои I * даври ;

10 факт. cr

* пайдарпаии Фибоначӣ [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Рекурсия

: fib dup 0= if other dup 1=if other dup 1- fib swap 2 - fib + endif endif ;

30 фиб. cr

** Итерация

: fibi dup 0= агар дар акси ҳол 0 1 rot 1 for swap over + loop swap drop endif ;

30 фиб. cr

* Графика

** Росткунҷаро пур кунед

: қуттиҳо 16 0 барои I setcol 10 20 I * + dup 100 100 loop rectf ;

қуттиҳои gm

: hls 16 0 барои I 45 * 2/50 100 маҷмӯиHLS 10 20 I * + дуп 100 100 ҳалқаи rectf;

gm hls

** Нақшаи рекурсивӣ (қаҷи Кох)

: пеш аз 5 нусха тарки;

: genx 3 ndup 6 ndup - * минус 100/swap 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop;

: geny swap 3 ndup 6 ndup - * 100/swap 4 ndup 7 ndup - * 100/+ 4 ndup +

5 nrotr 4 ndrop;

: gen 6 нусха genx 7 nrotr geny ;

: 7 нротр 7 нротрро пеш нигоҳ доред;

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

: line to lineto ;

: koch dup 0=агар хати тарки дигар

пеш аз 0 0 ген нигоҳ 33 0 ген баъди Кох

пеш аз 33 0 ген нигоҳ 50 -28 ген баъд аз Кох

пеш аз 50 -28 ген нигоҳ 66 0 ген баъди Кох

пеш аз 66 0 ген нигоҳ 100 0 ген баъди Кох

5 қатра

endif;

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

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

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

gm kochs

** Истифодаи мустақими терминали графикии ReGIS ба монанди пайдарпаии фирор

гм

(W(I15)P[50,50]C(S)[][+40,+40][+40,-40][+40,+40][+40,-40][+40,+ 40][+40,-40][](E)).

(W(I12)P[50,150]F(C(B)[200,+200][+200,-150](E))) .

(W(I11)P[70,170]T(S16)[16,12]'Салом Ҷаҳон') .

// Бо истифода аз калимаи 'grdemo', баъзе калимаҳо барои мисолҳои графикӣ дар луғат сабт карда мешаванд.