第三章 选择结构程序设计

第三章选择结构程序设计选择结构例1：输入一个整数a,判断是否为偶数。（是输出〃yes〃否则输出〃no〃）。输入a;判断a值； amod2=0yes否则显示no根据判断结果显示不同的值。IF语句1、格式1、 IFV布尔表达式〉THEN语句；II、IFV布尔表达式〉THEN语句1ELSE语句2；（注意II型IF语句中语句1后无〃；〃号）2、 功能I、 执行IF语句时，先计算V布尔表达式〉的值，若为TRUE则执行语句，否则不执行任何操作。II、 执行IF语句时，先计算V布尔表达式〉的值，若为TRUE则执行语句1,否则执行语句2；Pascal程序:Programex4_2;Vara:integer;BeginWrite('a=');readln(a);If(amod2=0)thenwriteln('yes')Elsewriteln('no');Readln;End.例2：超市里卖电池，每个电池8角钱，若数量超过10个，则可打75折。输入X;判断X值；根据判断结果选择符合条件的那种方法计算Y值；输出计算结果。Programex2_2;VarNum:integer;Price，Total:real;BeginWrite('Num=');readln(Num);Price=0.8;

IfNum>10thenPrice:=Price*0.75;Total:=Num*Price;Writeln（'Total=',Total:0:2）;Readln;End.例3：读入三个不同的数，求出最大值。例4：读入三个不同的数，编程按由小到大的顺序排列打印出来。ProgranmExam2_4；Vara，b，c，t:Real；BeginWrite（'Inputa，Vara，b，c，t:Real；BeginWrite（'Inputa，b，c='）；Readln（a，b，c）；ifa>bthenbegint:=a；a:=b；b:=tend；ifa>cthenbegint:=a；a:=c；c:=tend；ifb>cthenbegint:=b；b:=c；c:=tend；Writeln（'a，b，c:'，a:6，｛复合语句｝｛交换a，b｝复合语句｝｛交换a，c｝｛复合语句｝｛交换b，c｝b:6，c:6）；ReadlnEnd.复合语句if语句规定它的真项或假项位置上只能是一个基本语句，如果需要写一组语句，就应当使用复合语句。本程序中有三处用到复合语句。每个复合语句的范围是从Begin开始到与它相对应的End为止。复合语句的地位和一个基本语句相同；其一般格式为:Begin<语句1>;<语句2>;•••<语句n>End;复合IF语句Else二义性问题IF<条件1>THENIF<条件2>THEN<语句1>ELSE<语句2>例5：输入某学生成绩，根据成绩的好坏输出等级。如果成绩在90分以上，输出A，如果成绩在60到90之间，输出B如果不足60分，输出C。ProgranmExam2_5；Varscore:Real；BeginReadln(score)；ifscore>=90thenwriteln(‘A‘)elseifscore>=60thenwriteln(‘B')elsewriteln(‘C');end.注：请仔细阅读pascal教程第38--51页，调试书本上的例题3.1,3.2,3.3,3.4再完成以下任务:1、 对一批货物征收税金(长整型)。价格在1万元及以上的货物征税5%，在5000元及以上，1万元以下的货物征税3%，在1000元及以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。2、 输入3个整数，将其中最小的数输出。3、 某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。4、 输入一个三位数的整数，将数字位置重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。例6：对某产品征收税金，在产值1万元以上征收税5%；在1万元以下但在5000元以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。编程计算该产品的收税金额。Case语句一般格式为:Case表达式of情况常量表1:语句1；情况常量表2:语句2；情况常量表n:语句nend；执行情况语句时，先计算Case后面表达式的值，然后根据该值在情况常量表中的“对应安排”，选择其对应的语句执行，执行完所选择语句后就结束Case语句；如果常量表中没有一个与表达式值对应的语句，则什么也不做就结束本Case语句。Case语句的另一种应用格式为：Case表达式of情况常量表1:语句1；情况常量表2:语句2；情况常量表n:语句nelse语句n+1end；这种格式的前面部分是相同的，所不同的是：如果常量表中没有一个与表达式值对应的语句，则执行与else对应的语句，然后结束Case语句。P=0:tax=0(x<1000)P=1，2，3，4:tax=x*0.02(1000<=x<5000)P=5，6，7，8，9:tax=x*0.03(5000<X<=10000)P=10:tax=x*0.05(x>10000)用P表示情况常量各值，以题意中每1000元为情况tax用P表示情况常量各值，以题意中每1000元为情况tax为税金，这里的P是“情况”值，用产值X除以1000的整数值作为P,如果P>10也归入P=10的情况。Pascal语言用P二trunc(x/1000)取整计算，Pascal程序:ProgramExam22；Varx，p:integer；Tax:real；BeginWrite('Number=')；readln(x)；P:=trunc(x/1000)；ifP>9thenP:=10；CasePof0 :tax:=0；1,2,3,4 :tax:=x*0.25,6,7,8,9 :tax:=x*0.310 :tax:=x*0.5end；Writeln（'tt='，tt:5:2）；ReadlnEnd.上机实践：1.调试书本上的例题3.5再完成以下任务:2•某全自动加油站a,b,c三种汽油的单价（元/kg）分别是1.50、1.35和1.18，也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。编一个程序，用户输入加油量、汽油品种和服务类型f-自动，m-自己，e-协助），然后计算应付款。打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能被100整除;或者能被400整除的整数年份。B、利用MOD运算可以判断一个数能否被另一个数整