找近似数

zhangxinghui

数组 ＝ { 67, 68, 69, 140, 197, 201 }
数组顺序不能改
求最接近200的数组下标

大司命

  

数组 ＝ { 67, 68, 69, 140, 197, 201 }
dwCount ＝ 取数组成员数 (数组)
计次循环首 (dwCount, i)
如果真 (数组 [ i ] ≤ 200)
如果真 (数组 [ i ] ＞ n)
n ＝ 数组 [ i ]


计次循环尾 ()
调试输出 (n)

.版本 2<br /> <br /> 数组 ＝ { 67, 68, 69, 140, 197, 201 }<br /> dwCount ＝ 取数组成员数 (数组)<br /> .计次循环首 (dwCount, i)<br />     .如果真 (数组 [ i ] ≤ 200)<br />         .如果真 (数组 [ i ] ＞ n)<br />             n ＝ 数组 [ i ]<br />         .如果真结束<br />     .如果真结束<br /> .计次循环尾 ()<br /> 调试输出 (n)

zhangxinghui

大司命 发表于 2023-7-7 15:05
[e=5].版本 2

数组 ＝ { 67, 68, 69, 140, 197, 201 }

应该是201 最接近了 输出的是197

zhangxinghui

zhangxinghui 发表于 2023-7-7 15:08
应该是201 最接近了 输出的是197

.版本 2
.支持库 spec

dwCount ＝ 取数组成员数 (价格数组)
.计次循环首 (dwCount, i)
    新成员 ＝ 取绝对值 (数值 － 价格数组 )
    加入成员 (数组1, 新成员)

.计次循环尾 ()
zuixiao ＝ 数组1 [1]

.计次循环首 (dwCount, ii)

    .如果真 (数组1 [ii] ＜ zuixiao)
        zuixiao ＝ 数组1 [ii]



    .如果真结束

.计次循环尾 ()
.计次循环首 (dwCount, jj)
    .如果真 (zuixiao ＝ 数组1 [jj])
        调试输出 (jj)

    .如果真结束

.计次循环尾 ()
返回 (jj)