- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第5讲 程序的三种基本结构 顺序结构程序设计 分支结构程序设计 循环结构程序设计 按照命令语句排列的顺序,一条接一条地依次执行。 【例5.18】在student.dbf学生登记表中查找并显示一个学生的信息。 SET TALK OFF USE student ACCEPT 请输入学号: TO msno LOCATE FOR sno= msno ? msno, 的有关信息如下: ? 姓名:, name ? 性别:, sex USE SET TALK ON RETU 分支结构是指程序执行到某处时,根据给定的条件经判断后选择执行某些语句。难点是条件语句的设置。 【例】用单分支修改上面程序,找到后显示信息,找不到,不显示。 SET TALK OFF USE student ACCEPT 请输入学号: TO xh LOCATE FOR sno= xh IF FOUND( ) FOUND()查找结果测试函数,返回值.T.或.F. ? xh, 的有关信息如下: ? 姓名:, name ? 性别:, sex ENDI USE SET TALK ON RETU 2、双分支 IF expL statements1 ELSE statements2 ENDIF 【例5.19】用双分支修改上面程序,未找到显示无此人。 SET TALK OFF USE student ACCEPT 请输入学号: TO xh LOCATE FOR sno= xh IF FOUND( ) ? xh, 的有关信息如下: ? 姓名:, name ? “性别:”, sex ELSE ? “对不起,库中没有这个人 ENDI USE SET TALK ON RETU ****思考:下面两程序中哪个正确? ***程序1 ***程序2 SET TALK OFF SET TALK OFF USE student USE student ACCEPT 请输入姓名: TO mname ACCEPT 请输入姓名: TO mname LOCATE FOR sno= mname LOCATE FOR sno= mname If found( ) If found( ) ? mname, “的有关信息如下:” ? mname,的有关信息如下: ? 学号:, sno ? 学号:, sno ? 性别:, sex ? 性别:, sex ELSE ENDI ? “对不起,库中没有此人” ? 对不起,库中没有此人 ENDI USE USE SET TALK ON SET TALK ON RETU RETU 【例5.20】判断某年是不是闰年。 闰年条件:年份能被400整除,或者年份能被4整除但不能被100整除。 SET TALK OFF INPUT 请输入年份: TO year IF ELSE ENDIF SET TALK ON RETU 3、IF语句的嵌套: IF分支中使用IF语句。 【例5.21】输入一个字符,判断它属于字母、数字、特殊符号中哪一类。 SET TALK OFF ACCEPT 请输入一个字符: TO ch IF UPPER(ch)=Z .AND. UPPER(ch)=A
文档评论(0)