42
6.4多模块程序
调用子程序:do 子程序名 with 参数 返回:return
43
例:任意输入一个数,计算以该数为半径的圆面积。
主程序main
clear
area=0 input "请输入半径" to r
if r<=0 ?"半径必须大于0!"
else
do area with r,area
endif ?"半径是:",r ?"面积是:" ,area
for n=1 to 4 aa(n)=n
endfor
for i=1 to 4 s=s+aa(i)
endfor ?s
48
编写程序:判断一个数是否是素数。
input "请输入一个数:" to x flag=1
for i=2 to x-1 if mod(x,i)=0 ?"不是" flag=0 exit endif
5
输入命令
input 提示信息 to 内存变量 accept 提示信息 to 内存变量 wait 提示信息 to 内存变量
注意: input命令可用于各种类型数据的输入,输入字符型数据需要加定 界符。 Accept命令只限于输入字符型数据。输入时内容不需要加定界符。 Wait一般起到等待的作用。
例:成绩查询。
8
set talk on/off 作用:关闭对话状态。
Clear
Set talk off
Use xsda average 成绩 Set talk on average 成绩
Set safety on/off 作用: 提供或取消安全保护。
use xsda copy to abc use abc zap set safety off zap