frtm for Android APK

Düşündiriş

Frtm (FoRTh Modoki), FORTH programma dilini simulasiýa edýän programma üpjünçiligi. Şeýle-de bolsa, berk FORTH köpeltmek niýeti ýok. Düzüji ýok, ýöne ulanyjy kesgitlän sözdäki sözler we yzygiderlilik hasaba alnanda düşündirilýär.

FORTH-dan tapawutlylykda käbir taraplary hem bar: frtm-de yzyna gaýdýan ýeri dolandyrmak üçin sözler ýok, frtm sözüň gaýtalanýan kesgitlemesine mümkinçilik berýär.

Frtm hakyky sanlary hasaplamagy hem goldaýar. Eksonensial, kwadrat kök, trigonometrik funksiýalar, giperboliki funksiýalar, bitwise amallary ýaly matematiki funksiýalara eýedir. Şonuň üçin frtm ylmy kalkulýatoryň alternatiw programma üpjünçiligi bolup biler.

Aňlatmany düşündirmek ters polýak belligine (RPN) laýyklykda geçiriler. Frtm-de "if", "do-while" we "for-loop" aýlawly gurluş bar. Şeýle hem sözi birleşdirip täze söz ýasap bilersiňiz.

“Android OS” -da sözlügiň we stakanyň başlangyç ululygynyň konfigurasiýasy, sözlükdäki sözi “söz kitabyna” ýatda saklamak ukyby goşuldy. "Söz kitabynyň" sany üçe çenli çäklendirilýär.

Dil barada has jikme-jik maglumat almak üçin goldaw üçin ýapon dilindäki Web sahypasyna serediň.

Frtm-i erkin barlamak isleseňiz, aşakdaky web sahypasynda frtm-iň Java applet wersiýasyny synap görmegiňizi haýyş edýäris:

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

*** Sözleriň mysallary ***

* Ortaça iki san

: ave + 2.0 /;

* N sanlaryň ortaça

: çüýrük + aýlaw çalyşmak üçin 1-den ýokary çalyşmak 1.0 * /;

2 4 6 8 10 5 merkez cr

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

* N sanlaryň ilat tapawudy

: nvarp dup 1+ göçürme nave SP nrotr swap dup * çüýremek dup üçin * 1-den ýokary *

2 4 6 8 10 5 nvarp. cr

* N sanlaryň bitarap görnüşi

: nvar dup 1+ göçürme nave SP nrotr swap dup * çüýremek dup * üçin 1-den ýokary

2 4 6 8 10 5 nvar. cr

* 2 sanyň iň uly umumy bölüjisi

: gcd düşýän wagty% dup 0> çalyşýar;

1001 819 gr. cr

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

** Gaýtalanma

: factr dup 1=başga dup 1- factr * endif;

10 faktr. cr

** Iterasiýa

: I * aýlaw üçin fakty 1 çalyşmak 1+ 1;

10 fakt. cr

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

** Gaýtalanma

: fib dup 0=başga dup 1=başga dup 1- fib swap 2 - fib + endif endif;

30 süýüm. cr

** Iterasiýa

: fibi dup 0=başga bir zat çalşmak üçin 0 1 rot 1 + loop swap drop endif;

30 fibi. cr

* Grafika

** Gönüburçlugy dolduryň

: 16 0 gutular I setcol 10 20 I * + dup 100 100 rectf loop;

gm gutular

: I 45 * 2/50 100 setHLS 10 20 I * + 100 100 gönüburçly aýlaw üçin hls 16 0;

gm hls

** Gaýtalanýan çyzgy (Koç egrisi)

: 5 göçürme deslapky;

: genx 3 ndup 6 ndup - * minus 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 göçürme genx 7 nrotr geni;

: 7 nrotr 7 nrotr öňünden saklaň;

: 9 düwün 9 düwün 4 düwün 4 düwün 4 düwün 5 ndup 1-;

: setir çyzgysy;

: koch dup 0=başga bir çyzyk bolsa

öňünden 0 0 gen 33 0 gen post saklaň

33 33 gen 50 -28 gen post koch saklaň

50 -28 gen 66 66 gen post koch saklaýar

66 66 gen 100 0 gen post koch saklaň

5-nji nokat

endif;

: kochs 10 setcol 89 440 551 440 4 koch

11 setkol 551 440 320 40 4 koç

12 setkol 320 40 89 440 4 koç;

gm kochs

** Gaçyş yzygiderliligi ýaly ReGIS grafiki terminaly gönüden-göni ulanmak

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] 'Salam Dünýä').

// 'grdemo' sözüni ulanyp, grafika mysallary üçin käbir sözler sözlükde hasaba alynar.