ASP教程：等差数列和等比数列通项公式
作者 佚名技术
来源 ASP编程
浏览
发布时间 2012-03-12
|
| WebjxCom提示：递归实例：等差数列和等比数列通项公式。 |
递归实例：等差数列和等比数列通项公式。
以下为引用的内容：
<%
''==================================================
''函数名：DengCha
''作 用：等差数列公式
''参 数: a1 ------等差数列第1项值
''参 数: d ------公差
''参 数：n ------第n项
''返回值：等差数列第n项的值
''==================================================
Function DengCha(a1,d,n)
If Not(IsNumeric(a1) or IsNumeric(d) or IsNumeric(n) or n<1) Then Exit Function
If n=1 Then
DengCha = a1
Else
DengCha = DengCha(a1,d,n-1) + d
End If
End Function
''==================================================
''函数名：DengBi
''作 用：等比数列公式
''参 数: a1 ------等比数列第1项值
''参 数: q ------公比
''参 数：n ------第n项
''返回值：等比数列第n项的值
''==================================================
Function DengBi(a1,q,n)
If Not(IsNumeric(a1) or IsNumeric(q) or IsNumeric(n) or n<1) Then Exit Function
If n=1 Then
DengBi = a1
Else
DengBi = DengCha(a1,q,n-1) * q
End If
End Function
''Response.write(DengCha(1,2,4))
''Response.write(DengBi(2,2,4))
%> |
|
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn
为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
|
