要求掌握的典型操作
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
1、输入两个数存在相应的变量中，并交换两个变量的值。…X=inputbox(“x=”)Y=inputbox(“y=”)Z=XX=YY=Z…拓展：不需要中间变量Z，交换两个变量的值。…X=X+YY=X-YX=X-Y…2、输入两个数存在相应变量中，输出最大数…X=inputbox(“x=”)Y=inputbox(“y=”)IfX>YthenMax=XElseMax=yEndifPrintMax拓展一：不需要Max变量IfX>YthenPrintXElsePrintYEndif拓展二：…Max=XIfX<YthenMax=yEndif…拓展三：…Max=(X+Y)/2+ABS(X-Y)/2拓展四：若要求输出最小值，以上三个程序哪些地方需要修改？3、分段函数.…X=inputbox(“x=”)IfX<3thenY=X*XElseY=2*X+1EndifPrint拓展：（类似分段函数）某超市促销苹果，购买一斤苹果，为每斤3元，购买5斤以下每斤原价；超过5斤部分每斤打8折，输入购买的斤数，输出应付款额。…apple=inputbox(“apple=”)ifapple<=5thenmoney=3*appleelsemoney=3*5+(apple-5)*3*0.8endifprintmoney4、一元二次方程求根：ax2+bx+c=0…a=inputbox(“a=”)b=inputbox(“b=”)c=inputbox(“c=”)d=b*b-4*a*cIfd>=0thenX1=(-b+sqr(d))/(2*a)X2=(-b-sqr(d))/(2*a)Printx1,x2ElsePrint“无实解”Endif5、判断三个数是否能构成三角形的条件1）假设是三个正数a，b，c条件是：a+b>candb+c>aandc+a>b2）假设是三个数a，b，c条件是：a+b>candb+c>aandc+a>banda>0andb>0andc>06、累加：求s=10+30+50+…+550…S=0Fori=10to550step20S=S+iNEXTiPRINTS拓展一：…S=0Fori=550to10step-20S=S+iNEXTiPRINTS拓展二：求s=1+1/2+1/3+……+1/99+1/100之和…S=0Fori=1to100step1S=S+1/iNEXTiPRINTS7、累乘：求s=2*4*6*……*100之和。…S=1Fori=2to100step2S=S*iNEXTiPRINTS8、计数（同于累加，只是每次累加1）输出1-1000中被4整除，或能被9整除的数有多少个…S=0ForA=1to100step1IfAmod4=0ORAmod9=0thenS=S+iEndifNEXTAPRINTSY=X2(x<3)2x+1(x>=3)PAGE1
浙公网安备 33021202002483