精易论坛

标题: 一个并没有什么用的东西 [打印本页]

---

作者: 傻子到了    时间: 2017-4-8 14:00
标题: 一个并没有什么用的东西

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数1	整数型
数2	整数型
数3	整数型
数4	整数型
数5	整数型
数6	整数型
数7	整数型
数8	整数型

数1 ＝ 到整数 (编辑框1.内容)
数2 ＝ 到整数 (编辑框2.内容)
数3 ＝ 到整数 (编辑框3.内容)
数4 ＝ 到整数 (编辑框4.内容)
数5 ＝ 到整数 (编辑框5.内容)
数6 ＝ 到整数 (编辑框6.内容)
数7 ＝ 到整数 (编辑框7.内容)
数8 ＝ 到整数 (编辑框8.内容)
如果 (数1 ＝ 数2 或 数1 ＝ 数3 或 数1 ＝ 数4 或 数1 ＝ 数5 或 数1 ＝ 数5 或 数1 ＝ 数7 或 数1 ＝ 数8)
信息框 (“有重复数” ＋ 编辑框1.内容 ＋ “请修改”, 0, , )
返回 ()
如果 (数2 ＝ 数3 或 数2 ＝ 数4 或 数2 ＝ 数5 或 数2 ＝ 数5 或 数2 ＝ 数7 或 数2 ＝ 数8)
信息框 (“有重复数” ＋ 编辑框2.内容 ＋ “请修改”, 0, , )
返回 ()
如果 (数3 ＝ 数4 或 数3 ＝ 数5 或 数3 ＝ 数5 或 数3 ＝ 数7 或 数3 ＝ 数8)
信息框 (“有重复数” ＋ 编辑框3.内容 ＋ “请修改”, 0, , )
返回 ()
如果 (数4 ＝ 数5 或 数4 ＝ 数5 或 数4 ＝ 数7 或 数4 ＝ 数8)
信息框 (“有重复数:” ＋ 编辑框4.内容 ＋ “请修改”, 0, , )
返回 ()
如果 (数5 ＝ 数7 或 数5 ＝ 数8)
信息框 (“有重复数” ＋ 编辑框5.内容 ＋ “请修改”, 0, , )
返回 ()
如果 (数6 ＝ 数7 或 数6 ＝ 数8)
信息框 (“有重复数” ＋ 编辑框6.内容 ＋ “请修改”, 0, , )
返回 ()
如果 (数7 ＝ 数8)
信息框 (“有重复数” ＋ 编辑框7.内容 ＋ “请修改”, 0, , )
返回 ()








如果 (数1 ＞ 数2)
如果 (数1 ＞ 数3)
如果 (数1 ＞ 数4)
如果 (数1 ＞ 数5)
如果 (数1 ＞ 数6)
如果 (数1 ＞ 数7)
如果 (数1 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框1.内容, 0, , )


















如果 (数2 ＞ 数3)
如果 (数2 ＞ 数4)
如果 (数2 ＞ 数5)
如果 (数2 ＞ 数6)
如果 (数2 ＞ 数7)
如果 (数2 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框2.内容, 0, , )















如果 (数3 ＞ 数4)
如果 (数3 ＞ 数5)
如果 (数3 ＞ 数6)
如果 (数3 ＞ 数7)
如果 (数3 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框3.内容, 0, , )












如果 (数4 ＞ 数5)
如果 (数4 ＞ 数6)
如果 (数4 ＞ 数7)
如果 (数4 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框4.内容, 0, , )









如果 (数5 ＞ 数6)
如果 (数5 ＞ 数7)
如果 (数5 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框5.内容, 0, , )






如果 (数6 ＞ 数7)
如果 (数6 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框6.内容, 0, , )



如果 (数7 ＞ 数8)
信息框 (“最大的数是：” ＋ 编辑框7.内容, 0, , )
信息框 (“最大的数是：” ＋ 编辑框8.内容, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数1, 整数型<br /> .局部变量 数2, 整数型<br /> .局部变量 数3, 整数型<br /> .局部变量 数4, 整数型<br /> .局部变量 数5, 整数型<br /> .局部变量 数6, 整数型<br /> .局部变量 数7, 整数型<br /> .局部变量 数8, 整数型<br /> <br /> 数1 ＝ 到整数 (编辑框1.内容)<br /> 数2 ＝ 到整数 (编辑框2.内容)<br /> 数3 ＝ 到整数 (编辑框3.内容)<br /> 数4 ＝ 到整数 (编辑框4.内容)<br /> 数5 ＝ 到整数 (编辑框5.内容)<br /> 数6 ＝ 到整数 (编辑框6.内容)<br /> 数7 ＝ 到整数 (编辑框7.内容)<br /> 数8 ＝ 到整数 (编辑框8.内容)<br /> .如果 (数1 ＝ 数2 或 数1 ＝ 数3 或 数1 ＝ 数4 或 数1 ＝ 数5 或 数1 ＝ 数5 或 数1 ＝ 数7 或 数1 ＝ 数8)<br />     信息框 (“有重复数” ＋ 编辑框1.内容 ＋ “请修改”, 0, , )<br />     返回 ()<br /> .否则<br />     .如果 (数2 ＝ 数3 或 数2 ＝ 数4 或 数2 ＝ 数5 或 数2 ＝ 数5 或 数2 ＝ 数7 或 数2 ＝ 数8)<br />         信息框 (“有重复数” ＋ 编辑框2.内容 ＋ “请修改”, 0, , )<br />         返回 ()<br />     .否则<br />         .如果 (数3 ＝ 数4 或 数3 ＝ 数5 或 数3 ＝ 数5 或 数3 ＝ 数7 或 数3 ＝ 数8)<br />             信息框 (“有重复数” ＋ 编辑框3.内容 ＋ “请修改”, 0, , )<br />             返回 ()<br />         .否则<br />             .如果 (数4 ＝ 数5 或 数4 ＝ 数5 或 数4 ＝ 数7 或 数4 ＝ 数8)<br />                 信息框 (“有重复数:” ＋ 编辑框4.内容 ＋ “请修改”, 0, , )<br />                 返回 ()<br />             .否则<br />                 .如果 (数5 ＝ 数7 或 数5 ＝ 数8)<br />                     信息框 (“有重复数” ＋ 编辑框5.内容 ＋ “请修改”, 0, , )<br />                     返回 ()<br />                 .否则<br />                     .如果 (数6 ＝ 数7 或 数6 ＝ 数8)<br />                         信息框 (“有重复数” ＋ 编辑框6.内容 ＋ “请修改”, 0, , )<br />                         返回 ()<br />                     .否则<br />                         .如果 (数7 ＝ 数8)<br />                             信息框 (“有重复数” ＋ 编辑框7.内容 ＋ “请修改”, 0, , )<br />                             返回 ()<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .如果结束<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> .如果 (数1 ＞ 数2)<br />     .如果 (数1 ＞ 数3)<br />         .如果 (数1 ＞ 数4)<br />             .如果 (数1 ＞ 数5)<br />                 .如果 (数1 ＞ 数6)<br />                     .如果 (数1 ＞ 数7)<br />                         .如果 (数1 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框1.内容, 0, , )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .否则<br /> <br />                     .如果结束<br /> <br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .否则<br /> <br />             .如果结束<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .否则<br />     .如果 (数2 ＞ 数3)<br />         .如果 (数2 ＞ 数4)<br />             .如果 (数2 ＞ 数5)<br />                 .如果 (数2 ＞ 数6)<br />                     .如果 (数2 ＞ 数7)<br />                         .如果 (数2 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框2.内容, 0, , )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .否则<br /> <br />                     .如果结束<br /> <br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .否则<br /> <br />             .如果结束<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br />         .如果 (数3 ＞ 数4)<br />             .如果 (数3 ＞ 数5)<br />                 .如果 (数3 ＞ 数6)<br />                     .如果 (数3 ＞ 数7)<br />                         .如果 (数3 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框3.内容, 0, , )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .否则<br /> <br />                     .如果结束<br /> <br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .否则<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (数4 ＞ 数5)<br />                 .如果 (数4 ＞ 数6)<br />                     .如果 (数4 ＞ 数7)<br />                         .如果 (数4 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框4.内容, 0, , )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .否则<br /> <br />                     .如果结束<br /> <br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (数5 ＞ 数6)<br />                     .如果 (数5 ＞ 数7)<br />                         .如果 (数5 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框5.内容, 0, , )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .否则<br /> <br />                     .如果结束<br /> <br />                 .否则<br />                     .如果 (数6 ＞ 数7)<br />                         .如果 (数6 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框6.内容, 0, , )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .否则<br />                         .如果 (数7 ＞ 数8)<br />                             信息框 (“最大的数是：” ＋ 编辑框7.内容, 0, , )<br />                         .否则<br />                             信息框 (“最大的数是：” ＋ 编辑框8.内容, 0, , )<br />                         .如果结束<br /> <br />                     .如果结束<br /> <br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束

---

作者: 傻子到了    时间: 2017-4-8 14:01
取最大数

---

作者: 1425113841    时间: 2017-4-8 14:35
楼主写的乱七八糟一堆的    几条代码就可以解决的事情（重复也没事）

  

变量名	类 型	静态	数组	备 注
数组	整数型		10
i	整数型
最大数	整数型

数组 ＝ { 1, 4, 6, 50, 10, 53, 14, 23, 67, 4 }
计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ＞ 最大数)
最大数 ＝ 数组 [i]

计次循环尾 ()
调试输出 (最大数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 数组, 整数型, , "10"<br /> .局部变量 i, 整数型<br /> .局部变量 最大数, 整数型<br /> <br /> 数组 ＝ { 1, 4, 6, 50, 10, 53, 14, 23, 67, 4 }<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ＞ 最大数)<br />         最大数 ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (最大数)

[attach]624830[/attach]

---

作者: 1425113841    时间: 2017-4-8 14:36
楼主写的乱七八糟一堆的    几条代码就可以解决的事情（重复也没事）

  

变量名	类 型	静态	数组	备 注
数组	整数型		10
i	整数型
最大数	整数型

数组 ＝ { 1, 4, 6, 50, 10, 53, 14, 23, 67, 4 }
计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ＞ 最大数)
最大数 ＝ 数组 [i]

计次循环尾 ()
调试输出 (最大数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 数组, 整数型, , "10"<br /> .局部变量 i, 整数型<br /> .局部变量 最大数, 整数型<br /> <br /> 数组 ＝ { 1, 4, 6, 50, 10, 53, 14, 23, 67, 4 }<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ＞ 最大数)<br />         最大数 ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (最大数)

---

作者: zby03772016    时间: 2017-4-8 14:45
厉害。。。就是不知道为什么写那么复杂

---

作者: 阿亦x    时间: 2017-4-9 11:33
支持666666666666666666666666666

---

作者: fitsaloon    时间: 2017-4-10 04:15
向高手学习，很实用的源程序

---

作者: 7ian    时间: 2017-4-10 14:48

1425113841 发表于 2017-4-8 14:35
楼主写的乱七八糟一堆的    几条代码就可以解决的事情（重复也没事）[e=0].版本 2
.支持库 spec

这个还不完善的，要是全部都是负数，最大值肯定是0，但是又没0

---

作者: 傻子到了    时间: 2017-4-10 14:56

1425113841 发表于 2017-4-8 14:36
楼主写的乱七八糟一堆的    几条代码就可以解决的事情（重复也没事）[e=0].版本 2
.支持库 spec

哈哈，数组原来这样赋值

---

作者: 1425113841    时间: 2017-4-10 18:06

anata 发表于 2017-4-10 14:48
这个还不完善的，要是全部都是负数，最大值肯定是0，但是又没0

啥？有难度吗？
负数和整数  混合  也可以取出最大数
全负数    也可以取出最大数
在判断的时候给最大数赋值   最大数 ＝ -1e+017

  

变量名	类 型	静态	数组	备 注
数组	整数型		0
i	整数型
最大数	整数型

计次循环首 (10, )
加入成员 (数组, 选择 (取随机数 (0, 1) ＝ 0, 取随机数 (1, 99), ���取随机数 (1, 99)))
计次循环尾 ()
调试输出 (数组)
最大数 ＝ -1e+017
计次循环首 (10, i)
如果真 (数组 [i] ＞ 最大数)
最大数 ＝ 数组 [i]

计次循环尾 ()
调试输出 (最大数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 最大数, 整数型<br /> <br /> .计次循环首 (10, )<br />     加入成员 (数组, 选择 (取随机数 (0, 1) ＝ 0, 取随机数 (1, 99), －取随机数 (1, 99)))<br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> 最大数 ＝ -1e+017<br /> .计次循环首 (10, i)<br />     .如果真 (数组 <i> ＞ 最大数)<br />         最大数 ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (最大数)

---

作者: fyeekuang    时间: 2017-4-12 14:31
楼主辛苦

---

作者: 傻子到了    时间: 2017-4-13 16:18

fyeekuang 发表于 2017-4-12 14:31
楼主辛苦

为了你不辛苦

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4