#4有何等效程序？

羅蓋仙

6 z6 I! D+ g  c' L
& |8 h* z8 N0 D5 R2 I* \3 h- c. O变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
# Y9 @2 X8 R& r+ T* E; H＃2= 5.（任何正整数小于＃1）
7 Q) \0 r6 k( A! F2 ]4 d＃3=＃1MOD＃2（取余数）
- Q3 t# m4 `$ c0 N2 p% ^) k) q3 H*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3没有余数＃4=0.去覆盖＃4=1.）
. Z" j% A* D/ M8 F, b如何更改星号的单节，有何妙手吗？
1 V- e' v1 ?+ f( U8 I' m: P4 W# M也可以让它在#3有余数的数值（1.2.3以上）造成＃4 =1.；反之＃3无余数（0），＃4= 0.。

47416246

应该是IF[#3EQ0.]THEN#4=0

羅蓋仙

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

47416246

也可以这样做：
#1=100.
+ P& S: {7 J, d% S#2=5.
#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
' U9 b( r& C5 M, a: K* i#4=0
" N! s/ R, K' N3 I8 P  |IF[#3 GT 0.] THEN #4=1.
$ |" h3 r# w/ N5 R' ~& H! cM30
因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

9 g4 U+ M& J' G
+ `, U" L" U2 F  d+ N: t% `; r#1=101
0 i2 r- ^" w& K2 Y, r! K#2=5
0 G6 V+ R; |! h3 M6 {#3=#100MOD#2
4 W7 P* [# D0 X/ q  v8 N8 ZIF[#3GT0]GOTO2
1 v9 h1 p% K* |2 U: K) Z1 n1 g" y5 R#4=0
GOTO3
' O4 X: d, E; O8 r+ ^. Q! ZN2
! i. w8 |6 i6 o5 h4 j  R  ]& @+ u, r#4=1
N3
* `# K2 X( l" u* _........
.......
* ^" e2 e  F" ]/ W: z7 Y# V- |M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
8 T* K% `7 ]$ J9 j7 f#1=101.
#2=5.
#3=#100MOD#2
#4=#3GT0.
M0
  o$ s* w: y9 a1 d
3 r: Y; k' F1 F3 }, y" B5 q- FJ大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙

3 W( m" K# C: d: Q/ t( |能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
3 A. g8 {0 ^; Z4 |" X& S/ q: x看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303
! E% P3 }$ V: O2 ^4 i) |$ d
4 W" G& [& L6 Q+ @( T: n& \老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
) l- q( L, f% w1 c#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
2 K4 B9 @* a6 W呵呵，过奖了
' Z7 S# E: ^5 O- U看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙
( I# M8 ~% ^, H
) o) \  _) V: z6 U1 A
    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...