#4有何等效程序？

羅蓋仙

% z# k0 h% h4 }2 ]
& ], M, }/ z" J變數老手請您動動腦了，以下是小弟寫某某程式不小心發現的，如下：
6 I3 n8 ^, P0 V( L* [＃1=100. (任何正整數，如50.55.150.180等等以上皆可）
＃2= 5.（任何正整數小于＃1）
＃3=＃1MOD＃2（取余數）
*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數＃4=0.去覆蓋＃4=1.）
& b+ [$ w) h  r2 [. E+ o/ b3 ^如何更改星號的單節，有何妙手嗎？
也可以讓它在#3有余數的數值（1.2.3以上）造成＃4 =1.；反之＃3無余數（0），＃4= 0.。

jiangssli

回復 7# 羅蓋仙
) j+ |1 t) a8 _' Y! |1 X

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

空氣中的小魚

回復 9# 羅蓋仙
呵呵，過獎了
' B+ z* w6 D* Q7 m- @+ H看到這句，貌似非常的熟悉

羅蓋仙

回復 8# wmj820303
, w) a1 H8 H3 J  C
+ p& @8 b$ f. ?; @( b% F( }老師我在您的文章學了很多東西，不好意思啦！
! I$ g  d: [6 V, C/ x3 ]- q; g#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復 7# 羅蓋仙

能用MOD固然是好，可惜有些版本的系統不能支持，如果不考慮通用，MOD當然是最好的
$ z9 H+ X/ B: u1 L如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
3 Y  x) H0 X6 F" x. ]看樓主用于什么方面了

羅蓋仙

奇怪怎麼沒有人怎麼想？
#1=101.
#2=5.
#3=#100MOD#2
! k. D1 m+ l  K#4=#3GT0.
# R; B& q3 U* R9 xM0
0 m, r; x, k( [
8 \  Q, t9 W' z, P8 Z" f5 KJ大我好像有看過你的照片，長得和我一樣帥！真的

jiangssli

. \  v' K+ D" y1 H. W#1=101
# r% s8 @+ b- T& A" K2 g% y#2=5
# f% B/ a. u4 O; ?#3=#100MOD#2
: c" P. a7 }+ _4 S# N/ qIF[#3GT0]GOTO2
#4=0
( s5 d- l2 V1 G9 A1 W/ U+ C4 JGOTO3
# {+ H0 Y% M% }' @2 E* X5 O4 iN2
#4=1
1 a9 J* H8 y' F/ c( `N3
........
5 S2 W( _2 R5 |1 }# V, W.......
M30

47416246

也可以這樣做：
: H3 G2 O& A1 I& |#1=100.
. O! x. H5 x8 a* v  i#2=5.
#3=#1/#2-FIX[#1/#2]（把整數部分減掉留下小數部分）
#4=0
+ c$ a9 V3 B) `, d. d% V; T* {IF[#3 GT 0.] THEN #4=1.
- W% \$ L% \. g4 y5 o, p* SM30
因為#1和#2都是正整數，所以#3只能是大于等于0，不可能小于0

羅蓋仙

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

47416246

應該是IF[#3EQ0.]THEN#4=0