Pascal讲授课件4—1

①数值数据比较时，是按照数值的大小来进行的。例如：9<>10，其值 为true；2+3<4，其值为false；
②其它类型比较时，是按照序号来进行的。例如：‘a’>’b’，其值为 false；true>false，其值为true；
③实数在内存中的存储存在有误差，理论上相等的两个数，用计算机判断 时却并不一定相等。所以一般地，在对两个实数（如a，b）作是否相 等的比较时，写成：Abs(a-b)<1E-6或小于一个其它足够小的数。 只要小于此数，就认为两数足够地接近，近似地认为两数相等。
句执行后变量m的值为true，变量n的值为false。
二、布尔表达式
1、简单布尔表达式（关系表达式） 由一个“关系运算符”将两个数值型（或字符型或布尔型）数据联结起来的
式子。 常用的关系运算符有六个：<，<=，>，>=，=，<>。
说明：关系运算符的两侧可以是常量、变量或表达式。但一般应使用同类 型的数据。
信息学竞赛辅导PASCAL语言基础
第四章 分支结构程序设计 第1课
康杰中学信息技术教研组 赵辉
QQ 346713726
本节内容
1 布尔常量与布尔变量 2 布尔表达式 3 if语句 4 分支结构应用举例
一、布尔常量
1、Free Pascal语言中布尔常量也称为逻辑常量。只有两 个：true和false，其中true为真，false为假。
面积 s(s a)(s b)(s c)
四、分支结构应用举例
program p4_5;
var a,b,c,s,area:real;
begin
readln(a,b,c);
if (a+b>c)and(b+c>a)and(a+c>b)
then
begin
s:=(a+b+c)/2;
area:=sqrt(s*(s-a)*(s-b)*(s-c));
布尔表达式。 And 逻辑与。它是个“双目运算符”，它的前后都应有布尔型数据，如
a And b ，只有当And前后的布尔值都为“真”时，逻辑表达式的 值才为真。 Or 逻辑或。它也是个“双目运算符”，它的前后都应有布尔型数据，如 a Or b ，当Or前后的布尔值有一个为“真”时，逻辑表达式的值就 为真。 Not 逻辑非。它是个“单目运算符”，它的前面不应有布尔型数据，只 在后面有，如not a ，其作用是改变它后面布尔型数据的逻辑值： Not true 结果为false； Not false 结果为true；
其中If、Then、Else是Pascal中的保留字，
“条件”常用布尔值或布尔表达式来表示。
Байду номын сангаас2、语意：
If语句的执行过程：先判断条件，当条件为真
时，则执行Then后面的语句1，若条件为
假时，则执行Else后面的语句2。
三、IF语句
另一种格式： If语句中的Else及其子句也是可以省略的，格式如
下： If 条件 Then 语句1； 这种格式的执行过程也是先判断条件，当条件为真
四、分支结构应用举例
【例4-5】输入三角形的三条边长，求三角形的面积。 样例：输入 3 4 5
输出 6.00 【算法分析】对任何程序来说都必须保证数据的正确性，避
免在输入数据有错时而得到错误的结果，这通常被称为程 序的健壮性。由于不是任意的三条线段都能构成三角形， 因此必须先判断构成三角形的充要条件是否满足。 这些条件是：任意两边之和要大于第三边，用数学公式表示 为：a+b>c，b+c>a，a+c>b都要同时成立。 如果条件成立，则可以利用海伦公式来求三角形的面积，并 输出；海伦公式为：s=(a+b+c)/2，
算法：①输入所购物品的价格； ②依据上公式，利用if语句分情况进行计算； ③输出实际所付款数；
四、分支结构应用举例
program p4_4; var m,n:real; begin
readln(m); if m<=100
then n:=0.9*m else n:=0.9*100+0.7*(m-100); writeln(n:0:2); end.
二、布尔表达式
a
b
Not a
Not b a And b a Or b
T
T
F
F
T
T
T
F
F
T
F
T
F
T
T
F
F
T
F
F
T
T
F
F
使用布尔运算符时要注意： ①布尔运算的运算对象是布尔型数据，它的结果为逻辑值true或false。 ②布尔运算符的运算次序为：Not→And→Or ③如果一个布尔表达式中既包括布尔运算符，又包括关系运算符和算术 运算符，则它们的运算次序为： 括号→函数→Not→*、/、div、mod、And→+、-、Or→关系运算符 所以在进行布尔运算时，如果操作数本身是一个布尔表达式，则必须用 括号括起来，否则会造成逻辑上与原意不符。
then writeln(‘yes’); if a mod 2<>0
then writeln(‘no’); end.
①读入这个数a；
②判断它是不是偶数，输出相应信息， 其中If语句的条件为“a mod 2=0”；
四、分支结构应用举例
【例4-4】节日期间某超市推出购物优惠活动。所购物品不超过100元 时，按九折付款，超过100元时，超过部分按七折付款。要求：输入 所购物品的价格，输出实际所付款数。
时，则执行Then后面的语句1，但若条件为假时， 就什么也不做，If语句直接结束。
四、分支结构应用举例
【例4-2】判断一个数是不是偶数。 如果是，则输出“yes”，否则输 出“no”。
【样例输入】 3 【样例输出】 no
program p4_2; var a:integer; begin
readln(a); if a mod 2=0
then writeln(‘yes’) else writeln(‘no’); end.
【算法分析】
program p4_22;
①读入这个数a；
var a:integer; begin
②判断它是不是偶数，输出相应信息， readln(a);
if not odd(a)
其中If语句的条件为“a mod
then writeln(‘yes’)
2=0”；
else writeln(‘no’); end.
四、分支结构应用举例
【例4-2】判断一个数是不是偶数。 如果是，则输出“yes”，否则输 出“no”。
【样例输入】 3 【样例输出】 no 【算法分析】
program p4_3; var a:integer; begin
readln(a); if a mod 2=0
【样例输入】200.00 【样例输出】160.00 【算法分析】打折活动是大家在购物中经常遇到的，本例中所付款数分
两种情况计算，它依据的条件就是看物品价格是否超过100。现假设 所购物品的价格用m表示，则所付款数n的计算公式为：
n

0.9 0.9
m 100

0.7

(m
100)
(m 100) (m 100)
x=6； m：=odd（3）； writeln(m，x<1)； 语句的执行结果为： true false 。
三、IF语句
1、语法（一般格式）：
If 条件
Then 语句1 Else 语句2 ；
语句1后面没有 分号分隔符
If a > b then writeln(a) else writeln(b) ;
2、布尔型数据虽然只有两个，但也是有序的。 Free Pascal语言中规定false的序号为0，true的序号 为1，所以像Ord、Pred、Succ等这一类顺序型函数对 它都是适用的：
False<true； Ord(false)=0； Ord(true)=1； Pred(true)=false； Succ(false)=true； 但Pred(false)和Succ(true)将会出错。
writeln(area:0:3);
end
此处不能有分号
else
writeln('input data error!');
readln;
end.
复合语句的一般形式是：
begin 语句1； 语句2： …… 语句n
end；
本节内容
1 布尔常量与布尔变量 2 布尔表达式 3 if语句
二、布尔表达式
布尔型数据的输入、输出
1、输入： 在Free Pascal语言中，只能通过赋值语句将一个布尔 值或布尔表达式赋给一个布尔型变量，而不能通过输入语 句read或readln从外部设备向计算机输入一个布尔值。
2、输出： 将布尔型数据输出时，可以通过write或writeln语句完 成。例如：已定义x是一个整型变量，m是一个布尔型变 量，若有语句：
思考：如果x，y，z都是整型数，若想表达x大于y并且y大于z时，能否写 成“x>y>z”?为什么？
二、布尔表达式
2、布尔表达式（逻辑表达式） 布尔运算符也称逻辑运算符，在Free Pascal语言中有三个：Not（逻
辑非），And（逻辑与），Or（逻辑或）。 用逻辑运算符将布尔型数据联结起来的式子，就称为逻辑表达式，也称
一、布尔变量
定义格式： Var
m，n：boolean； boolean是布尔类型标识符。 这样在Var区中就定义了两个布尔型变量m和n，它们只能用来表示逻辑