第4章程序设计控制结构PPT推荐.ppt
- 文档编号:15039972
- 上传时间:2022-10-27
- 格式:PPT
- 页数:45
- 大小:318KB
第4章程序设计控制结构PPT推荐.ppt
《第4章程序设计控制结构PPT推荐.ppt》由会员分享,可在线阅读,更多相关《第4章程序设计控制结构PPT推荐.ppt(45页珍藏版)》请在冰豆网上搜索。
TOBJTOBJSUMSUM奖学金奖学金奖学金奖学金TOJXJFORLEFT(TOJXJFORLEFT(学号学号学号学号,3)=BJ,3)=BJ?
BJ+?
BJ+班全体学生的奖学金总额为:
班全体学生的奖学金总额为:
+STR(JXJ,5,2)+STR(JXJ,5,2)USEUSESETTALKONSETTALKON二、选择分支结构(二、选择分支结构(P223)选择分支结构是根据条件的测试结果执行不选择分支结构是根据条件的测试结果执行不同的操作。
同的操作。
选择二路分支结构选择二路分支结构多路分支结构多路分支结构选择二路分支结构选择二路分支结构选择二路分支结构由以下语句实现。
选择二路分支结构由以下语句实现。
格式:
IFTHENELSEENDIF例例3.3:
从键盘输入一个数,说明它是奇数还是偶数。
*P3_3.PRG*P3_3.PRG*SETTALKOFFSETTALKOFFCLEARCLEARINPUTINPUT请输入一个数值型数据:
请输入一个数值型数据:
TOATOAIFIFINT(A/2)=A/2INT(A/2)=A/2&
INT()&
INT()舍尾取整函数(也可以用取模运算:
舍尾取整函数(也可以用取模运算:
A%2=0A%2=0或或或或MOD(A,2)=0MOD(A,2)=0)?
A,?
A,是偶数是偶数是偶数是偶数!
ELSEELSE?
A,是奇数是奇数是奇数是奇数!
ENDIFENDIFSETTALKONSETTALKON例例例例3.43.4:
求一元二次方程式:
求一元二次方程式ax2+bx+c=0ax2+bx+c=0的根,的根,的根,的根,a,b,ca,b,c的的的的值从键盘输入。
值从键盘输入。
*P3_4.PRG*P3_4.PRG*SETTALKOFFSETTALKOFFCLEARCLEARINPUTa=TOaINPUTa=TOaINPUTb=TObINPUTb=TObINPUTc=TOcINPUTc=TOcD=b*b-4*a*cD=b*b-4*a*cP=-b/(2*a)P=-b/(2*a)IFIFD0D0?
复根!
ELSEELSEIFIFD=0D=0?
X1=X2=,P?
X1=X2=,PELSEELSED1=SQRT(D)D1=SQRT(D)&
将将将将DD的平方根赋给的平方根赋给的平方根赋给的平方根赋给D1D1?
X1=,(-b+D1)/(2*a)?
X2=,(-b-D1)/(2*a)?
X2=,(-b-D1)/(2*a)ENDIFENDIFENDIFENDIFSETTALKONSETTALKON多路分支结构多路分支结构多路分支结构由以下语句实现。
格式多路分支结构由以下语句实现。
DOCASEDOCASECASECASE11CASECASE22CASECASEnnOTHERWISEOTHERWISEn+1ENDCASEENDCASE例例例例3.53.5:
用多路选择分支结构实现例:
用多路选择分支结构实现例3.43.4。
*P3_5.PRG*P3_5.PRG*SETTALKOFFSETTALKOFFCLEARCLEARINPUTa=TOaINPUTa=TOaINPUTb=TObINPUTb=TObINPUTc=TOcINPUTc=TOcD=b*b-4*a*cD=b*b-4*a*cP=-b/(2*a)P=-b/(2*a)DOCASEDOCASECASED0CASED0CASED0&
或用或用或用或用OTHERWISEOTHERWISED1=SQRT(D)D1=SQRT(D)?
X2=,(-b-D1)/(2*a)ENDCASEENDCASESETTALKONSETTALKON三、循环结构(三、循环结构(p168)DOWHILE.ENDDOSCAN.ENDSCANFOR.ENDFORDOWHILEENDDO格式:
DOWHILEDOWHILEENDDOENDDO功能:
当功能:
当的值为的值为的值为的值为.T.T.时时时时,重复执行重复执行重复执行重复执行DOENDDODOENDDO之间的之间的之间的之间的,直到,直到,直到,直到的值为的值为的值为的值为.F.F.时,时,时,时,结束循环操作。
结束循环操作。
例例例例3.73.7:
利用永真循环结构完成例:
利用永真循环结构完成例3.63.6中对多个学生成中对多个学生成中对多个学生成中对多个学生成绩的查询操作。
绩的查询操作。
*P_7.PRG*P_7.PRG*SETTALKOFFSETTALKOFFCLEARCLEARUSEUSE成绩成绩成绩成绩DOWHILE.T.DOWHILE.T.&
永真循环开始永真循环开始永真循环开始永真循环开始ACCEPTACCEPT请输入学生的学号请输入学生的学号请输入学生的学号请输入学生的学号:
TOXHTOXHLOCATEFORLOCATEFOR学号学号学号学号=XH=XHIF!
FOUND()IF!
FOUND()?
查无此人查无此人查无此人查无此人!
ELSEELSEAVERAGEAVERAGE成绩成绩成绩成绩TOCJFORTOCJFOR学号学号学号学号=XH=XHDOCASEDOCASECASECJ=90CASECJ=90DC=DC=优优优优CASECJ=80CASECJ=80DC=DC=良良良良CASECJ=70CASECJ=70DC=DC=中中中中CASECJ=60CASECJ=60DC=DC=及格及格及格及格OTHERWISEOTHERWISEDC=DC=不及格不及格不及格不及格ENDCASEENDCASE?
XH,CJ,DC?
XH,CJ,DCENDIFENDIFWAITWAIT还要查询吗还要查询吗还要查询吗还要查询吗?
Y/NTOYN?
Y/NTOYN&
询问并接受输入询问并接受输入询问并接受输入询问并接受输入IFUPPER(YN)=Y“IFUPPER(YN)=Y“&
如果用户回答要查询如果用户回答要查询如果用户回答要查询如果用户回答要查询LOOPLOOP&
直接回到循环开始处直接回到循环开始处直接回到循环开始处直接回到循环开始处ELSEELSEEXITEXIT&
直接退出到循环外直接退出到循环外直接退出到循环外直接退出到循环外ENDIFENDIFENDDOENDDOUSEUSESETTALKONSETTALKONSCANENDSCAN格式:
SCANNOOPTIMIZESCANNOOPTIMIZE范围范围范围范围FORFORWHILEWHILE2ENDSCANENDSCAN功能:
对当前打开的表文件在指定范围、满足条件的记录中进行自上而功能:
对当前打开的表文件在指定范围、满足条件的记录中进行自上而下逐个扫描操作,随着记录指针的移动,下逐个扫描操作,随着记录指针的移动,下逐个扫描操作,随着记录指针的移动,下逐个扫描操作,随着记录指针的移动,SCANSCAN循环允许对指定的每循环允许对指定的每循环允许对指定的每循环允许对指定的每条记录执行相同的条记录执行相同的条记录执行相同的条记录执行相同的操作。
操作。
例例例例3.153.15:
显示输出:
显示输出“学生学生学生学生”表中的获得奖学金的女学表中的获得奖学金的女学表中的获得奖学金的女学表中的获得奖学金的女学生的姓名和奖学金数额。
生的姓名和奖学金数额。
SETTALKOFFCLEARUSE学生学生SCANFOR奖学金奖学金0.AND.!
性别性别?
姓名姓名,奖学金奖学金ENDSCANUSESETTALKONFORENDFOR格式格式格式格式11:
FORFOR循环变量循环变量循环变量循环变量=初值初值初值初值TOTO终值终值终值终值STEPSTEP步长步长步长步长EXITEXITLOOPLOOPENDFOR/NEXTENDFOR/NEXT功能:
当循环变量的值不大于终值时,执行循环操作。
功能:
例:
用例:
用FORFOR循环计算:
循环计算:
1+2+3+.+n1+2+3+.+n(或(或(或(或AA!
)!
)SETTALKOFFINPUT“N=“TONS=0FORI=1TONS=S+IENDFOR?
SSETTALKON例(补充):
口令加密程序(允许输入口令三次)例(补充):
口令加密程序(允许输入口令三次)SETTALKOFFSETTALKOFFFORI=1TO3FORI=1TO3?
请输入口令:
SETCONSOLEOFFSETCONSOLEOFF&
关闭显示关闭显示关闭显示关闭显示ACCEPTTOKLACCEPTTOKLSETCONSOLEONSETCONSOLEONIFKL=123IFKL=123EXITEX
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 章程 设计 控制 结构