第三章 选择结构的程序设计（pascal）.ppt

第三章 选择结构 第一节 IF语句 第二节 IF语句的嵌套 第三节 情况语句（CASE语句） PASCAL中的布尔（逻辑）类型 在前面，我们学习了整型(integer)与实型（real）。其中integer型数据取值范围为 -32768到32767之间所有整数。而real型数据取值范围为其绝对值在10-38到1038之间的所有实数。它们都是数值型的（即值都为数）。布尔型（Boolean）是一种数据的类型，这种类型只有两种值，即“真”与“假”。 布尔类型是顺序类型 Program ex3_2; Var a:integer; Begin Write(‘a=’); readln(a); If (a mod 2 =0) then writeln(‘yes’) else writeln(‘no’); Readln; End. 例3.3 联单华榕超市里卖电池,每个电池８角钱，若数量超过10个，则可打7.5折。 Program ex3_3; Var Num:integer; Price,Total:real; Begin Write(‘Num=’); readln(Num); Price:=0.8; //正常情况（购买数量小于等于10） If Num10 then Price:=Price*0.75; //若超过10,则价格打7.5折 Total:=Num*Price; Writeln(‘Total=’,Total:0:2); //保留二位小数 Readln; End. 【上机练习3.1】 1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Cant。(组成三角形的条件为：任意两边之和大于第三边) 3、输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。 4、输入一个整数，打印出它是奇数还是偶数。 5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100?套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。 6、从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”。 7、判断两个数a，b，输出较大数的平方值。 8、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？ 第二节 IF语句的嵌套 【上机练习3.2】 1．输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90分以上，输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。 2．输入三角形的三边，判断它是否是直角三角形。? 3．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。 4．对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。 5．输入三角形的三个边，判断它是何类型的三角形（等边DB？等腰DY？一般YB？）。 6．输入三个数，按由大到小顺序打印出来。 7．将字母A、B、C 、D或a、b、c、d对应输出1、2、3、4，其余的字符输出5。 8．输入三个数a，b，c，打印出最大者． 第三节 情况语句（CASE语句） 例3.10 判断2006年,每个月份的天数。 case语句的执行过程 先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执行完语句后，跳到case语句的末尾end处。 说明 　　①情况表达式必须是顺序类型的； 　　②情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型； 　　③情况常量出现的次序可以是任意的； 　　④同一情况常量不能在同一个case语句中出现两次或两次以上； 　　⑤每个分语句前可以有一个或若干个用逗号隔开的情况常量； 　　⑥如果情况表达式的值不落在情况