#4有何等效程序？

羅蓋仙

" P7 H, v$ `  k* A0 `# ?( j- {
8 G, c  c5 i3 q! }& a* M6 I变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
＃2= 5.（任何正整数小于＃1）
＃3=＃1MOD＃2（取余数）
# s1 F3 e( U3 k' o*＃4=1.
, S, N! h5 U' f. K- f* IF [＃3EQ0.]＃4=0.（如果＃3没有余数＃4=0.去覆盖＃4=1.）
3 H% l9 o# t& ?! }; K3 i/ S如何更改星号的单节，有何妙手吗？
1 |7 f" i$ U* D) L也可以让它在#3有余数的数值（1.2.3以上）造成＃4 =1.；反之＃3无余数（0），＃4= 0.。

47416246

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

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
' o# q- C6 a! d7 `8 ], L0 C我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
#2=5.
#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
#4=0
% i1 l4 w/ R$ q5 ]. F9 v) e) M* a! ^6 IIF[#3 GT 0.] THEN #4=1.
M30
因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

; U" @, `/ G+ l5 h$ M1 V! h
#1=101
8 U& c( Q& \$ l#2=5
#3=#100MOD#2
IF[#3GT0]GOTO2
8 d% [+ m3 c3 S; C; k#4=0
! R; X6 t' o- W- G4 K/ dGOTO3
  G) I3 s2 o) t: iN2
#4=1
N3
........
* h4 r8 p! P0 [7 {& T" A2 D7 k  E.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
+ K2 m9 i8 V& W0 B1 S#1=101.
) @. \4 ?% I% ?: p) W: A. N. u/ @#2=5.
+ F% k4 z% C" s+ A8 q8 o. c6 _3 J#3=#100MOD#2
  }, H& y! t( Z" O2 W% q" s: u#4=#3GT0.
M0

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

空气中的小鱼

回复 7# 羅蓋仙
7 v1 u2 v, M1 z# L" [9 l' \  A
能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
7 _! u: [0 b" y' W  y看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303
6 S+ B! T# @& D8 Q
$ l# y( y- A* H1 M老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
呵呵，过奖了
看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙

3 E3 w* y  ^6 `* ~
    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...