控制台程序好好玩

精易求精1008 · 发表于 2015-1-12 12:29:28

窗口程序集名	保留	保留	备注
程序集1
变量名	类型	数组	备注
命令	文本型

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

标准输出 (, “*****控制台程序应用*****，作者：精易求精1008” ＋ #换行符 )
标准输出 (, “本控制台提供文本处理和算数处理两个命令” ＋ #换行符 )
标准输出 (, “输入命令_文本执行文本类操作” ＋ #换行符 )
标准输出 (, “输入命令_算数执行算数命令” ＋ #换行符 )
标准输出 (, “输入命令_退出程序关闭” ＋ #换行符 )
命令＝标准输入 ()
调试输出 (命令)

判断循环首 (命令 ≠ “命令_退出”)

判断 (命令＝ “命令_文本”)

文本处理 ()

判断 (命令＝ “命令_算数”)

算数 ()

跳出循环 ()

判断循环尾 ()
返回 (0) ' 可以根据您的需要返回任意数值

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

变量名	类型	静态	数组	备注
第一个数	文本型
第二个数	文本型
运算符	文本型

标准输出 (, “请输入第一个数” ＋ #换行符 )
第一个数＝标准输入 ()
标准输出 (, “请输入第二个数” ＋ #换行符 )
第二个数＝标准输入 ()
标准输出 (, “请输入运算符” ＋ #换行符 )
运算符＝标准输入 ()

判断 (运算符＝ “+”)

标准输出 (, “运算结果： ” ＋到文本 (到数值 (第一个数) ＋到数值 (第二个数)) ＋ #换行符 )

命令＝标准输入 ()

判断 (运算符＝ “-”)

标准输出 (, “运算结果： ” ＋到文本 (到数值 (第一个数) －到数值 (第二个数)) ＋ #换行符 )

命令＝标准输入 ()

判断 (运算符＝ “*”)

标准输出 (, “运算结果： ” ＋到文本 (到数值 (第一个数) × 到数值 (第二个数)) ＋ #换行符 )

命令＝标准输入 ()

判断 (运算符＝ “/”)

标准输出 (, “运算结果： ” ＋到文本 (到数值 (第一个数) ÷ 到数值 (第二个数)) ＋ #换行符 )

命令＝标准输入 ()

标准输出 (, “警告！请按正常运算符输入，此次命令调用结束，请重新调用” ＋ #换行符 ) ' 自己做处理吧，我就不做返回了

命令＝标准输入 ()

子程序名	返回值类型	公开	备注
文本处理

变量名	类型	静态	数组	备注
文本	文本型
被替换文本	文本型
用于替换的文本	文本型

标准输出 (, “请输入要处理的源文本” ＋ #换行符 )
文本＝标准输入 ()
标准输出 (, “您已输入源文本：” ＋文本＋ #换行符 )
标准输出 (, “请输入要替换的文本” ＋ #换行符 )
被替换文本＝标准输入 ()

判断循环首 (寻找文本 (文本, 被替换文本, , 假) ＝ -1)

标准输出 (, “被替换文本不存在！请重新输入” ＋ #换行符 )

被替换文本＝标准输入 ()

判断循环尾 ()
标准输出 (, “请输入要用于替换的文本” ＋ #换行符 )
用于替换的文本＝标准输入 ()
标准输出 (, “回车返回新文本！”)
标准输入 ()
文本＝子文本替换 (文本, 被替换文本, 用于替换的文本, , , 真)
标准输出 (, “替换后新文本是：” ＋文本＋ #换行符 )
命令＝标准输入 ()

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

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 程序集1<br />
.程序集变量 命令, 文本型<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
<br />
标准输出 (, “*****控制台程序应用*****，作者：精易求精1008” ＋ #换行符)<br />
标准输出 (, “本控制台提供文本处理和算数处理两个命令” ＋ #换行符)<br />
标准输出 (, “输入 命令_文本 执行文本类操作” ＋ #换行符)<br />
标准输出 (, “输入 命令_算数 执行算数命令” ＋ #换行符)<br />
标准输出 (, “输入 命令_退出 程序关闭” ＋ #换行符)<br />
命令 ＝ 标准输入 ()<br />
调试输出 (命令)<br />
.判断循环首 (命令 ≠ “命令_退出”)<br />
    .判断开始 (命令 ＝ “命令_文本”)<br />
        文本处理 ()<br />
    .判断 (命令 ＝ “命令_算数”)<br />
        算数 ()<br />
    .默认<br />
        跳出循环 ()<br />
    .判断结束<br />
<br />
.判断循环尾 ()<br />
返回 (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 />
    标准输出 (, “警告！请按正常运算符输入，此次命令调用结束，请重新调用” ＋ #换行符)  ' 自己做处理吧，我就不做返回了<br />
    命令 ＝ 标准输入 ()<br />
.判断结束<br />
<br />
<br />
.子程序 文本处理<br />
.局部变量 文本, 文本型<br />
.局部变量 被替换文本, 文本型<br />
.局部变量 用于替换的文本, 文本型<br />
<br />
标准输出 (, “请输入要处理的源文本” ＋ #换行符)<br />
文本 ＝ 标准输入 ()<br />
标准输出 (, “您已输入源文本 ：” ＋ 文本 ＋ #换行符)<br />
标准输出 (, “请输入要替换的文本” ＋ #换行符)<br />
被替换文本 ＝ 标准输入 ()<br />
.判断循环首 (寻找文本 (文本, 被替换文本, , 假) ＝ -1)<br />
    标准输出 (, “被替换文本不存在！请重新输入” ＋ #换行符)<br />
    被替换文本 ＝ 标准输入 ()<br />
.判断循环尾 ()<br />
标准输出 (, “请输入要用于替换的文本” ＋ #换行符)<br />
用于替换的文本 ＝ 标准输入 ()<br />
标准输出 (, “回车返回新文本 ！”)<br />
标准输入 ()<br />
文本 ＝ 子文本替换 (文本, 被替换文本, 用于替换的文本, , , 真)<br />
标准输出 (, “替换后新文本是：” ＋ 文本 ＋ #换行符)<br />
命令 ＝ 标准输入 ()

今天心血来潮写个控制台程序，第一次写哦。呵呵好好玩啊 {:soso_e113:}