我想要計算機fx-3650P遊戲程式

射龍門 | 開口中 (2) | 0~999估-數字 | 珠機妙算 (2) | 老虎機 (2) | 21點 | 圍骰射龍門
版本 1.1.1 (78 Byte)
Lbl 1：Fix 0：12Ran#+1：Rnd：Ans→A◢12Ran#+1：Rnd：
Ans→B◢A≧B=>B→C=>A→B=>C→A：12Ran#+1：Rnd：Norm 1：
Ans→C◢(C>A)B>C≠0=>GoTo 1：2-BAD
玩法︰
我聽說是在撲克牌玩的，先抽兩張牌。如抽到9和4，那龍門柱便是4和9。
再抽第三張便是射球，如抽到5當然是入龍，抽到9或4便是中柱彈出。
即必須在4至9之間才勝出。 程式先顯示的兩個數便是龍門柱，第三個便是射球。
射不入會顯示Too-Bad呢，射中了便繼續抽，繼續玩。開口中
版本1.1.1 (83 Byte)
*不會Math Error
Mem clear：?→B：Fix 0：(B-2.1)Ran#+1.5：Rnd：Ans→Y：Norm 1：
Lbl 0：?→X：X>A≠B>X=>GoTo 0：1M+：X=Y=>GoTo 1：
X>Y=>X→B：Y>X=>X→A：A◢B◢GoTo 0：Lbl 1：M
玩法︰
遊戲起初自獎門人，開始是由1~100抽出一個數不讓您知，接著便開始估，直至估中才當輸。
如抽出50時您估60那便會告訴給您現在是1~60，如此類推，再估30便是30~60……
使用說明︰
B入100便是抽1~100，1000便是抽1~1000。
X是您或他估的數字。
A和B便是X的範圍。
最後顯示出M值=您 / 您們估了多少次。0~999估-數字
請參考WebCal 計數機網頁
珠機妙算
請參考WebCal 計數機網頁
短時間內我會再研究一條
老虎機
請參考WebCal 計數機網頁
或我那條
*一次性顯示老虎機所抽數字
*賭金可自由決定
102→M：Lbl 0：?→X：(M≧X)(X>0)=0=>GoTo 0：XM-：Fix 0：
888Ran#+111：Rnd◢Ans→A：1A-.5：Rnd：A-10Ans→B：.01A-.5：
Rnd：Ans→D：.0(A-B→Y：.1Y-.5：Rnd：Y-10Ans→C：Norm 1：
A=777=>103M+=>GoTo 1：((B=C)+(C=D)+(D=B)→Y：Y=1=>2XM+：
Y=3=>3XM+：Lbl 1：M◢M=0=>2-BAD◢GoTo 0
使用說明︰
X=賭金
M=本金
A=老虎機
??* = +$2X
?*? = +$2X
*?? = +$2X
??? ≠ 777 => +$3X
??? = 777 => +$1000
M為0時顯示Too Bad
21點真是很難開發，現在要突破的是如何令同一張牌不會被抽中5次或以上。
我只能令當抽出第5張相同的牌的機會率由1/194481降低至1/16336404
胡不在此列
圍骰
由Z•P編寫
好長(187 Byte)，唔想打


2008-07-15 15:27:37 補充：
不懂入請到我的網站
http://hk.geocities.com/keith200620062006/index.htm

2008-07-15 15:39:07 補充：
M>0=>GoTo 1：Lbl 0：?→M：0≧M=>GoTo 0：Lbl 1：?→X：
((M≧X)(X>0))=0=>GoTo 1：XM-：M◢Fix 0：5.5Ran#+.5：Rnd：Ans→A：
5.5Ran#+.5：Rnd：Ans→B：5.5Ran#+.5：Rnd：Ans→C：Norm 1：
A◢B◢C◢(100A+10B+C)=Y=>10XM+：A+B+C→D：D=Y=>5XM+：
Y=1=>10≧D=>2XM+：Y=2=>D>10=>2XM+：M=0=>2-BAD◢M

2008-07-15 22:06:31 補充：
圍骰
M=本金
X=賭金
Y=1,2,??? 小,大,???
A◢B◢C = 骰

yes ar
&gE 點打?? ???
點打
點打
點打
點打
ar ar ar

&gE 點打??