#4有何等效程序？

羅蓋仙

5 z* k8 O. W, h+ {, S$ [8 K! G( T
變數老手請您動動腦了，以下是小弟寫某某程式不小心發現的，如下：
& R6 y/ f$ l5 [& }＃1=100. (任何正整數，如50.55.150.180等等以上皆可）
2 t' j& g( g$ H: l* F( u7 ~, V＃2= 5.（任何正整數小于＃1）
" b% s, j$ s. V" |＃3=＃1MOD＃2（取余數）
% w/ r# `1 j+ s1 i) p*＃4=1.
; x& M5 Y( q" C7 H8 g, D% Y3 o1 t* IF [＃3EQ0.]＃4=0.（如果＃3沒有余數＃4=0.去覆蓋＃4=1.）
- {* k7 q3 J7 T/ _如何更改星號的單節，有何妙手嗎？
9 \  z. O5 m; P% X" }也可以讓它在#3有余數的數值（1.2.3以上）造成＃4 =1.；反之＃3無余數（0），＃4= 0.。

47416246

應該是IF[#3EQ0.]THEN#4=0

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
( h; k3 Z+ O( T! W$ M9 n我使用繁體轉簡體軟件 它遺漏了

47416246

也可以這樣做：
#1=100.
, T, D) l( @. o' K5 G. ?#2=5.
0 y4 `0 N  `+ Y1 h- |  ^: V#3=#1/#2-FIX[#1/#2]（把整數部分減掉留下小數部分）
/ k+ k+ ]5 E# f. ?#4=0
IF[#3 GT 0.] THEN #4=1.
- `+ [& ]8 b& m- W- x0 kM30
" a& W. b! h2 [! `& l因為#1和#2都是正整數，所以#3只能是大于等于0，不可能小于0

jiangssli

( ^" Y9 E4 n: A0 a. a' N
# J8 U' T! \# N7 p8 Z  L  r+ ~# y, }#1=101
#2=5
- o+ b0 J% c4 m4 x#3=#100MOD#2
% h' z* c6 A0 B9 \7 Z* n. hIF[#3GT0]GOTO2
#4=0
: B7 j& z3 i' nGOTO3
N2
5 M/ H7 d' V6 y% [$ l1 b#4=1
0 l8 e) \4 A9 P+ ~" i  sN3
: C3 B& `8 a. X4 v, s........
( [- ?/ Q' b. u0 F% z) H3 b.......
M30

羅蓋仙

奇怪怎麼沒有人怎麼想？
#1=101.
( O# E- [8 d: L* z( m( g- y1 n#2=5.
! L9 ]3 g- y! p& ~' S#3=#100MOD#2
% m" u4 E% D+ P#4=#3GT0.
M0
5 T% U% g& y: x
! X* {7 K) ]% e2 ]J大我好像有看過你的照片，長得和我一樣帥！真的

空氣中的小魚

回復 7# 羅蓋仙

能用MOD固然是好，可惜有些版本的系統不能支持，如果不考慮通用，MOD當然是最好的
如果考慮通用，雖然加長了代碼量，但是為程序的兼容性做出來很好的鋪墊
; X6 |/ }$ o5 ]5 v/ X6 }看樓主用于什么方面了

羅蓋仙

回復 8# wmj820303
- ?: O) ~* t7 ~1 |, B3 U% w8 t: B
: M% L9 T& \5 M老師我在您的文章學了很多東西，不好意思啦！
7 s" T; Z, Y, @5 O#3=#1 MOD #2 機臺如果沒有MOD，我就只好這麼寫了
6 Y/ c) V  w) Y#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空氣中的小魚

回復 9# 羅蓋仙
( ~. B3 V; P& L  x呵呵，過獎了
看到這句，貌似非常的熟悉

jiangssli

回復 7# 羅蓋仙
3 l" [) g# q7 `/ ]$ X
- B* {( Z" `% R1 p* ~% d  n7 z/ @
    哈哈,我可不敢和你一樣帥,臺灣男人好像都是白富美......我比較黑...