#4有何等效程序？

羅蓋仙

  f6 q( @1 {8 {1 w: D1 `
2 S  f" ^2 h( i; t4 }. E$ e变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
3 f  _- l3 _0 S8 i4 {＃2= 5.（任何正整数小于＃1）
＃3=＃1MOD＃2（取余数）
: N! c, }, q: C! T4 f*＃4=1.
* IF [＃3EQ0.]＃4=0.（如果＃3没有余数＃4=0.去覆盖＃4=1.）
( x- \) a" z& C$ f% S" J* J如何更改星号的单节，有何妙手吗？
( h1 `% X  q" i' N4 y也可以让它在#3有余数的数值（1.2.3以上）造成＃4 =1.；反之＃3无余数（0），＃4= 0.。

47416246

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

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
+ X3 T! j, F0 n& Z( v4 J我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
/ c4 Q# s2 _* T  T2 Y#2=5.
% O$ w( D7 G# W3 u4 T; H& D' |#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
8 A% G1 G1 T4 R- f6 V#4=0
IF[#3 GT 0.] THEN #4=1.
M30
& v& ]2 k& ^0 U0 X; F$ v& ?因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

8 N: V) H2 `2 R- T2 @8 j
#1=101
#2=5
#3=#100MOD#2
IF[#3GT0]GOTO2
#4=0
) g  u0 J& L' S# H' |GOTO3
N2
; P  z, \0 A$ `' S6 B$ i#4=1
; c& Q, A. }! D" p* v9 VN3
........
3 ?4 ]' w! w/ T! Z" E( o4 d.......
, @" q6 Z5 g' H% V2 {% S- qM30

羅蓋仙

奇怪怎麼沒有人怎麼想？
#1=101.
8 o9 R6 z3 }" s! _4 Y* K#2=5.
#3=#100MOD#2
#4=#3GT0.
M0

% f% l. _4 v% x6 YJ大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙
$ P7 Z4 B* e( R( b. A; \
( I( z# t. a/ r. y/ f, a3 l1 M. M能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
0 L' N7 ]# \3 B看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

老師我在您的文章學了很多東西，不好意思啦！
#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
5 |7 n, Q2 Z- o9 b3 `呵呵，过奖了
看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙

. m$ ^9 g- j# T( S/ b0 e8 k  Y$ J! i
7 L( M) G2 _2 D    哈哈,我可不敢和你一样帅,台湾男人好像都是白富美......我比较黑...