#4有何等效程序？

羅蓋仙

變數(shù)老手請(qǐng)您動(dòng)動(dòng)腦了，以下是小弟寫某某程式不小心發(fā)現(xiàn)的，如下：
＃1=100. (任何正整數(shù)，如50.55.150.180等等以上皆可）
- M  F2 A& p/ f) C2 j; t3 N＃2= 5.（任何正整數(shù)小于＃1）
＃3=＃1MOD＃2（取余數(shù)）
*＃4=1.
2 D' }* u- Y0 O" e9 h* IF [＃3EQ0.]＃4=0.（如果＃3沒(méi)有余數(shù)＃4=0.去覆蓋＃4=1.）
如何更改星號(hào)的單節(jié)，有何妙手嗎？
也可以讓它在#3有余數(shù)的數(shù)值（1.2.3以上）造成＃4 =1.；反之＃3無(wú)余數(shù)（0），＃4= 0.。

47416246

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

羅蓋仙

對(duì)不起，是上面大大所說(shuō)的IF[#3 EQ 0.] THEN #4=0.
& C. {4 G+ M/ q( k我使用繁體轉(zhuǎn)簡(jiǎn)體軟件 它遺漏了

47416246

也可以這樣做：
#1=100.
#2=5.
#3=#1/#2-FIX[#1/#2]（把整數(shù)部分減掉留下小數(shù)部分）
#4=0
IF[#3 GT 0.] THEN #4=1.
M30
因?yàn)?1和#2都是正整數(shù)，所以#3只能是大于等于0，不可能小于0

jiangssli

/ R+ E9 J9 Z% B7 V- l+ b7 Z" L#1=101
#2=5
3 }; ^2 t% l" @#3=#100MOD#2
IF[#3GT0]GOTO2
#4=0
GOTO3
  p3 n: m, ]' N# |9 \N2
# ~$ K3 V$ ^  [- \% J: E# _#4=1
N3
8 f0 A! z+ e3 |' K/ B; P........
.......
M30

羅蓋仙

奇怪怎麼沒(méi)有人怎麼想？
$ w( S# {( o% V5 t#1=101.
- o8 K( z- m: T9 J9 u& C#2=5.
#3=#100MOD#2
. I8 p  u- k3 C3 j' g4 d#4=#3GT0.
M0
' s2 ~( r' r  E" [. W' k8 @- H) }
$ ?( g  r& q- G; c) _J大我好像有看過(guò)你的照片，長(zhǎng)得和我一樣帥！真的

空氣中的小魚

回復(fù) 7# 羅蓋仙

" g* h: k* Q  Z# m* a. N能用MOD固然是好，可惜有些版本的系統(tǒng)不能支持，如果不考慮通用，MOD當(dāng)然是最好的
如果考慮通用，雖然加長(zhǎng)了代碼量，但是為程序的兼容性做出來(lái)很好的鋪墊
看樓主用于什么方面了

羅蓋仙

回復(fù) 8# wmj820303
" k" K  W' d( w) O6 n
3 O* T7 q$ y2 K# p; s7 J# Y老師我在您的文章學(xué)了很多東西，不好意思啦！
#3=#1 MOD #2 機(jī)臺(tái)如果沒(méi)有MOD，我就只好這麼寫了
6 `+ q5 ~! A  U$ |; C! P9 D$ r# Y( y#3=[[#1/#2]-FIX[#1/#2]]*#2 有點(diǎn)長(zhǎng)

空氣中的小魚

回復(fù) 9# 羅蓋仙
, u; u( }( E  L" j* Z呵呵，過(guò)獎(jiǎng)了
看到這句，貌似非常的熟悉

jiangssli

回復(fù) 7# 羅蓋仙

- q& r# h/ E& W. }& _
    哈哈,我可不敢和你一樣帥,臺(tái)灣男人好像都是白富美......我比較黑...