frtm for Android APK

Նկարագրություն

Frtm (FoRTh Modoki) ծրագրաշար է, որը մոդելավորում է FORTH ծրագրավորման լեզուն: Այնուամենայնիվ, այն նախատեսված չէ վերարտադրել խիստ FORTH-ը: Կոմպիլյատոր չկա, բայց օգտագործողի կողմից սահմանված բառի բառերն ու հաստատունները մեկնաբանվում են, երբ այն գրանցվում է:

Կան նաև որոշ ասպեկտներ, ի տարբերություն FORTH-ի. frtm-ը չունի բառեր, որպեսզի շահարկի վերադարձի կույտը, մինչդեռ frtm-ը թույլ է տալիս բառի ռեկուրսիվ սահմանումը:

Frtm-ն աջակցում է նաև իրական թվերի հաշվարկին: Այն ունի մաթեմատիկական ֆունկցիաներ, ինչպիսիք են էքսպոնենցիալ, քառակուսի արմատը, եռանկյունաչափական ֆունկցիաները, հիպերբոլիկ ֆունկցիաները, բիթային գործողություններ: Այսպիսով, frtm-ը կարող է լինել գիտական ​​հաշվիչի այլընտրանքային ծրագրակազմը:

Արտահայտության մեկնաբանումը կկատարվի հակադարձ լեհական նշագրման (RPN) համաձայն: Frtm-ն ունի պայմանական ճյուղ «եթե», «do-while» և «for-loop» օղակի կառուցվածքը։ Դուք կարող եք նաև նոր բառ կազմել բառը համադրելով:

Android OS-ում ավելացվել է բառարանի և շարասյունի սկզբնական չափի կոնֆիգուրացիան, բառարանում բառը «բառերի գրքում» պահելու հնարավորությունը։ «Բառային գրքի» թիվը սահմանափակվում է մինչև երեքով:

Լեզվի ավելի մանրամասն ճշգրտման համար խնդրում ենք այցելել ճապոներեն վեբ էջ՝ աջակցության համար:

Եթե ​​ցանկանում եք անվճար փորձարկել frtm-ը, խնդրում ենք փորձել frtm-ի Java հավելվածի տարբերակը հետևյալ վեբ էջում.

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

*** Բառերի օրինակներ ***

* Երկու թվերի միջինը

: պող + 2.0/;

* N թվերի միջինը

նավը փոխանակում է 1-ի վրա փտման համար + հանգույց փոխանակում 1.0 * /;

2 4 6 8 10 5 նավ. քր

0 1 2 3 4 5 6 7 8 9 10 SP նավ. քր

* N թվերի բնակչության տարբերությունը

nvarp dup 1+ copy nave SP nrotr swap dup * ավելի քան 1 համար rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp . քր

* N թվերի անաչառ շեղում

nvar dup 1+ copy nave SP nrotr swap dup * ավելի քան 1 համար rot dup * + loop SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 nvar . քր

* 2 թվերի ամենամեծ ընդհանուր բաժանարարը

gcd կատարել փոխանակում % dup 0 > while drop;

1001 819 գդ. քր

* Գործոնային [փաստ(1)=1, փաստ(n)=n*փաստ(n-1)]

** Ռեկուրսիա

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

10 փաստ. քր

** Կրկնություն

: facti 1 swap 1+ 1 համար I * loop ;

10 փաստ. քր

* Ֆիբոնաչիի հաջորդականությունը [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 մանրաթել. քր

** Կրկնություն

.

30 ֆիբի. քր

* Գրաֆիկա

** Լրացրեք ուղղանկյուն

արկղեր 16 0 համար I setcol 10 20 I * + dup 100 100 recf loop ;

gm տուփեր

hls 16 0 համար I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 recf հանգույց ;

գմ հլս

** Ռեկուրսիվ գծագրություն (Կոխի կոր)

Նախքան 5 պատճենը թողնել;

: genx 3 ndup 6 ndup - * մինուս 100/փոխանակում 4 ndup 7 ndup - * 100/+ 5 ndup +

5 նրոտր 4 կաթիլ ;

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

5 նրոտր 4 կաթիլ ;

gen 6 պատճեն genx 7 nrotr geny ;

պահել 7 նռոտր 7 նռոտր նախա;

փոստ 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1- ;

գիծը տեղափոխվում է գիծ;

: koch dup 0= եթե գցել գիծ այլ

նախա 0 0 գեն պահել 33 0 գեն պոստ քոչ

նախա 33 0 գեն պահել 50 -28 գեն պոստ քոչ

նախ 50 -28 gen պահել 66 0 gen post koch

նախ 66 0 գեն պահել 100 0 գեն պոստ քոչ

5 կաթիլ

endif ;

: kochs 10 setcol 89 440 551 440 4 koch

11 սեթկոլ 551 440 320 40 4 կոչ

12 սեթկոլ 320 40 89 440 4 կոչ ;

գմ կոխս

** 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]«Բարև աշխարհ»):

// Օգտագործելով «գրդեմո» բառը, գրաֆիկական օրինակների որոշ բառեր կգրանցվեն բառարանում: