资源描述:
《01解析算法课堂练习》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、S—l+g+g+I.计算3・的值。请将下面划线处的代码填写完整:PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles=0Fori=1To50(1)NextiTextl.Text=Str(s)EndSubJ=l+—+—+J-2.计算3!5!7!的值。请将下血划线处的代码填写完整:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimsAsDoubles=1(1)Forn=1To7m=m*nIf(2)Thens=s+1/mNextnTex
2、tl.Text=Str(s)EndSub方法2:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimsAsDoubles=1(3)Forn=3To7Step2m=m*⑷s=s+1/mNextnTextl.Text=Str(s)EndSub3.计算S=l-22+32-42+-+(-l)n_"n,的值。请将下面划线处的代码填写完整:PrivateSubCommand1_Click()DimnAsInteger,tAsInteger,mAsIntegerDimsAsIntegern=Val
3、(Text2.Text)(1)t=1Form=1Tons=s+t*m*m(2)NextmTextl.Text=Str(s)EndSub参考答案:1.(1)S=S+1/(2*i-1)2.(1)m=1(2)nMod2=1(3)m=13.(1)s=0(2)t=-t或t=(-1)A(m-1)1.设计一个程序,计算n个电阻并联后的总电阻值。41S=、石求和问题Jt=l2.计算日+才才71的值。3.2008GDP.xls为2008年全国各省人均GDP数据及增长率,请选择自己所在的省份数据并算,如果以后每年能够保持同样GDP增长率,经过多少年之后人均
4、GDP可达10万元,设计一个VB程序完成计算。H1111、
5、
6、1.圆内止方形砖块的块数计算。在平地上整齐地铺满了边长为1分米的正方形砖块,以某四块砖的交点为圆心,画一个半径为r(r$血)分米的圆,计算圆内所能包含的完整的砖块块数。设计一个算法完成计算。ZE=1+1+1x2+1x2x3+……1•用迭代法2335357求口的近似值。•••星期几问题::x”r#—vzItIt20212229242设计一个算法计算1900年1月1日星期一之后的任何一天是星期几?用VB程序实现这一算法。蔡勒(Zeller)公式w=y+[y/4]+[c/4卜2c+
7、[26(m+1)/10]4-d-1公式中的符号含义如下,w:星期;c:世纪;y:年(两位数);m:月(m大于等于3,小于等于14,即在蔡勒公式中,某年的1、2月要看作上一年的13、14月来计算,比如2003年1月1日要看作2002年的13月1日来计算);d:th[]代表取整,即只要整数部分。相比于通用通用计算公式而言,蔡勒(Zeller)公式大大降低了计算的复杂度。IB册诂2.用蒙特卡洛法求兀的近似值。利用求单位正方形与内接圆面积的比例关系来求得H的近似值。单位圆的1/4面积是一个扇形,它是边长为1单位正方形的一部分。如果能求出扇形面积
8、si在正方形面积s中占的比例k=sl/s,它的值也等于n/4,从而就计算得到n的值。怎样求出扇形面积在正方形面积中占的比例k呢?蒙特卡洛法是在正方形中随机投入很多点,使所投的点落在止方形屮每一个位置的机会相等。有些点将落在扇形内,而另一些点将会落在扇形外,落在扇形内的点数m与所投点的总数n之间比m/nR卩为k的近似值。投入次数m
9、1000计算X的近似值:3.108使用随机函数Rnd随机产生两个小数x、y,可构成一个坐标点(x,y),判断是否落在扇形内的充要条件是x(2)■计算出TT的近似值Text2.Text=Str(Pi)EndSub
10、编写一个VB程序完成该算法,并输入投放次数n为100、输出兀的近似值分别为,再次运行程序,输出兀的近似值分别为,试分别两次运行结果不一致的原因?依次运行程序,分别输入投放次数为1000.10000.100000,输出兀的近似值分别为>、试分析投放次数n的大小与只的近似值的关系。如果运行时,在未输入投放次数n的情况下,点击了“计算”,程序会出现什么提示信息,试+y2<=b总计投放n次,根据条件判断统计得到落在扇形内的次数m,再根据两者的比例m/n,求得Ji=4*m/n的近似值。1)请将下面划线处的代码填写完整:PrivateSubComm
11、and1_Click()DimPiAsDouble,xAsDouble,yAsDouble'随机数初始化'读入投放次数nDimmAsLong,nAsLongRandomizeTimern二VaRTextl.