复习：算法的执行流程以及代码实现

《复习：算法的执行流程以及代码实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、算法的执行流程以及代码实现顺序结构Dimaasdouble,basdoublea=input(val(“请输入a:”))b=input(val(“请输入b:”))a=a+bb=a–bA=a–bPrintaPrintb开始结束输入：a，bb←a-b输出：a，ba←a+ba←a-b分支结构单分支结构Ifa<>0thenb=a*10EndIf双分支结构If(x>0orx=0)theny=xElsey=-xEndIfx<>0b=a*10YNx>=0y=xYNy=-x分支结构的嵌套设有如下函数：输入x，要求输出y的值。1x>

2、0y=0x=0-1x<0开始结束x>0?x=0?y=1y=0y=-1YYNNx←输入数据DimxasInteger,yasIntegerx=Val(InputBox(“输入x”))Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1EndIfPrinty循环语句1——当循环DoWhile…Loop结构DoWhile条件表达式[语句块]Loop例：求10以内所有偶数的和s=0:i=2Dowhilei<=10s=s+i:i=i+2LoopFor……next结构For循环变量=初值to终值[Step步

3、长]语句块Next[循环变量]s=0Fori=2To10Step2s=s+iNexti开始计算“条件”值条件为真吗？执行循环体结束是否“当型”循环特点：先判断，再执行，有可能循环体一次也不执行循环语句2——DoLoop…Until直到型循环Do[语句块]LoopUntil条件表达式直到型循环例：求10以内所有s=0:i=2Dos=s+ii=i+2Loopuntili>10开始计算“条件”值条件为真吗？执行循环体结束是否Do…LoopUntil“直到型”循环特点：先执行，再判断，最少执行一次循环体，直到条件成立，退出

4、循环循环结构+分支结构开始结束I←1I<=1000Imod3=0I←I+1输出:INNYY此算法的功能是：输出所有1——1000内（包括1、1000）能被3整除的整数。代码2(DoWhile…Loop)：I=1DoWhileI<=1000IfImod3=0thenPrintIEndIfI=I+1Loop代码1(For...Next)：ForI=1to1000step1IfImod3=0thenPrintIEndIfNextI解析算法例题：已知一元二次方程ax2+bx+c=0的系数a、b、c，求方程的解x。算法分析：

5、输入a、b、c；计算d=b2-4ac的结果，d>0，输出两个解x1、x2；d=0，输出一个解x1；d<0，输出“无解”。解析算法例题流程图：开始结束输入a、b、cd←b*b–4*a*cd>=0?d>0?x1=(-b+sqr(d))/(2*a)x2=(-b-sqr(d))/(2*a)输出：x1,x2输出：”无解“x1=(-b)/(2*a)输出：x1YYNN解析算法例题代码：Dimaassingle,bassingle,cassingle,dassingleDimx1assingle,x2assinglea=val(I

6、nputBox(“输入a:”))b=val(InputBox(“输入b:”))c=val(InputBox(“输入c:”))d=b*b-4*a*cIfd>=0thenIfd>0thenx1=(-b+sqr(d))/(2*a)x2=(-b-sqr(d))/(2*a)print“两个解：”x1,x2Elsex1=(-b)/(2*a)print”一个解：“x1EndIfElseprint“无解”EndIf[枚举算法例题]一个五位数，模糊的是千位与十位上的数字(如下图)，已知该数是57或67的倍数，请设计算法流程图求出所有

7、的可能，并根据流程图写出代码。提示，要用到2个变量。0≤i，j≤9。注：程序设计中，最终结果在控件list(列表)中显示，使用到了该控件的.addItem属性，该属性只能添加字符串内容。完整拓展流程图开始c←0，n←0j←0j<=9n=10407+i*1000+j*10n是57或67的倍数？计数器c计数：c←c+1输出：真正解n的值j←j+1输出：计数器c结束i←0i←i+1i<=9YYNNNY循环嵌套、两种代码结构比较DimiAsInteger,jAsInteger,nAsInteger,cAsIntegern=

8、0:c=0Fori=0To9step1Forj=0To9step1n=10407+i*1000+j*10If(nMod57=0OrnMod67=0)ThenList1.AddItem(Str(n))c=c+1EndIfNextjNextiDimiAsInteger,jAsInteger,nAsInteger,cAsIntegeri=0:n=0:c=0DoWh