#4有何等效程序？

羅蓋仙

( Z1 n  b8 X' H) n- Z变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
＃2= 5.（任何正整数小于＃1）
＃3=＃1MOD＃2（取余数）
*＃4=1.
/ z8 L% R8 N6 `# [: `! t" V( G* 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.
/ }  P' p5 l. T) D5 m  H我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
#2=5.
#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
: c' v6 _+ D0 l2 H3 X0 c#4=0
: ~: z, x. t) c' iIF[#3 GT 0.] THEN #4=1.
M30
因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

#1=101
, g2 J' V! }9 T6 K! z4 B#2=5
#3=#100MOD#2
IF[#3GT0]GOTO2
+ Z6 y* [, t( P! N5 p7 @#4=0
2 D5 }) }* `, KGOTO3
* b, v3 V! h1 q$ aN2
#4=1
, Y! y) `6 h  j8 W2 xN3
........
2 t- b  A5 a- t4 v# R0 B+ V.......
+ u* S1 f. G) ]' |7 E0 l4 X: s0 U  b; iM30

羅蓋仙

奇怪怎麼沒有人怎麼想？
. ~7 d: h; ?! C. v8 r  F9 _. w#1=101.
#2=5.
( s& C8 r/ J1 F; n+ U#3=#100MOD#2
#4=#3GT0.
M0

J大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙
: e; C6 s4 m8 Z
能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

, b$ m/ P) X  I3 v$ v6 w3 Z老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
' N4 V+ ~* p. A3 i/ w. k  S( ^) k3 j#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
& C6 Z& ^6 [7 I- L  n: X, Y2 ~呵呵，过奖了
# L0 ?6 V! g  }. R  g/ d2 p% F看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙


% ^) N; b1 M: L9 m    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...