PASCAL-CASE语句教程+练习.pptVIP

下载本文档

5
0
约1.39千字
约 5页
2017-05-16 发布于重庆
举报
版权申诉

PASCAL-CASE语句教程+练习.ppt

1、本文档共5页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

PASCAL-CASE语句教程练习

CASE 语句的使用当程序中的分支较多的时候，如果我们还是使用IF语句来实现，程序就会十分的繁杂，但是如果分支之间是由同一个表达式的不同结果划分的话，这时候就可以用CASE语句，使得程序简单化！ Case 语句的格式 CASE 表达式 OF 情况1：语句 1；情况1：语句 1； …… 情况n：语句 n；（ELSE 语句 n+1；） END； [例2.5]输入数字0~6，输出星期几（0代表星期天，1~6代表星期一~星期天） Program exp25; Var x:integer; Begin Readln(x); Case x of 0:writeln(Sunday); 1:writeln(Monday) ; 2:writeln(Tuesday); 3:writeln(Wednesday); 4:writeln(Thursday); 5:writeln(Friday); 6:writeln(Saturday); End; Readln; End. [例2.6]根据x的值，求函数y的值 x+1 (0=x100) y= x-1 (100≤x200) -1 else Program exp26; var x,y:real; begin writeln(‘input x:’);readln(x); case trunc(x/100) of {trunc() 截尾函数，去掉小数部分} 0: y:=x+1; 1: y:=x-1; else y:=-1; end; {end of case} writeln(‘x=’,x:8:2,’y=’,y:8:2); end. {end of program} [练2.6]输入1~12，输出代表的月份（英文单词最好，或者是英文各月份的首3字幕，或者用拼音） [练2.7]输入年月，输出这个月有多少天。 [练2.8]将百分制的成绩按规则评价规则：60以下 D 60~69 C 70~89 B 90~100 A [附2.3]将[练2.8]规则修改如下规则：60以下 D 60~74 C 75~89 B 90~100 A [附2.4]期末，班长小Q决定将剩余班费x元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有3种钢笔，他们的单价为6元、5元、4元。小Q想买尽量多的笔，同时他又不想有剩余钱，请你编程，帮小Q制定买笔的方案。 * *