#4有何等效程序？

羅蓋仙

1 _( z) e0 A' [+ z
变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
( F) d# [: ?9 D' n/ ^＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
  Z4 {. C; \  J" C; y& J$ P＃2= 5.（任何正整数小于＃1）
- `2 H/ A1 j- T＃3=＃1MOD＃2（取余数）
*＃4=1.
* 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.
- ?. V  d1 J1 X% H, g' d, u我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
, D- F& ?; m! h3 n9 l& a#2=5.
#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
#4=0
IF[#3 GT 0.] THEN #4=1.
% T) H# y7 J4 eM30
& K7 c! {8 c& }: Y( c2 [因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

8 w( X  W. i' ~: t7 S. i
7 t" d6 Y& v# f- _#1=101
#2=5
* o, z$ c# M- \9 _2 i" U; I#3=#100MOD#2
IF[#3GT0]GOTO2
#4=0
# Y# h+ h1 m8 m0 ]# t( r8 B* LGOTO3
$ z3 a) t& m+ M  V2 `2 T2 [N2
#4=1
* W3 y: O; [  ^N3
........
/ z; ^5 A' M9 c1 ^7 ^2 Y) W  I) M4 C, N' p.......
. [( A9 Q5 C- W0 u; [M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
' s7 q: z1 q2 q+ ?" |9 _#1=101.
% C0 k8 |5 @, E* v+ G/ C#2=5.
#3=#100MOD#2
#4=#3GT0.
* {2 a) Z# j! J/ V& O7 J7 BM0

+ E+ c7 ?8 `9 O# ^J大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙

/ ?2 p% n8 H0 j. D* }能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
. _9 F$ K. t$ n( f0 B6 z看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
' z9 P/ X' [4 J  L% h* v* K; F: K#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
0 R7 z& ?4 Z& Y: g/ W, L# k5 E! H! L呵呵，过奖了
3 H" k1 l+ F3 v看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙
( c8 {" `& w  @; k  Q7 G: P9 x
$ Z8 g( T$ A4 f; y" t  N
7 t' E% d1 h/ I/ x    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...