#4有何等效程序？

羅蓋仙

5 E' r  `+ ~4 x8 ]( Q
变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
+ Y/ |; v8 t; n6 K$ `9 [) G3 Q* Z＃2= 5.（任何正整数小于＃1）
2 r6 A' g) L7 e- q, T7 ]5 M* ]8 w＃3=＃1MOD＃2（取余数）
*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3没有余数＃4=0.去覆盖＃4=1.）
- y* ?/ ?+ _8 {3 G# ^( B如何更改星号的单节，有何妙手吗？
- d5 M, p3 f: D) {也可以让它在#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 t4 U) I' D* ^; z6 x% A#1=100.
#2=5.
3 ~1 e" `) }7 I: Z+ K1 ^" J#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
5 {7 V3 p: X* i( Z  G#4=0
IF[#3 GT 0.] THEN #4=1.
5 |2 z6 Z* v% m2 oM30
因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

& D, C" F! p2 n1 T) S  M( f
- [/ V" d$ |2 V/ x9 R#1=101
#2=5
/ |5 p: I. ?' u" r0 H2 d5 k#3=#100MOD#2
IF[#3GT0]GOTO2
#4=0
) V+ W3 a, [' Z( _/ Q7 \GOTO3
* C# {) J" s3 `9 \- h- ]& q  g0 U; jN2
4 m! d5 w! o# L#4=1
N3
" s6 {3 ~0 d/ F9 Y8 C& |........
.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
& K0 w0 Y, l; |#1=101.
+ H- }8 j9 Q+ e" G/ W#2=5.
; ~/ e) o/ E* G& b#3=#100MOD#2
' \# T7 F; }1 ^# M  X: D4 X0 d#4=#3GT0.
M0
( z% E4 L6 u/ e& C% H
: i! F8 o# b) v7 K: N1 ?% \J大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙

能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

/ V4 x5 G( J/ i' x3 o老師我在您的文章學了很多東西，不好意思啦！
. @) S" @- ~3 S$ L2 c- b#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
% l; ?* K: U& S0 U$ G5 f#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
. K4 B8 F* `3 j呵呵，过奖了
- y* u* A, g4 A, Q* |; i4 F( e看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙


    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...