更新时间:2024-05-21 12:18
函数子程序属于计算机领域的术语。
子程序GOSUB
例:求4!+5!+6!
S=0
n=4: gosub f:s=s+p
n=5: gosub f:s=s+p
n=6: gosub f:s=s+p
print “4!+5!+6!=”;s
end
f: p=1
for i=1 to n
p=p*i
next i
return
子程序调用:
ON gosub ,,…,
例6:“小学生算术练习”——轮流出一个二位数和一个一位数的加法、减法和乘法的题目,共出十题,每题 10分。
randomize
for i=1 to 10
a=int(90*RND)+10
b=int(9*RND)+1
p=i mod 3 + 1
ON p GOSOB a1,a2,a3
Next i
END
input c
if c=a+b then n=n+1
return
input c
If c=a-b then n=n+1
Return
Input c
If c=a*b then n=n+1
Return.
说明
值不是整数时,按四舍五入处理,值为0或大于n则不起作用,值为负时系统给出错误信息——“不正确的函数调用”。