#4有何等效程序？

羅蓋仙

8 i; v1 K5 i" T5 a, g9 v. V, O
變數(shù)老手請您動動腦了，以下是小弟寫某某程式不小心發(fā)現(xiàn)的，如下：
＃1=100. (任何正整數(shù)，如50.55.150.180等等以上皆可）
7 m% w' k$ c2 o. K3 A＃2= 5.（任何正整數(shù)小于＃1）
/ t$ A0 J8 `- c0 ]+ S" E0 n& K＃3=＃1MOD＃2（取余數(shù)）
*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數(shù)＃4=0.去覆蓋＃4=1.）
如何更改星號的單節(jié)，有何妙手嗎？
7 x6 q7 z+ [9 j+ [) \也可以讓它在#3有余數(shù)的數(shù)值（1.2.3以上）造成＃4 =1.；反之＃3無余數(shù)（0），＃4= 0.。

47416246

應(yīng)該是IF[#3EQ0.]THEN#4=0

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
6 Z1 P/ H( Z( v# a) R; m0 c$ q我使用繁體轉(zhuǎn)簡體軟件 它遺漏了

47416246

也可以這樣做：
#1=100.
( _& e( p3 E4 R% {) H7 q#2=5.
#3=#1/#2-FIX[#1/#2]（把整數(shù)部分減掉留下小數(shù)部分）
3 m2 T2 P* f5 Q) m#4=0
IF[#3 GT 0.] THEN #4=1.
. \0 u& Z4 f$ m# s/ nM30
因為#1和#2都是正整數(shù)，所以#3只能是大于等于0，不可能小于0

jiangssli

& u  @" O2 W1 X4 U/ }7 I+ B% v( S#1=101
; X# c5 u/ \- U' {( X! q* N0 l#2=5
#3=#100MOD#2
5 }4 d3 Y( V5 f7 [) N) Z' Y8 P6 pIF[#3GT0]GOTO2
#4=0
. \4 B) G' B5 J" v" w, ]8 q- dGOTO3
+ K* P3 f$ q- \) V9 h$ g% dN2
% ~+ F% y' f5 J4 M#4=1
& n& @5 s) d. n& Q. ^' ?N3
6 @& W# v% x! L) t& \0 m0 s........
' b+ j. B  D& u; x.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
#1=101.
* g; ~  J  u; _. u$ ~* Z#2=5.
& W/ t% D& E. A) v: ?#3=#100MOD#2
#4=#3GT0.
3 V) w. V1 ?+ t  g) FM0

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

空氣中的小魚

回復(fù) 7# 羅蓋仙

能用MOD固然是好，可惜有些版本的系統(tǒng)不能支持，如果不考慮通用，MOD當(dāng)然是最好的
5 C  @, [1 f8 S  v2 e* _如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
看樓主用于什么方面了

羅蓋仙

回復(fù) 8# wmj820303
( O8 o) C% C  s* E6 E0 v: J1 q, g6 O
老師我在您的文章學(xué)了很多東西，不好意思啦！
! Z' s4 m1 E2 V2 r, X& I#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復(fù) 9# 羅蓋仙
& i3 y% u5 L0 J呵呵，過獎了
看到這句，貌似非常的熟悉

jiangssli

回復(fù) 7# 羅蓋仙


! S- G8 m* O! [2 Z9 r3 d& a    哈哈,我可不敢和你一樣帥,臺灣男人好像都是白富美......我比較黑...