解析算法课后练习.docVIP

PAGE PAGE 5 解析算法课后练习 班级： 姓名： P30【问题与练习1】:用VB编写程序计算S=1+1/3+1/5+1/7+……+1/99 P30【问题与练习2】:用VB编写程序计算s=1+ 【提示】：“！”表示阶层。n!=1*2*3*……*(n-1)*n，如5！=1*2*3*4*5 P30【问题与练习3】:某城市现有人口500万，如果每年人口增长率为3%，问多少年后该城市人口将突破800万。请补全下列VB代码。 Private Sub Command1_click() Private Sub Command1_click() Dim n As Integer, r As Single Dim p As Double r = 0.03 ‘每年人口增长率 p = 500 ‘现有人口 n = 0 Do While (1) (2) n = n + 1 L Text1.Text = Str(n) End Sub P30【问题与练习4】:按公式 a n=an-1an-3+a2n-2/an-4，a0=a1=a2=a3=1，计算n=4，5，6，……，15的an值。[注：下标在VB里无法呈现，此题中的数列用数组表示。即an表示成a(n)，an-1表示成a(n-1)，……，a1表示成a(1)，a0表示成a(0)] Private Sub Command1_Click() Private Sub Command1_Click() Dim a(0 To 15) As Single ‘定义一个一维数组a a(0) = 1: a(1) = 1: a(2) = 1: a(3) = 1 For (1) (2) List1.AddItem (Str(a(n))) Next n End Sub P106【问题与练习1】:用VB编写一个解决如下问题的程序 计算：s= [问题分析]：Ｓ是数列累加求和，根据式子可知数列的通项式为an=（-1）^（n-1）/(2*n-1)!， Private Sub Command1_Click() Private Sub Command1_Click() Dim i, n As Integer Dim j, s As Double j = 1 ‘表示第一项 s = 1 n = Val(Text1.Text) For i = 2 To n (1) 　‘当前项与上一项的关系 (2) 　‘累加 Next i Text2.Text = Str(s) ‘结果显示到文本框Text2.text中 End Sub P106【问题与练习2】:设计一个算法计算1900年1月1日之后的任何一天是星期几？用VB程序实现这一算法。 【提示】：根据蔡勒公式W = [C/4] – 2*C + y + [y/4] + [13 * (M+1) / 5] + d – 1 ，其中C是世纪数减一即年份前2位，y是年份后两位，M是月份，d是日数。1月和2月要按上一年的13月和 14月来算，这时C和y均按上一年取值，［］表示取整。W mod 7 的结果是0表示是星期日，1表示星期一，2表示星期二，……，6表示星期六。 改写成VB表达式：w = Int(c / 4) - 2 * c + y + Int(y / 4) + Int(13 * (m + 1) / 5) + d – 1 【例如：推算2006年1月1日是星期几？】 C=20，y=05（１月按上一年13月来算，同时y取上一年的年份），M=13（１月按上一年13月来算），d=1，Ｗ=[20/4]-2*20+5+[5/4]+[13*(13+1)/5]+1-1=7，W mod 7=0，是星期日。 算法流程框图如图所示： 计算某年某月某日是星期几的流程图 参考程序界面如下： Public Function leap(y As Integer) As Integer ‘自定义函数——判断是否为闰年，是返回1，不是返回0 If (y mod 400 = 0) or (y mod 4 = 0 and y mod 100 0)