#4有何等效程序？

羅蓋仙

% a/ t+ F. v3 w0 {9 _( ^变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
- J& |( A5 o  L! D* j$ `＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
＃2= 5.（任何正整数小于＃1）
) u3 T& n9 ~% Y* m＃3=＃1MOD＃2（取余数）
*＃4=1.
% \  f3 B$ `  h/ t  A4 W* 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.
' s4 v- q" ?; ]. V. A6 \2 s  `我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
#2=5.
4 u2 U4 b! X4 x! i3 V8 |) [) T#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
#4=0
) S- Q. [8 f5 P) p  d; eIF[#3 GT 0.] THEN #4=1.
M30
* \- G; h+ y- u7 @1 }因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

9 c# d" C0 R- ]' _#1=101
4 z9 f, R2 z& d, m#2=5
% t/ |  ~/ T6 X. E#3=#100MOD#2
4 ?+ k1 e/ F: \8 v0 l; PIF[#3GT0]GOTO2
#4=0
* x  I# c8 M# y) ^GOTO3
N2
#4=1
N3
........
, ?/ k% R) q9 b6 X& `) N# y  {6 k.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
4 U) N9 H- A: i/ \( y5 @9 _: j2 d#1=101.
#2=5.
#3=#100MOD#2
. f  {1 r2 h& n1 |" }7 X, B#4=#3GT0.
* c8 t! H* L4 h. C+ j$ \. w7 m& y" MM0

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

空气中的小鱼

回复 7# 羅蓋仙
/ h/ V/ i) G5 X* S
能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
$ V. `  W& _( G  y* L* ^2 R# Y如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

, Z0 u; K% q9 @2 {( @老師我在您的文章學了很多東西，不好意思啦！
) Y# ~& h! {- ^& b#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
8 O3 k' {9 C6 x1 m2 I#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
  w% Z! ]; u1 W' E, ]8 W+ h呵呵，过奖了
看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙
; h0 S) j1 g5 y9 I6 K* ^& r
& q0 s6 D8 I5 H$ J! e8 g
0 t' I4 n, o# ?# o1 g    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...