测试易语言代码直接在论坛显示

蛋炒番茄

  

子程序名	返回值类型	公开	备 注
运算_二分查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
位置	整数型
数组总数	整数型
对分	整数型
数值A	双精度小数型
数值B	双精度小数型
文本	文本型

位置 ＝ 1
数组总数 ＝ 取数组成员数 (数组)
如果真 (数组总数 ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数值A ＝ 到数值 (待查)
如果真 (数值A ≥ 到数值 (数组 [数组总数]))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 到数值 (数组 [对分])
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)
返回 (数组总数 ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)
位置 ＝ 对分
跳出循环 ()
如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()
判断 (类型 ＝ 2)
数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型 )
如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型 ))
返回 (数组总数 ＋ 1)
如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型 ))
返回 (1)
判断循环首 (位置 ＜ 数组总数 － 1)
对分 ＝ (位置 ＋ 数组总数) ＼ 2
数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型 )
如果真 (数值A ＝ 数值B)
位置 ＝ 对分
跳出循环 ()
如果 (数值A ＜ 数值B)
数组总数 ＝ 对分
位置 ＝ 对分

判断循环尾 ()


返回 (位置 ＋ 1)

子程序名	返回值类型	公开	备 注
运算_函数计算	文本型		求正弦、余弦、正切、余切
参数名	类 型	参考	可空	数组	备 注
Text	文本型
单位	逻辑型				真为弧度制，假为角度制

变量名	类 型	静态	数组	备 注
TempText	文本型
FText	文本型			寻找值
FNum	整数型			寻找值的长度
ZText	文本型			函数括号内文本
RetText	文本型			函数括号内计算结果
i	整数型
Find	整数型			寻找到的位置
YFind	整数型			寻找到右括号的位置

TempText ＝ Text
计次循环首 (4, i)
FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)
FNum ＝ 多项选择 (i, 4, 4, 3, 4)
Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环首 (Find ≠ -1)
YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号
如果真 (YFind ≠ -1)
ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)
判断 (ZText ＝ “”)  ' 括号内无文本
TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )
RetText ＝ 运算_括号计算 (ZText)
如果真 (RetText ＝ “”)  ' 失败返回空文本
返回 (“”)
判断 (i ＝ 1)  ' 正弦
RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 2)  ' 余弦
RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
判断 (i ＝ 3)  ' 正切
RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切
如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)
返回 (“”)
TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)

Find ＝ 寻找文本 (TempText, FText, , 假)
判断循环尾 ()
计次循环尾 ()
返回 (运算_括号计算 (TempText))

.版本 2<br /> <br /> .子程序 运算_二分查找, 整数型, 公开<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 位置, 整数型<br /> .局部变量 数组总数, 整数型<br /> .局部变量 对分, 整数型<br /> .局部变量 数值A, 双精度小数型<br /> .局部变量 数值B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> 位置 ＝ 1<br /> 数组总数 ＝ 取数组成员数 (数组)<br /> .如果真 (数组总数 ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />     数值A ＝ 到数值 (待查)<br />     .如果真 (数值A ≥ 到数值 (数组 [数组总数]))<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 到数值 (数组 [1]))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         数值B ＝ 到数值 (数组 [对分])<br />         .如果真 (数值A ＝ 数值B)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />     .如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         .如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 2)<br />     数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br />     .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型))<br />         返回 (数组总数 ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (位置 ＜ 数组总数 － 1)<br />         对分 ＝ (位置 ＋ 数组总数) ＼ 2<br />         数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型)<br />         .如果真 (数值A ＝ 数值B)<br />             位置 ＝ 对分<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             数组总数 ＝ 对分<br />         .否则<br />             位置 ＝ 对分<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (位置 ＋ 1)<br /> <br /> .子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切<br /> .参数 Text, 文本型<br /> .参数 单位, 逻辑型, , 真为弧度制，假为角度制<br /> .局部变量 TempText, 文本型<br /> .局部变量 FText, 文本型, , , 寻找值<br /> .局部变量 FNum, 整数型, , , 寻找值的长度<br /> .局部变量 ZText, 文本型, , , 函数括号内文本<br /> .局部变量 RetText, 文本型, , , 函数括号内计算结果<br /> .局部变量 i, 整数型<br /> .局部变量 Find, 整数型, , , 寻找到的位置<br /> .局部变量 YFind, 整数型, , , 寻找到右括号的位置<br /> <br /> TempText ＝ Text<br /> .计次循环首 (4, i)<br />     FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)<br />     FNum ＝ 多项选择 (i, 4, 4, 3, 4)<br />     Find ＝ 寻找文本 (TempText, FText, , 假)<br />     .判断循环首 (Find ≠ -1)<br />         YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号<br />         .如果真 (YFind ≠ -1)<br />             ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)<br />             .判断开始 (ZText ＝ “”)  ' 括号内无文本<br />                 TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )<br />             .默认<br />                 RetText ＝ 运算_括号计算 (ZText)<br />                 .如果真 (RetText ＝ “”)  ' 失败返回空文本<br />                     返回 (“”)<br />                 .如果真结束<br />                 .判断开始 (i ＝ 1)  ' 正弦<br />                     RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .判断 (i ＝ 2)  ' 余弦<br />                     RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .判断 (i ＝ 3)  ' 正切<br />                     RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))<br />                 .默认<br />                     RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切<br />                 .判断结束<br />                 .如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)<br />                     返回 (“”)<br />                 .如果真结束<br />                 TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)<br />             .判断结束<br /> <br />         .如果真结束<br />         Find ＝ 寻找文本 (TempText, FText, , 假)<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (运算_括号计算 (TempText))

蛋炒番茄

.版本 2

.子程序 运算_二分查找, 整数型, 公开
.参数 数组, 文本型, 数组
.参数 待查, 文本型
.参数 类型, 整数型
.参数 区分大小写, 逻辑型
.局部变量 位置, 整数型
.局部变量 数组总数, 整数型
.局部变量 对分, 整数型
.局部变量 数值A, 双精度小数型
.局部变量 数值B, 双精度小数型
.局部变量 文本, 文本型

位置 ＝ 1
数组总数 ＝ 取数组成员数 (数组)
.如果真 (数组总数 ＝ 0)
    返回 (1)
.如果真结束
.判断开始 (类型 ＝ 0)
    数值A ＝ 到数值 (待查)
    .如果真 (数值A ≥ 到数值 (数组 [数组总数]))
        返回 (数组总数 ＋ 1)
    .如果真结束
    .如果真 (数值A ≤ 到数值 (数组 [1]))
        返回 (1)
    .如果真结束
    .判断循环首 (位置 ＜ 数组总数 － 1)
        对分 ＝ (位置 ＋ 数组总数) ＼ 2
        数值B ＝ 到数值 (数组 [对分])
        .如果真 (数值A ＝ 数值B)
            位置 ＝ 对分
            跳出循环 ()
        .如果真结束
        .如果 (数值A ＜ 数值B)
            数组总数 ＝ 对分
        .否则
            位置 ＝ 对分
        .如果结束

    .判断循环尾 ()
.判断 (类型 ＝ 1)
    .如果真 (文本比较 (待查, 数组 [数组总数], 区分大小写) ≥ 0)
        返回 (数组总数 ＋ 1)
    .如果真结束
    .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
        返回 (1)
    .如果真结束
    .判断循环首 (位置 ＜ 数组总数 － 1)
        对分 ＝ (位置 ＋ 数组总数) ＼ 2
        .如果真 (文本比较 (待查, 数组 [对分], 区分大小写) ＝ 0)
            位置 ＝ 对分
            跳出循环 ()
        .如果真结束
        .如果 (文本比较 (待查, 数组 [对分], 区分大小写) ＜ 0)
            数组总数 ＝ 对分
        .否则
            位置 ＝ 对分
        .如果结束

    .判断循环尾 ()
.判断 (类型 ＝ 2)
    数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)
    .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [数组总数])), #双精度小数型))
        返回 (数组总数 ＋ 1)
    .如果真结束
    .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))
        返回 (1)
    .如果真结束
    .判断循环首 (位置 ＜ 数组总数 － 1)
        对分 ＝ (位置 ＋ 数组总数) ＼ 2
        数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [对分])), #双精度小数型)
        .如果真 (数值A ＝ 数值B)
            位置 ＝ 对分
            跳出循环 ()
        .如果真结束
        .如果 (数值A ＜ 数值B)
            数组总数 ＝ 对分
        .否则
            位置 ＝ 对分
        .如果结束

    .判断循环尾 ()
.默认

.判断结束
返回 (位置 ＋ 1)

.子程序 运算_函数计算, 文本型, 公开, 求正弦、余弦、正切、余切
.参数 Text, 文本型
.参数 单位, 逻辑型, , 真为弧度制，假为角度制
.局部变量 TempText, 文本型
.局部变量 FText, 文本型, , , 寻找值
.局部变量 FNum, 整数型, , , 寻找值的长度
.局部变量 ZText, 文本型, , , 函数括号内文本
.局部变量 RetText, 文本型, , , 函数括号内计算结果
.局部变量 i, 整数型
.局部变量 Find, 整数型, , , 寻找到的位置
.局部变量 YFind, 整数型, , , 寻找到右括号的位置

TempText ＝ Text
.计次循环首 (4, i)
    FText ＝ 多项选择 (i, “sin(”, “cos(”, “tg(”, “ctg(”)
    FNum ＝ 多项选择 (i, 4, 4, 3, 4)
    Find ＝ 寻找文本 (TempText, FText, , 假)
    .判断循环首 (Find ≠ -1)
        YFind ＝ 寻找文本 (TempText, “)”, Find, 假)  ' 寻找右括号
        .如果真 (YFind ≠ -1)
            ZText ＝ 取文本中间 (TempText, Find ＋ FNum, YFind － Find － FNum)
            .判断开始 (ZText ＝ “”)  ' 括号内无文本
                TempText ＝ 文本替换 (TempText, Find, FNum ＋ 1, )
            .默认
                RetText ＝ 运算_括号计算 (ZText)
                .如果真 (RetText ＝ “”)  ' 失败返回空文本
                    返回 (“”)
                .如果真结束
                .判断开始 (i ＝ 1)  ' 正弦
                    RetText ＝ 到文本 (求正弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
                .判断 (i ＝ 2)  ' 余弦
                    RetText ＝ 到文本 (求余弦 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
                .判断 (i ＝ 3)  ' 正切
                    RetText ＝ 到文本 (求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))
                .默认
                    RetText ＝ 到文本 (1 ÷ 求正切 (选择 (单位, 到数值 (RetText), 到数值 (RetText) × #pi ÷ 180)))  ' 余切
                .判断结束
                .如果真 (是否运算正确 (到数值 (RetText)) ＝ 假)
                    返回 (“”)
                .如果真结束
                TempText ＝ 文本替换 (TempText, Find, 取文本长度 (ZText) ＋ FNum ＋ 1, RetText)
            .判断结束

        .如果真结束
        Find ＝ 寻找文本 (TempText, FText, , 假)
    .判断循环尾 ()
.计次循环尾 ()
返回 (运算_括号计算 (TempText))



  表示  可以复制！

w1nfire

虽然我不知道你们在讨论什么但是看起来很牛逼的样子

天线宝宝

问题来了不可以复制哦。。

沐紫萌

很好很好呀

孩子的欢乐

很好哇

e族程序猿

love99

虽然看不懂，可是很好看啊

afd

虽然我不知道你们在讨论什么但是看起来很牛逼的样子

djc2000

好吧,我被惊到了