第二章 选择结构

第二章选择结构
程序的三种基本结构是：顺序结构，选择结构，循环结构。

顺序结构固然简单，按照程序中语句的书写顺序执行，但大多数情况是，语句执行的顺序要根据某些表达式的值选择哪些语句执行哪些语句不执行，这种结构称为选择结构。

Pascal语言中，实现选择结构的语句有if语句（条件语句）和case语句（情况语句）。

本章主要介绍这两种语句在选择结构中的使用方法。

第一节 if语句
一、if语句的两种格式
if语句又称如果语句，它有两种格式：
格式一：
if 条件表达式then 语句；
格式二：
if 条件表达式 then 语句1 else 语句2；
功能：
（1）格式一if语句的执行过程是：若条件表达式的值为TRUE，则执行then后面的语句；当条件表达式的值为FALSE时不执行then后面的语句，而是去执行if语句下面的语句。

（2）格式二if语句的执行过程是：若条件表达式的值为TRUE，则执行then后面的语句1；当条件表达式的值为FALSE时，执行else后面的语句2。

特别注意：格式二中else前面的语句1最后不能有分号，因为分号是两个语句之间的分隔符，而else并非语句，如果在该处添了分号，则在编译的时候就会认为if 语句到此结束，而把else当做另一句的开头，输出错误信息。

二、复合语句
在程序中，一般把一条语句称为简单语句。

在if语句中，跟在then或else后面的语句可能不止一个，这时就要用到复合语句。

复合语句是一个以begin开始，以end结束的语句。

在begin和end之间包含若干个简单语句。

复合语句的一般形式如下：
begin
语句1;
语句2;
……
语句n;
end;
在复合语句中，begin与end起到括号的作用。

在if语句中，如果跟在then或else 后面的语句是多个简单语句，则必须把它们写成复合语句。

一个复合语句从外部看，作用相当于一个语句。

三、if语句应用举例
例2-1 求三角形面积。

【问题描述】
输入三角形的三边a,b,c(边长不超过100),求三角形的面积。

【输入】正整数a,b,c。

【输出】三角形的面积，小数点后保留2位有效数字。

【样例输入】3 4 5
【样例输出】6.00
问题分析：
例1-8中，输入是保证三边a,b,c能构成三角形的情况，如果没有这个条件说明，则需要判断a,b,c是否能构成三角形，即是否满足任意两边之和大于第三边。

参考程序：
var
a,b,c:integer;
p,s:real;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:0:2);
end
else writeln('error!');
end.
注意：程序中then后面的是复合语句；else前面的end后面不能加分号。

例2-2 奇偶判断。

【问题描述】
输入一个正整数n，判断它的奇偶性（偶数输出“yes”，奇数输出“no”）。

【输入】正整数n(n<100 000)。

【输出】偶数输出“yes”，奇数输出“no”。

【样例输入】121
【样例输出】no
问题分析：
一个整数n，如果能被2整除则是偶数，否则为奇数。

参考程序1：
var n:integer;
begin
readln(n);
if n mod 2 = 0 then writeln('yes');
if n mod 2 <> 0 then writeln('no');
end.
参考程序2：
var n:integer;
begin
readln(n);
if n mod 2 = 0 then writeln('yes') else writeln('no');
end.
例2-3 判断闰年。

【问题描述】
已知某一年份，判断该年份是否为闰年(是则输出“yes ”,否则输出“no ”)。

【输入】某一年份。

【输出】根据判断结果输出yes 或者no 。

问题解析：
判断闰年的条件：
（1）年份能被4整除，但不能被100整除；
（2）年份能被400整除。

上述两个条件中，只要有一个条件满足，则确定该年为闰年。

由此得出判断闰年的布尔表达式：((年份 mod 4=0)and(年份 mod 100<>0))or(年份 mod 400=0)。

参考程序：
var
y ：integer ； begin
readln(y)； //读入年份
if((y mod 4=0)and(y mod 100<>0))or(y mod 400=0) //闰年判断
then writeln('yes')
else writeln('no');
end.
例2-4 分段函数。

【问题描述】
计算下列函数，输入x ，输出y 的值(精确到小数点后两位小数)。

⎪⎩⎪⎨⎧>+=-<+=)
0(6)0(1
)0(102x x x x x y 【输入】x
【输出】y
【样例输入】9
【样例输出】9.00
问题分析：
根据变量的取值范围，各有不同的计算公式，这是一个分段函数。

该函数本身具有选择结构的特点。

参考程序1：
var
x:real;
begin
readln(x);
if x<0 then writeln(2*x+10:0:2);
if x=0 then writeln(-1);
if x>0 then writeln(sqrt(x)+6:0:2);
end.
参考程序2：
var
x:real;
begin
readln(x);
if x<0 then writeln(2*x+10:0:2)
else
if x=0 then writeln(-1)
else writeln(sqrt(x)+6:0:2); //x>0
end.
第二节 case语句
上一节我们学习了if语句，它可以解决两个分支的选择结构，但是当分支比较多时，需要用多路if语句或者if嵌套来实现，这时程序就会比较复杂，并且不直观。

Pascal提供了一种多分支选择结构case语句，当多分支选择的各个条件是由同一个表达式的不同结果值决定时，使用case语句显得简单直观。

一、case语句的格式
case语句又称为情况语句，一般格式如下：
case <表达式> of
<值表1>:语句1；
<值表2>:语句2；
……
<值表n>:语句n；
else 语句n+1；//可选项
end；
功能：
（1）case后面表达式的值必须是有序类型（如整型、字符型等），不能是实型。

（2）值表是一些由逗号隔开的常数；表达式的每个值只能在值表中出现一次。

（3）如果表达式的值在某个值表i中出现，则程序只执行对应表值i的语句i，然后就执行与case相对应的end后面的语句。

（4）如果表达式的值没出现在值表中，则退出case语句，执行end后面的语句（若有else，则执行它后面的语句n+1）。

二、case语句的应用举例
例2-5 已知年份和月份，判断这一年的这个月份有几天。

【输入】年份和月份，中间用空格隔开。

【输出】这个月的天数。

【样例输入】2010 2
【样例输出】28
问题分析：
每年的1,3,5,7,8,10,12月份为31天；4,6,9,11月份为30天；闰年2月份有29天，其他年份2月份为28天。

参考程序:
var
y,m,d:integer;
begin
read(y,m);
case m of
1,3,5,7,8,10,12:d:=31;
4,6,9,11:d:=30;
2:if ((y mod 4=0) and (y mod 100<>0)) or (y mod 400=0)then d:=29 else d:=28;
end;
writeln(d);
end.。