已审核词条 未审核词条

子程序名	返回值类型	公开	备 注
运算_函数计算	文本型		求正弦、余弦、正切、余切
参数名	类 型	参考	可空	数组	备 注
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))

词条作者信息 使用例程