#4有何等效程序？

羅蓋仙

變數老手請您動動腦了，以下是小弟寫某某程式不小心發現的，如下：
＃1=100. (任何正整數，如50.55.150.180等等以上皆可）
4 I0 q9 I/ B" @: s1 R＃2= 5.（任何正整數小于＃1）
＃3=＃1MOD＃2（取余數）
7 e- b( l" q$ d. A/ H. V8 |*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數＃4=0.去覆蓋＃4=1.）
如何更改星號的單節，有何妙手嗎？
也可以讓它在#3有余數的數值（1.2.3以上）造成＃4 =1.；反之＃3無余數（0），＃4= 0.。

47416246

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

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
; g: @0 S+ s, n7 @# B7 ]0 Q& U: o我使用繁體轉簡體軟件 它遺漏了

47416246

也可以這樣做：
, g. @# j. X6 d/ ~' S/ A#1=100.
#2=5.
( o' g6 j- S4 t9 C7 W#3=#1/#2-FIX[#1/#2]（把整數部分減掉留下小數部分）
2 \! |8 ^& G; S0 r( g#4=0
" T6 F) |9 x* S6 E# ]IF[#3 GT 0.] THEN #4=1.
9 \2 k8 _. S3 w0 C/ W: JM30
因為#1和#2都是正整數，所以#3只能是大于等于0，不可能小于0

jiangssli

3 v3 h8 R, _7 f5 g% p#1=101
#2=5
7 `( P  s- E5 j. s5 ~* `#3=#100MOD#2
IF[#3GT0]GOTO2
#4=0
: S( B$ f+ V/ z5 ]/ {7 DGOTO3
N2
) @1 }* f5 E+ @+ b9 _#4=1
N3
$ h: k& d# h# z( S2 ^- x/ a& X3 K........
+ }  F" c- i, J, g  j/ G$ E9 j.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
$ b8 h& C2 X1 T. r+ p  g  v#1=101.
#2=5.
#3=#100MOD#2
9 n# q7 L* H7 f4 k. B+ i7 }) O6 |#4=#3GT0.
M0
6 p3 C3 U4 Y% T! Y$ |8 H
5 u/ z, a4 {- |# }+ ZJ大我好像有看過你的照片，長得和我一樣帥！真的

空氣中的小魚

回復 7# 羅蓋仙

( f  }7 D' o/ F+ n( H能用MOD固然是好，可惜有些版本的系統不能支持，如果不考慮通用，MOD當然是最好的
如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
看樓主用于什么方面了

羅蓋仙

回復 8# wmj820303
$ L4 p/ D1 q5 R) P; ~% j+ \
老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復 9# 羅蓋仙
呵呵，過獎了
看到這句，貌似非常的熟悉

jiangssli

回復 7# 羅蓋仙
  Y3 s3 _. O4 q2 f  p

    哈哈,我可不敢和你一樣帥,臺灣男人好像都是白富美......我比較黑...