[e]
.版本 2
.子程序 取随机字母, 文本型, 公开
.参数 长度, 整数型
.参数 是否大写, 逻辑型
.局部变量 数组_大写, 文本型, , "26"
.局部变量 数组_小写, 文本型, , "26"
.局部变量 i, 整数型
.局部变量 str, 文本型
数组_大写 = { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “S”, “Y”, “Z” }
数组_小写 = { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “s”, “y”, “z” }
置随机数种子 ()
.判断开始 (是否大写)
.计次循环首 (长度, i)
str = str + 数组_大写 [取随机数 (1, 26)]
.计次循环尾 ()
.默认
.计次循环首 (长度, i)
str = str + 数组_小写 [取随机数 (1, 26)]
.计次循环尾 ()
.判断结束
返回 (str)
[/e] |