两组数组问题，不知道怎么写，求助万能的易友了！！！

菜鸟路过

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
数组1	整数型		0
数组2	文本型		0
存取列表1	存取列表
i	整数型
节点	节点			检查去重
节点2	节点			记录位置
出现次数	整数型
属性数组	文本型		0
记录位置	文本型
对应数组	文本型		0

数组1 ＝ { 99, 97, 96, 95, 94, 93, 92, 91, 90, 89 }
数组2 ＝ { “张三”, “安欣”, “小红”, “张三”, “李四”, “高启强”, “张大”, “李响”, “高启强”, “安欣” }
' 1.遍历出现的次数...
计次循环首 (取数组成员数 (数组2), i)
如果 (取反 (节点.加入属性 (数组2 [i], 1)))
节点.取数值 (数组2 [i], 出现次数)
节点.修改属性 (数组2 [i], 出现次数 ＋ 1)
' 记录位置
节点2.取文本值 (数组2 [i], 记录位置)
节点2.修改属性 (数组2 [i], 记录位置 ＋ “,” ＋ 到文本 (数组1 [i]))



节点2.加入属性 (数组2 [i], 到文本 (数组1 [i]))

计次循环尾 ()
' 2.遍历节点，找出出现一次以上的数据
节点.取全部属性名 (属性数组)
计次循环首 (取数组成员数 (属性数组), i)
节点.取数值 (属性数组 [i], 出现次数)
如果真 (出现次数 ＞ 1)
节点2.取文本值 (属性数组 [i], 记录位置)
调试输出 (属性数组 [i], 记录位置)

计次循环尾 ()

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 数组1, 整数型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 存取列表1, 存取列表<br /> .局部变量 i, 整数型<br /> .局部变量 节点, 节点, , , 检查去重<br /> .局部变量 节点2, 节点, , , 记录位置<br /> .局部变量 出现次数, 整数型<br /> .局部变量 属性数组, 文本型, , "0"<br /> .局部变量 记录位置, 文本型<br /> .局部变量 对应数组, 文本型, , "0"<br /> <br /> 数组1 ＝ { 99, 97, 96, 95, 94, 93, 92, 91, 90, 89 }<br /> 数组2 ＝ { “张三”, “安欣”, “小红”, “张三”, “李四”, “高启强”, “张大”, “李响”, “高启强”, “安欣” }<br /> ' 1.遍历出现的次数...<br /> .计次循环首 (取数组成员数 (数组2), i)<br />     .如果 (取反 (节点.加入属性 (数组2 <i>, 1)))<br />         节点.取数值 (数组2 <i>, 出现次数)<br />         节点.修改属性 (数组2 <i>, 出现次数 ＋ 1)<br /> <br />         ' 记录位置<br />         节点2.取文本值 (数组2 <i>, 记录位置)<br />         节点2.修改属性 (数组2 <i>, 记录位置 ＋ “,” ＋ 到文本 (数组1 <i>))<br /> <br />     .否则<br /> <br />         节点2.加入属性 (数组2 <i>, 到文本 (数组1 <i>))<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> ' 2.遍历节点，找出出现一次以上的数据<br /> 节点.取全部属性名 (属性数组)<br /> <br /> .计次循环首 (取数组成员数 (属性数组), i)<br /> <br />     节点.取数值 (属性数组 <i>, 出现次数)<br /> <br />     .如果真 (出现次数 ＞ 1)<br />         节点2.取文本值 (属性数组 <i>, 记录位置)<br />         调试输出 (属性数组 <i>, 记录位置)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

可直接出对比数据了...


补充内容 (2023-2-11 19:55):
存取列表1  这个可以直接删除... 一开始准备用存取列表来写的，不知道你有装那个支持库么？改用 节点的属性操作了

Visitors

方法笨 但能用

  

变量名	类 型	静态	数组	备 注
arr1	文本型		0
arr2	整数型		0
arr3	文本型		0
arr4	整数型		0
sign	逻辑型
i	整数型
j	整数型
k	整数型

arr1 ＝ { “张三”, “安欣”, “小红”, “张三”, “李四”, “高启强”, “张大”, “李响”, “高启强”, “安欣” }
arr2 ＝ { 99, 97, 96, 95, 94, 93, 92, 91, 90, 89 }
' 查找
计次循环首 (取数组成员数 (arr1), i)
sign ＝ 真
' 找出重复的名称，并给出索引
变量循环首 (i, 取数组成员数 (arr1), 1, j)
如果真 (i ≠ j)
如果真 (arr1 [i] ＝ arr1 [j])
如果真 (sign)
加入成员 (arr3, arr1 [i])
加入成员 (arr4, i)
sign ＝ 假
加入成员 (arr3, arr1 [j])
加入成员 (arr4, j)


变量循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (arr3), i)
调试输出 (“重复的元素及对应值”, arr3 [i], arr2 [arr4 [i]])
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 arr1, 文本型, , "0"<br /> .局部变量 arr2, 整数型, , "0"<br /> .局部变量 arr3, 文本型, , "0"<br /> .局部变量 arr4, 整数型, , "0"<br /> .局部变量 sign, 逻辑型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 k, 整数型<br /> <br /> <br /> arr1 ＝ { “张三”, “安欣”, “小红”, “张三”, “李四”, “高启强”, “张大”, “李响”, “高启强”, “安欣” }<br /> <br /> arr2 ＝ { 99, 97, 96, 95, 94, 93, 92, 91, 90, 89 }<br /> <br /> ' 查找<br /> .计次循环首 (取数组成员数 (arr1), i)<br /> <br />     sign ＝ 真<br /> <br />     ' 找出重复的名称，并给出索引<br />     .变量循环首 (i, 取数组成员数 (arr1), 1, j)<br /> <br />         .如果真 (i ≠ j)<br /> <br />             .如果真 (arr1 <i> ＝ arr1 [j])<br /> <br />                 .如果真 (sign)<br />                     加入成员 (arr3, arr1 <i>)<br />                     加入成员 (arr4, i)<br />                     sign ＝ 假<br /> <br />                 .如果真结束<br />                 加入成员 (arr3, arr1 [j])<br />                 加入成员 (arr4, j)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .计次循环首 (取数组成员数 (arr3), i)<br /> <br />     调试输出 (“重复的元素及对应值”, arr3 <i>, arr2 [arr4 <i>])<br /> <br /> .计次循环尾 ()

Ruang

demo.e (936.47 KB, 下载次数: 1)

2023-2-11 21:24 上传

点击文件名下载附件