#4有何等效程序？

羅蓋仙

变数老手请您动动脑了，以下是小弟写某某程式不小心发现的，如下：
＃1=100. (任何正整数，如50.55.150.180等等以上皆可）
: x: D8 j: _. @1 l  O＃2= 5.（任何正整数小于＃1）
" {7 r4 Q. m- D8 E＃3=＃1MOD＃2（取余数）
4 h1 ~6 X: p+ u) g  M( c7 Q*＃4=1.
6 g! `  l5 B0 J: |* IF [＃3EQ0.]＃4=0.（如果＃3没有余数＃4=0.去覆盖＃4=1.）
- Y1 f2 A2 S# x' O8 c" ~1 T如何更改星号的单节，有何妙手吗？
也可以让它在#3有余数的数值（1.2.3以上）造成＃4 =1.；反之＃3无余数（0），＃4= 0.。

47416246

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

羅蓋仙

對不起，是上面大大所說的IF[#3 EQ 0.] THEN #4=0.
  _, }3 K8 J- k* e我使用繁體轉簡体軟件 它遺漏了

47416246

也可以这样做：
#1=100.
#2=5.
#3=#1/#2-FIX[#1/#2]（把整数部分减掉留下小数部分）
#4=0
5 l& S7 {! m5 H5 R$ u1 y$ oIF[#3 GT 0.] THEN #4=1.
M30
8 b! x# N: w# Q$ X; \. m因为#1和#2都是正整数，所以#3只能是大于等于0，不可能小于0

jiangssli

0 v! D, D3 V+ F
#1=101
#2=5
7 G; }2 f/ G- I& {  ]4 ]: A8 f! y0 D#3=#100MOD#2
0 H! x; Q1 b0 e7 lIF[#3GT0]GOTO2
; ?( E* E$ c9 f5 }' n8 W#4=0
& q3 Y; x( d' Q3 y* nGOTO3
$ K: N7 L0 |! vN2
#4=1
; f' A# r0 g7 ^1 v( H4 t4 xN3
+ D' b+ l- L& P' H3 Z........
( L% V9 E( j  F.......
6 f" U2 s7 Q7 ~! E) x, f% V* LM30

羅蓋仙

奇怪怎麼沒有人怎麼想？
+ p4 N; k. w$ g& e# K& l, {8 G8 U#1=101.
! `9 ^1 |) M; o) H6 |' m# G#2=5.
/ v: W9 |# g3 ~6 B% Z- i. }#3=#100MOD#2
/ H& j6 z0 C, ]5 Q2 Y#4=#3GT0.
9 p8 u0 a9 `. {  O# NM0
; I7 m$ [9 k$ O/ x! {& R, B
J大我好像有看過你的照片，長得和我一樣帥！真的

空气中的小鱼

回复 7# 羅蓋仙

7 R' b4 _% A  U( h+ o! ~; A! e能用MOD固然是好，可惜有些版本的系统不能支持，如果不考虑通用，MOD当然是最好的
如果考虑通用，虽然加长了代码量，但是为程序的兼容性做出来很好的铺垫
: D! [$ A) R, u4 {5 a6 S看楼主用于什么方面了

羅蓋仙

回复 8# wmj820303

老師我在您的文章學了很多東西，不好意思啦！
- M% a' {, S" e" b% p/ t#3=#1 MOD #2 機台如果沒有MOD，我就只好這麼寫了
2 w$ n1 |  q- g( S#3=[[#1/#2]-FIX[#1/#2]]*#2 有點長

空气中的小鱼

回复 9# 羅蓋仙
: N+ z' S3 U  o9 i% D9 l呵呵，过奖了
看到这句，貌似非常的熟悉

jiangssli

回复 7# 羅蓋仙
  ]9 M" v+ F3 b" n6 r. F; [5 P/ E

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