#4有何等效程序？

羅蓋仙

變數老手請您動動腦了，以下是小弟寫某某程式不小心發現的，如下：
- R- X4 u+ S8 r2 F4 g; e＃1=100. (任何正整數，如50.55.150.180等等以上皆可）
＃2= 5.（任何正整數小于＃1）
6 Q+ S2 V6 |2 q) ]) `' F: ~: j8 Z, t＃3=＃1MOD＃2（取余數）
2 U7 a4 Z7 C% ]4 O  A1 Q# A*＃4=1.
+ U  g+ S; Z- Z. s( y4 A+ A; e& ]; u' B5 a* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數＃4=0.去覆蓋＃4=1.）
! X3 ~* i; o$ O7 ?如何更改星號的單節，有何妙手嗎？
8 X& Q& [3 A( l  A# ?! q也可以讓它在#3有余數的數值（1.2.3以上）造成＃4 =1.；反之＃3無余數（0），＃4= 0.。

jiangssli

回復 7# 羅蓋仙
1 j9 e: n, E' {- w+ C3 d" ~
' h$ E5 ~2 L# {' b; h- M
    哈哈,我可不敢和你一樣帥,臺灣男人好像都是白富美......我比較黑...

空氣中的小魚

回復 9# 羅蓋仙
呵呵，過獎了
# o  h6 [  j$ c% J! v0 l看到這句，貌似非常的熟悉

羅蓋仙

回復 8# wmj820303
' [+ r- q1 ~' N$ V  }
老師我在您的文章學了很多東西，不好意思啦！
8 D6 J) T7 \$ m1 z. D! y6 y' L#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
4 k/ Q  |( i1 i; ]#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復 7# 羅蓋仙
& P( e) t  z) c
能用MOD固然是好，可惜有些版本的系統不能支持，如果不考慮通用，MOD當然是最好的
/ r- c. `; y' h如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
看樓主用于什么方面了

羅蓋仙

奇怪怎麼沒有人怎麼想？
* D% o- p6 H* x$ b#1=101.
, B' z) _: Q7 ^" x#2=5.
#3=#100MOD#2
#4=#3GT0.
$ n# O1 O6 p1 S, h6 Z' X' I# xM0
/ ]1 h/ G# S* |  e  Z. K$ }
J大我好像有看過你的照片，長得和我一樣帥！真的

jiangssli

& J, t6 H* k- r$ D) }
  m. r+ M* S) f" o5 {5 Z4 K#1=101
#2=5
#3=#100MOD#2
/ n6 r7 X+ g4 D8 _IF[#3GT0]GOTO2
#4=0
GOTO3
# ?+ m, h9 z7 WN2
4 ?( R) c% V- N9 b3 v#4=1
0 `0 z3 G2 O, D7 IN3
, {' L4 K" a8 h  T- R. ]& f........
% v. `7 {: W/ \1 F- B+ [: W+ u.......
. [: m5 D( b' b8 L$ L: f( dM30

47416246

也可以這樣做：
#1=100.
#2=5.
#3=#1/#2-FIX[#1/#2]（把整數部分減掉留下小數部分）
# H& U  M7 L1 ?$ V3 J#4=0
2 u6 G* u6 v) S% j+ IIF[#3 GT 0.] THEN #4=1.
) n) w- b7 @& J& E" FM30
因為#1和#2都是正整數，所以#3只能是大于等于0，不可能小于0

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
/ \# \- m# S8 Q0 H我使用繁體轉簡體軟件 它遺漏了

47416246

應該是IF[#3EQ0.]THEN#4=0