#4有何等效程序？

羅蓋仙

1 i9 J% d5 x" u4 \" v$ L2 d
變數老手請您動動腦了，以下是小弟寫某某程式不小心發現的，如下：
" ~; T. ^0 B# g, h. @2 M＃1=100. (任何正整數，如50.55.150.180等等以上皆可）
＃2= 5.（任何正整數小于＃1）
. L6 C: l1 g5 E' U＃3=＃1MOD＃2（取余數）
*＃4=1.
0 v/ a' S, c9 |/ ^$ X* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數＃4=0.去覆蓋＃4=1.）
- S. P9 Z; {6 y1 X如何更改星號的單節，有何妙手嗎？
+ k+ e% V' s# u3 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.
#2=5.
$ F7 t4 F6 A7 I+ W4 w3 z- ]6 j#3=#1/#2-FIX[#1/#2]（把整數部分減掉留下小數部分）
#4=0
IF[#3 GT 0.] THEN #4=1.
M30
因為#1和#2都是正整數，所以#3只能是大于等于0，不可能小于0

jiangssli

#1=101
#2=5
! d  e0 s" ^( c% _- ]#3=#100MOD#2
IF[#3GT0]GOTO2
% f/ ?! U. H8 u# f1 `#4=0
9 x( z8 d( O& ?  V' z  z2 JGOTO3
N2
#4=1
N3
) n/ A4 c9 E" b8 L1 s7 B& X........
6 K9 I( S; T% Y- a% a3 ~) I.......
. s9 [& x$ D6 Y) s1 }M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
#1=101.
- N0 b- |1 K5 G# T# \! ?+ I% A7 w; f#2=5.
#3=#100MOD#2
9 F. h* M4 G! r2 A: M3 b& Y# O#4=#3GT0.
M0

0 N* z+ n! Q1 A( e( Q; EJ大我好像有看過你的照片，長得和我一樣帥！真的

空氣中的小魚

回復 7# 羅蓋仙

能用MOD固然是好，可惜有些版本的系統不能支持，如果不考慮通用，MOD當然是最好的
. Z. G! I) I4 X3 H8 e5 p% c1 B如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
2 g  A- o3 B8 f- c( A6 K. k看樓主用于什么方面了

羅蓋仙

回復 8# wmj820303
  H/ `1 O0 @2 I+ E5 D/ J
+ _' P" M8 f: c$ {$ s6 ]老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復 9# 羅蓋仙
4 W* p& |# G6 O呵呵，過獎了
看到這句，貌似非常的熟悉

jiangssli

回復 7# 羅蓋仙
' m0 A- k& `/ w2 t& |

    哈哈,我可不敢和你一樣帥,臺灣男人好像都是白富美......我比較黑...