有哪些信誉好的足球投注网站- 1、本文档共5页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
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制定买笔的方案。 * *
文档评论（0）