计算几排几列

yuehuna

比如这种，计算其中一个数是第几排第几列的，有点绕晕了给我

麻辣鸡丝

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 排, 整数型
.局部变量 列, 整数型

计算几排几列 (5, 排, 列)
调试输出 (5, 排, 列)

计算几排几列 (10, 排, 列)
调试输出 (10, 排, 列)


.子程序 计算几排几列
.参数 数字, 整数型
.参数 排, 整数型, 参考
.参数 列, 整数型, 参考

数字 ＝ 数字 － 1
排 ＝ 数字 ÷ 6 ＋ 1
列 ＝ 数字 ％ 6 ＋ 1

开始运行被调试程序
* 5 | 1 | 5
* 10 | 2 | 4
被调试易程序运行完毕

yuehuna

列的话用%可以直接取余数，排给我整蒙了

寒潮

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
局_列数	整数型
局_计次	整数型
局_排列	文本型
局_欲求数	整数型
局_所在行	整数型
局_所在列	整数型

局_列数 ＝ 6
局_排列 ＝ “”
计次循环首 (100, 局_计次)
如果 (局_排列 ＝ “”)
局_排列 ＝ 子程序 (到文本 (局_计次))
如果 (局_计次 ％ 局_列数 ＝ 1)
局_排列 ＝ 局_排列 ＋ #换行符 ＋ 子程序 (到文本 (局_计次))
局_排列 ＝ 局_排列 ＋ 取空白文本 (2) ＋ 子程序 (到文本 (局_计次))


计次循环尾 ()
调试输出 (局_排列)
局_欲求数 ＝ 32
如果 (局_欲求数 ％ 局_列数 ≠ 0)
局_所在行 ＝ 取整 (局_欲求数 ÷ 局_列数) ＋ 1
局_所在列 ＝ 局_欲求数 ％ 局_列数
局_所在行 ＝ 取整 (局_欲求数 ÷ 局_列数)
局_所在列 ＝ 局_列数
调试输出 (局_所在行, 局_所在列)

子程序名	返回值类型	公开	备 注
子程序	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型

判断循环首 (取文本长度 (参_文本) ＜ 3)
参_文本 ＝ “0” ＋ 参_文本
判断循环尾 ()
返回 (参_文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 局_列数, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_排列, 文本型<br /> .局部变量 局_欲求数, 整数型<br /> .局部变量 局_所在行, 整数型<br /> .局部变量 局_所在列, 整数型<br /> <br /> 局_列数 ＝ 6<br /> 局_排列 ＝ “”<br /> .计次循环首 (100, 局_计次)<br />     .如果 (局_排列 ＝ “”)<br />         局_排列 ＝ 子程序 (到文本 (局_计次))<br />     .否则<br />         .如果 (局_计次 ％ 局_列数 ＝ 1)<br />             局_排列 ＝ 局_排列 ＋ #换行符 ＋ 子程序 (到文本 (局_计次))<br />         .否则<br />             局_排列 ＝ 局_排列 ＋ 取空白文本 (2) ＋ 子程序 (到文本 (局_计次))<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (局_排列)<br /> 局_欲求数 ＝ 32<br /> .如果 (局_欲求数 ％ 局_列数 ≠ 0)<br />     局_所在行 ＝ 取整 (局_欲求数 ÷ 局_列数) ＋ 1<br />     局_所在列 ＝ 局_欲求数 ％ 局_列数<br /> .否则<br />     局_所在行 ＝ 取整 (局_欲求数 ÷ 局_列数)<br />     局_所在列 ＝ 局_列数<br /> .如果结束<br /> 调试输出 (局_所在行, 局_所在列)<br /> <br /> .子程序 子程序, 文本型<br /> .参数 参_文本, 文本型<br /> <br /> .判断循环首 (取文本长度 (参_文本) ＜ 3)<br />     参_文本 ＝ “0” ＋ 参_文本<br /> .判断循环尾 ()<br /> 返回 (参_文本)

三生因果伴孤灯

新建 易程序.e (865.86 KB, 下载次数: 1)

2019-6-25 22:06 上传

点击文件名下载附件

你那图画的不错

走一回

  

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

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

变量名	类 型	静态	数组	备 注
num	整数型		0
i	整数型
n	整数型
key	整数型

key ＝ 9
num ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 }
重定义数组 (num, 真, 2, 6)
计次循环首 (取数组下标 (num, ), i)
计次循环首 (6, n)
如果真 (key ＝ num [i] [n])
调试输出 (“行号：” ＋ 到文本 (i), “列号：” ＋ 到文本 (n))

计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 num, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 key, 整数型<br /> <br /> key ＝ 9<br /> num ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 }<br /> 重定义数组 (num, 真, 2, 6)<br /> .计次循环首 (取数组下标 (num, ), i)<br />     .计次循环首 (6, n)<br />         .如果真 (key ＝ num <i> [n])<br />             调试输出 (“行号：” ＋ 到文本 (i), “列号：” ＋ 到文本 (n))<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()