#4有何等效程序？

羅蓋仙

6 F: a# [. N9 \% s+ A3 c變數老手請您動動腦了，以下是小弟寫某某程式不小心發現的，如下：
＃1=100. (任何正整數，如50.55.150.180等等以上皆可）
8 ^: X( v# r: P* Z* t. G! J＃2= 5.（任何正整數小于＃1）
$ h3 A0 d* T2 U) r1 K＃3=＃1MOD＃2（取余數）
, o7 ^: \# M$ g) I2 q) K*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數＃4=0.去覆蓋＃4=1.）
2 H2 G2 W  n& n; K如何更改星號的單節，有何妙手嗎？
1 O) b- Y! D; V" e也可以讓它在#3有余數的數值（1.2.3以上）造成＃4 =1.；反之＃3無余數（0），＃4= 0.。

47416246

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

羅蓋仙

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

47416246

也可以這樣做：
' j9 w7 v/ |5 P$ h#1=100.
' s5 G" G" r: }0 {& e2 i  L#2=5.
1 t' _1 P$ G2 N+ g" ^2 H3 `2 B#3=#1/#2-FIX[#1/#2]（把整數部分減掉留下小數部分）
9 J) q" ]3 E, X/ W. H: K5 I0 N#4=0
- {+ C# C: [$ R& y+ q2 qIF[#3 GT 0.] THEN #4=1.
M30
( u. _4 A( s6 ?7 v因為#1和#2都是正整數，所以#3只能是大于等于0，不可能小于0

jiangssli

% s4 [* E  ^2 A% a! U4 b) N: f#1=101
#2=5
#3=#100MOD#2
6 Z* W2 I' J  e3 V7 d* u8 \. zIF[#3GT0]GOTO2
#4=0
& u6 w7 ?. ^+ @9 r2 x& hGOTO3
6 b- F% w( k" v7 h7 z1 `" FN2
#4=1
N3
! K% L, c9 O, J2 V........
. J% ^- Y- z9 }. _/ K* X& c8 V7 i.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
- e! L, p& ?/ D7 y#1=101.
#2=5.
#3=#100MOD#2
, z, t0 a+ T+ A4 O5 V7 P/ B#4=#3GT0.
/ g! U; K: m2 p1 @) ZM0

9 [4 [% \5 p8 e* o8 T- E- {/ kJ大我好像有看過你的照片，長得和我一樣帥！真的

空氣中的小魚

回復 7# 羅蓋仙
. O5 h) Y1 R' U7 n7 q
能用MOD固然是好，可惜有些版本的系統不能支持，如果不考慮通用，MOD當然是最好的
如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
& g& A$ m( V3 F9 b7 ?+ v- `看樓主用于什么方面了

羅蓋仙

回復 8# wmj820303
: k  ]+ J  k- T+ ?
老師我在您的文章學了很多東西，不好意思啦！
; K' q. V" ^' x6 m/ H9 b: v#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
9 U+ s& K% M: f2 K' I% j7 W' u0 e/ u#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復 9# 羅蓋仙
3 {: n& d  [2 v. y6 w$ S7 c8 m7 X6 }呵呵，過獎了
- L% h3 X+ ]4 r6 w& T看到這句，貌似非常的熟悉

jiangssli

回復 7# 羅蓋仙
) Q6 _8 a. h5 D1 a1 F: p

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