#4有何等效程序？

羅蓋仙

变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
8 f% {- B( w/ t0 Y＃2= 5.（任何正整数小于＃1）
) h9 n0 |$ m& L, }＃3=＃1MOD＃2（取余数）
6 i0 c  c( C- t' O*＃4=1.
) u" H0 @) i* ~$ f5 b4 t0 U: [* IF [＃3EQ0.]＃4=0.（如果＃3没有余数＃4=0.去覆盖＃4=1.）
; F, p$ e1 W: H  d+ A7 m$ e如何更改星号的单节，有何妙手吗？
! }, V8 \9 f3 B) v4 d9 s- ~也可以让它在#3有余数的数值（1.2.3以上）造成＃4 =1.；反之＃3无余数（0），＃4= 0.。

47416246

应该是IF[#3EQ0.]THEN#4=0

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
, e2 K0 U" r" }# O: U% n) A我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
#2=5.
% A, i* F, b6 R4 |#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
#4=0
IF[#3 GT 0.] THEN #4=1.
! o! b& K* b5 Q5 z6 }9 W0 E& mM30
3 m8 }; W  ^3 a+ l# L/ e. s因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

- @! t. A5 L; p, {* ]
#1=101
#2=5
#3=#100MOD#2
IF[#3GT0]GOTO2
: G0 D' Q) l  ]3 ]) O' ~0 }( ^#4=0
GOTO3
N2
#4=1
N3
" G7 v8 {; V; K7 O& S# [........
7 h$ ~! P* m5 I- e8 u& M" |3 k.......
4 M; O' N' C+ E0 z: FM30

羅蓋仙

奇怪怎麼沒有人怎麼想？
& i! L* I  A7 y! G) o' e1 K( G#1=101.
# [4 r$ f" Q7 q8 _# @#2=5.
#3=#100MOD#2
#4=#3GT0.
3 _5 L5 G4 _# v% B, YM0
0 m$ G$ W" f$ i4 Y& u3 T& b
J大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙
( s' D/ r1 W) u( r0 t
8 M# O; t) @: j! H7 B* Z$ _! c) Z能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

老師我在您的文章學了很多東西，不好意思啦！
8 W1 k2 w# c& G2 |* m#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
, B7 h( L% w: K5 b  @" y1 f' u#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
: U9 `' R( \& m! H7 Z* A  {% G呵呵，过奖了
+ W4 g7 M! o) m/ a看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙

4 C+ z' \& y3 y7 d  z+ r& l: {
    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...