程序的三种基本控制结构.doc

《程序的三种基本控制结构.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序的三种基本控制结构顺序结构选择结构循环结构一、顺序结构：顺序语句由语句序列组成，程序执行时，按照语句的顺序，从上而下，一条一条地顺序执行如：store'VisualFoxPro'tonameAge=4?'Mynameis'+name+',Iam';+str(Age)+'yearsold'一、二、选择结构：分支语句根据一定的条件决定执行哪一部分的语句序列。二、1、单分支结构格式：if<条件><语句序列>endif例程1：clearusesbwait‘是否打印？（y/n）’toaifupper(a)=’Y’wait‘请接好

2、打印机！按任意键后打印’listtoprintendif1、双分支选择格式：if<条件><语句序列1>else<语句序列2>endif例程2：clearsettalkoffaccept‘请输入密码：’tommifmm<>’abc’?’你无权使用本系统’quitelse?’欢迎使用本系统’endifsettalkonif语句的嵌套：在一个if语句中包含另一个语句的程序结构例程3：根据输入的x值，计算下面分段函数的值，并显示结果。2x-5(x<1)Y=2x(1<=x<10)2x+5(x>=10)input‘请输入x的值：’to

3、xifx<1y=2*x-5elseifx<10y=2*xelsey=2*x+5endifendif?’分段函数的值为’+str(y)1、多分支结构格式：DOCASECASE〈逻辑表达式1〉〈语句组1〉CASE〈逻辑表达式2〉〈语句组2〉…CASE〈逻辑表达式n〉〈语句组n〉[OTHERWISE]〈语句组〉ENDCASE例程4：输入某学生成绩，并判断其成绩等级：100-90分为优秀，89-80分为良好，79-70分为中等，69-60分为差，60分以下为不及格。SettalkoffClearInput‘请输入成绩：’tonsc

4、oreDocaseCasenscore>=90?’成绩优秀’casenscore>=80?’成绩良好’casenscore>=70?’成绩中等’casenscore>=60?’成绩较差’casenscore>=0?’成绩不及格’otherwise?’成绩应大于0，数据有错’endcase?’程序执行完毕’settalkon三、循环结构：循环语句使同一个语句组根据一定的条件执行若干次。l有三种循环语句：–DOWHILE–FOR语句组表达式假.f.真.t.–SCAN1、dowhile循环语句1.dowhile循环l语句格式1D

5、OWHILE〈逻辑表达式〉<语句组>ENDDO例程1：计算1+2+3…100settalkoffclears=0I=1DowhileI<=100s=s+II=I+1Enddo?’1～100的和为：’,sreturn语句格式2：DOWHILE〈逻辑表达式〉〈命令序列1〉[loop]<命令序列2>[exit]<命令序列3>ENDDOLoop语句是循环短路语句，当程序执行到loop语句时，被迫结束本次循环，不再执行loop后面至enddo之间的语句序列，而是返回dowhile处重新判断条件Exit语句是循环断路语句。当程序执行到

6、exit语句时，被迫中断循环，转去执行enddo语句后的语句。例程2：循环输入学生姓名，查找并显示该学生的情况，直到用户停止输入。SettalkoffClearStore‘y’toynUse学生Dowhile.t.Accept‘请输入学生姓名:’tonameLocatefor姓名=nameIffound()?’学号’+学号?’姓名’+姓名else?’没有’+name+’这个学生’endifwait‘是否继续查找（y/n）?’toynifupper(yn)=’Y’?loopelseexitendifenddo?’程序结束’u

7、sesettalkonreturn读程练习：1、settalkoffuse学生name=space(8)@10,5say‘请输入学生姓名’getnamereadlocatefor姓名=nameiffound()dispelse@12,5say‘该单位无此人‘endifsettalkonusereturn2、统计学生表中男女学生人数settalkoffclearuse学生store0tonman,nwomandowhile!eof()if性别=’男’nman=nman+1elsenowman=nwoman+1endifski

8、penddo?’男生人数为：’+str(nman)?’女生人数为：’+str(nwoman)usesettalkonreturn3、逐条输出学生表中1984年出生的学生记录clearuse学生indexonyear(出生日期)tagcsrqseek1984dowhileyear(出生日期)=1984di