请大神帮解决 负数与科技计算的排列

makdong2010

数值比较多 计算起来有点慢

其中包含科学计算  取每列最大 最小及所在行。。。分割出来总是报错。。还请大神们抽时间解决一下。。。 最大最小.zip (2.35 MB, 下载次数: 3)

2024-4-23 23:24 上传

点击文件名下载附件

afu45

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
arr	文本型		0
arr2	文本型		0
i	整数型
a最大	双精度小数型
a最大所在行	整数型
a最小	双精度小数型
a最小所在行	整数型
b最大	双精度小数型
b最小	双精度小数型
c最大	双精度小数型
c最小	双精度小数型
tmp	双精度小数型

a最大 ＝ -999999
b最大 ＝ -999999
c最大 ＝ -999999
a最小 ＝ 999999
b最小 ＝ 999999
c最小 ＝ 999999
arr ＝ 分割文本 (超级编辑框_原文本.内容, #换行符, )
调试输出 (取数组成员数 (arr))
计次循环首 (取数组成员数 (arr), i)
arr2 ＝ 分割文本 (arr [i], 字符 (9), )
如果 (取数组成员数 (arr2) ＝ 3)
tmp ＝ 到数值 (arr2 [1])
如果真 (tmp ＞ a最大)
a最大 ＝ tmp
a最大所在行 ＝ i
如果真 (tmp ＜ a最小)
a最小 ＝ tmp
a最小所在行 ＝ i

' 只写一个 其他类同



计次循环尾 ()
调试输出 (“Ga最大”, a最大, a最大所在行)
调试输出 (“Ga最小”, a最小, a最大所在行)

i支持库列表	支持库注释
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 arr2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 a最大, 双精度小数型<br /> .局部变量 a最大所在行, 整数型<br /> .局部变量 a最小, 双精度小数型<br /> .局部变量 a最小所在行, 整数型<br /> .局部变量 b最大, 双精度小数型<br /> .局部变量 b最小, 双精度小数型<br /> .局部变量 c最大, 双精度小数型<br /> .局部变量 c最小, 双精度小数型<br /> .局部变量 tmp, 双精度小数型<br /> <br /> a最大 ＝ -999999<br /> b最大 ＝ -999999<br /> c最大 ＝ -999999<br /> a最小 ＝ 999999<br /> b最小 ＝ 999999<br /> c最小 ＝ 999999<br /> arr ＝ 分割文本 (超级编辑框_原文本.内容, #换行符, )<br /> 调试输出 (取数组成员数 (arr))<br /> .计次循环首 (取数组成员数 (arr), i)<br />     arr2 ＝ 分割文本 (arr <i>, 字符 (9), )<br />     .如果 (取数组成员数 (arr2) ＝ 3)<br />         tmp ＝ 到数值 (arr2 [1])<br />         .如果真 (tmp ＞ a最大)<br />             a最大 ＝ tmp<br />             a最大所在行 ＝ i<br />         .如果真结束<br />         .如果真 (tmp ＜ a最小)<br />             a最小 ＝ tmp<br />             a最小所在行 ＝ i<br />         .如果真结束<br /> <br />         ' 只写一个 其他类同<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (“Ga最大”, a最大, a最大所在行)<br /> 调试输出 (“Ga最小”, a最小, a最大所在行)

只写一个  其他类同 就懒得写了

makdong2010

afu45 发表于 2024-4-23 23:48
[e=0].版本 2
.支持库 iext2
.支持库 spec

如果是科学计算的呢？就比如 8.12598519-E5  这种

afu45

makdong2010 发表于 2024-4-24 18:31
如果是科学计算的呢？就比如 8.12598519-E5  这种

  

计次循环首 (取数组成员数 (arr), i)
arr2 ＝ 分割文本 (arr [i], 字符 (9), )
如果 (取数组成员数 (arr2) ＝ 3)
[color= #ff0000]        arr2 [1] ＝ 子文本替换 (arr2 [1], “-E”, “e-”, , , 假)[/color]
tmp ＝ 到数值 (arr2 [1])
如果真 (tmp ＞ a最大)
a最大 ＝ tmp
a最大所在行 ＝ i
如果真 (tmp ＜ a最小)
a最小 ＝ tmp
a最小所在行 ＝ i

.版本 2<br /> <br /> .计次循环首 (取数组成员数 (arr), i)<br />     arr2 ＝ 分割文本 (arr <i>, 字符 (9), )<br />     .如果 (取数组成员数 (arr2) ＝ 3)<br /> <font color="#ff0000">        arr2 [1] ＝ 子文本替换 (arr2 [1], “-E”, “e-”, , , 假)</font><br />         tmp ＝ 到数值 (arr2 [1])<br />         .如果真 (tmp ＞ a最大)<br />             a最大 ＝ tmp<br />             a最大所在行 ＝ i<br />         .如果真结束<br />         .如果真 (tmp ＜ a最小)<br />             a最小 ＝ tmp<br />             a最小所在行 ＝ i

加一行

afu45

如果 (取数组成员数 (arr2) ＝ 3)
arr2 [1] ＝ 子文本替换 (arr2 [1], “-E”, “e-”, , , 假)         '这里加一行
tmp ＝ 到数值 (arr2 [1])