frtm for Android APK

Përshkrim

Frtm (FoRTh Modoki) është një softuer që simulon gjuhën e programimit FORTH. Megjithatë nuk synohet të riprodhojë FORTH strikte. Nuk ka përpilues, por fjalët dhe konstantet në një fjalë të përcaktuar nga përdoruesi interpretohen kur ajo regjistrohet.

Ekzistojnë gjithashtu disa aspekte ndryshe nga FORTH: frtm nuk ka fjalë për të manipuluar pirgun e kthimit, ndërsa frtm lejon përkufizimin rekurziv të fjalës.

Frtm gjithashtu mbështet llogaritjen e numrave realë. Ka funksione matematikore si eksponenciale, rrënja katrore, funksione trigonometrike, funksione hiperbolike, operacione bit. Pra, frtm mund të jetë softueri alternativ i kalkulatorit shkencor.

Interpretimi i shprehjes do të kryhet në përputhje me Shënimin e kundërt polak (RPN). Frtm ka degë të kushtëzuar "nëse", strukturë për një lak "do-while" dhe "for-loop". Ju gjithashtu mund të krijoni një fjalë të re duke e kombinuar fjalën.

Në sistemin operativ Android, është shtuar konfigurimi i madhësisë fillestare të fjalorit dhe pirgut, aftësia për të ruajtur fjalën në fjalor në "librin e fjalëve". Numri i "librit të fjalëve" është i kufizuar deri në tre.

Për një specifikim më të detajuar të gjuhës, ju lutemi referojuni faqes së internetit në japonisht për mbështetje.

Nëse dëshironi të testoni frtm lirisht, ju lutemi provoni versionin e aplikacionit Java të frtm në faqen e mëposhtme të internetit:

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

*** SHEMBUJ fjalësh ***

* Mesatarja e dy numrave

: ave + 2.0/;

* Mesatarja e N numrave

: ndërrimi i nyjeve mbi 1 për kalbje + ndërrim laku 1.0 */;

2 4 6 8 10 5 naos . kr

0 1 2 3 4 5 6 7 8 9 10 naosi i PS . kr

* Varianca e popullsisë së N numrave

: nvarp dup 1+ copy nave SP nrotr swap dup * mbi 1 për rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp . kr

* Ndryshim i paanshëm i numrave N

: nvar dup 1+ kopjoni nave SP nrotr swap dup * mbi 1 për rot dup * + loop SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 nvar. kr

* Pjesëtuesi më i madh i përbashkët i 2 numrave

: gcd do këmbejë mbi % dup 0 > while drop ;

1001 819 gd. kr

* Faktorial [fakt(1)=1, fakt(n)=n*fakt(n-1)]

** Rekursion

: factr dup 1=nëse tjetër dup 1- factr * endif ;

10 fakt. kr

** Përsëritje

: facti 1 swap 1+ 1 for I * loop ;

10 fakte. kr

* Sekuenca Fibonacci [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Rekursion

: fib dup 0= nëse tjetër dup 1=nëse tjetër dup 1- fib swap 2 - fib + endif endif ;

30 fib . kr

** Përsëritje

: fibi dup 0= nëse tjetër 0 1 rot 1 për swap over + loop swap drop endif ;

30 fibi . kr

* Grafika

** Plotësoni drejtkëndëshin

: kutitë 16 0 për I setcol 10 20 I * + dup 100 100 recf loop ;

kuti gm

: hls 16 0 për I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 recf loop ;

gm hls

** Vizatim rekurziv (kurba Koch)

: rënie para 5 kopjesh ;

: genx 3 ndup 6 ndup - * minus 100/ndërroj 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 pikë;

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

5 nrotr 4 pikë;

: gen 6 kopje genx 7 nrotr geny ;

: mbaj 7 nrotr 7 nrotr para ;

: post 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1- ;

: linja lëviz në linjëto ;

: koch dup 0= nëse linja e lëshimit tjetër

para 0 0 gen mbaj 33 0 gen post koch

para 33 0 gen mbaj 50 -28 gen post koch

para 50 -28 gen mbaj 66 0 gen post koch

para 66 0 gen mbaj 100 0 gen post koch

5 pika

endif ;

: kochs 10 setcol 89 440 551 440 4 koch

11 setcol 551 440 320 40 4 koch

12 setcol 320 40 89 440 4 koch ;

gm kochs

** Përdorimi i drejtpërdrejtë i terminalit grafik ReGIS si sekuenca e arratisjes

gm

(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]'Përshëndetje Botë') .

// Duke përdorur fjalën 'grdemo', disa fjalë për shembuj grafikë do të regjistrohen në fjalor.