frtm for Android APK

وصف

Frtm (FoRTh Modoki) هو برنامج يحاكي لغة البرمجة FORTH. ومع ذلك ، ليس الغرض منه إعادة إنتاج FORTH الصارم. لا يوجد مترجم ، ولكن يتم تفسير الكلمات والثوابت في الكلمة المعرفة من قبل المستخدم عند تسجيلها.

هناك أيضًا بعض الجوانب بخلاف FORTH: ليس لدى frtm الكلمات للتعامل مع مكدس الإرجاع ، بينما يسمح frtm بالتعريف العودي للكلمة.

يدعم Frtm أيضًا حساب الأرقام الحقيقية. لها وظائف رياضية مثل الأسي ، الجذر التربيعي ، الدوال المثلثية ، الدوال الزائدية ، العمليات الأحادية. لذلك يمكن أن يكون frtm البرنامج البديل للآلة الحاسبة العلمية.

سيتم إجراء تفسير التعبير وفقًا للتدوين البولندي العكسي (RPN). يحتوي Frtm على فرع شرطي "if" ، بنية لحلقة "do-while" و "for-loop". يمكنك أيضًا إنشاء كلمة جديدة من خلال الجمع بين الكلمة.

في نظام التشغيل Android ، تمت إضافة تكوين الحجم الأولي للقاموس والمكدس ، والقدرة على حفظ الكلمة في القاموس إلى "كتاب الكلمات". عدد "كتاب الكلمات" محدد بحد أقصى ثلاثة.

للحصول على مواصفات أكثر تفصيلاً للغة ، يرجى الرجوع إلى صفحة الويب باللغة اليابانية للحصول على الدعم.

إذا كنت ترغب في اختبار frtm بحرية ، فالرجاء تجربة إصدار Java الصغير من frtm على صفحة الويب التالية:

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

*** أمثلة من الكلمات ***

* متوسط ​​عددين

: أفي + 2.0/؛

* متوسط ​​عدد N

: nave swap over 1 for rot + loop swap 1.0 */؛

2 4 6 8 10 5 صحن. سجل تجاري

0 1 2 3 4 5 6 7 8 9 10 ليرة سورية صحن. سجل تجاري

* التباين السكاني لأعداد N

: nvarp dup 1+ copy nave SP nrotr swap dup * over 1 for 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 * over 1 for rot dup * + loop SP nrot dup * 3 ndup * - swap 1- 1.0 * /؛

2 4 6 8 10 5 nvar. سجل تجاري

* أكبر عامل قسمة مشترك مكون من رقمين

: gcd do swap over٪ dup 0> while drop؛

1001819 GCD. سجل تجاري

* عاملي [حقيقة (1)=1 ، حقيقة (ن)=ن * حقيقة (ن -1)]

** العودية

: factr dup 1=if else dup 1- factr * endif؛

10 فاكتور. سجل تجاري

** تكرار

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

10 حقائق. سجل تجاري

* تسلسل فيبوناتشي [فيبوناتشي (0)=0 ، فيب (1)=1 ، فيب (ن)=فيب (ن -1) + فيبوناتشي (ن -2)]

** العودية

: Fib dup 0=if else dup 1=if else dup 1 - Fib dup 2 - فيب + إنديف ؛

30 فيب. سجل تجاري

** تكرار

: fibi dup 0=if else 0 1 rot 1 للتبديل فوق + loop swap drop endif ؛

30 فيبي. سجل تجاري

* الرسومات

** قم بتعبئة المستطيل

: مربعات 16 0 لـ I setcol 10 20 I * + حلقة مستقيمة 100100 ؛

مربعات جرام

: hls 16 0 لـ I 45 * 2/50100 setHLS 10 20 I * + double 100100 rectf loop ؛

جم 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 ؛

: genx 6 copy genx 7 nrotr geny ؛

: احتفظ بـ 7 nrotr 7 nrotr مسبقًا ؛

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

: خط موفيتو لينيتو ؛

: koch dup 0=إذا كان خط الإسقاط آخر

قبل 0 0 gen احتفظ 33 0 gen post koch

ما قبل 33 0 gen keep 50-28 gen post koch

ما قبل 50-28 ، احتفظ بـ 66 0 gen post koch

ما قبل 66 0 gen احتفظ 100 0 gen post koch

5 ndrop

إنهاء إذا ؛

: kochs 10 setcol 89440551440 4 كوتش

11 سيتكول 551440320 40 4 كوخ

12 سيتكول 320 40 89440 4 كوخ ؛

جم كوش

** الاستخدام المباشر لمحطة رسوم ReGIS مثل تسلسل الهروب

جم

(W (I15) P [50،50] C (S) [] [+ 40، + 40] [+ 40، -40] [+ 40، + 40] [+ 40، -40] [+ 40، + 40] [+ 40، -40] [] (هـ)).

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

(W (I11) P [70،170] T (S16) [16،12] "Hello World").

// باستخدام كلمة "grdemo" ، سيتم تسجيل بعض الكلمات الخاصة بأمثلة للرسومات في القاموس.