1、简单的分支结构程序设计(一)2022-10-5前前 言言l在现实生活中，我们每天都要进行根据实际情况进行选择。例如，原打算明天去公园，但如果明天天气不好，将留在家里看电视。所以人也会根据条件进行行为的选择。计算计算机也会根据不同情况作出各种逻辑判断，进机也会根据不同情况作出各种逻辑判断，进行一定的选择行一定的选择。在这节课中，我们将会发现，我们是通过语句来实现程序的逻辑判断功能。2022-10-5分支结构的特点分支结构的特点 分支结构的特点是：分支结构的特点是：根据给定的条件判断在两条甚至更多的可能路径中选择一条，两条路径分别做不同的处理，即如果条件成立那么执行A语句，不成立则执行B语句。YN
2、ABX:=A-BX:=B-AX:=|A-B|PROGRAM A_B;VAR X,A,B:REAL;BEGINREADLN(A,B);IF A=B THEN X:=A-B ELSE X:=B-A;WRITE(THEN ANSWER IS,X);RND.2022-10-5一、一、PASCAL中的布尔（逻辑）类型中的布尔（逻辑）类型o在前面，我们学习了整型(integer)与实型（real）。其中integer型数据取值范围为-32768到32767之间所有整数。而real型数据取值范围为其绝对值在10E-38到10E+38之间的所有实数。它们都是数值型的（即值都为数）。在Pascal语言中真用tu
3、re表示，假用False表示。所以布尔类型只有TRUE与FALSE两个常量。如果我们将某些变量说明成布尔型，那么这些变量就是布尔变量，它们只能用于存放布尔值（ture或false）。例如，VAR A，B：BOOLEAN；2022-10-5布尔类型布尔类型由于这种类型只有两个常量，Pascal语言中规定ture的序号为1，false的序号为0。若某种类型的常量是有限的，那么这种类型的常量通常都有一个序号，我们称这种类型为顺序类型。如前面我们学过的整型（integer），以及后面要学到的字符型（char）都是顺序类型。VAR A，B：BOOLEAN；BEGINA：=TRUE；B：=FALSE；WR
4、ITELN（A，B）；END.输出结果输出结果TRUE FALSEo b）布尔类型变量不能直接用读语句输入布尔类型变量不能直接用读语句输入,只能用赋值语句只能用赋值语句.2022-10-5二、关系表达式与布尔表达式二、关系表达式与布尔表达式 o1、用小括号、=、=、=、将两个连接起来的式子就称为关系表达式（比较式）。如：3+78,x+y10,2*76是错的，故它的值为FALSE。同样，45=32是对的,故该表达式的值为true。如：为偶数可表示为：mod 2=0。为正数可表示为：n0。2022-10-5二、关系表达式与布尔表达式二、关系表达式与布尔表达式o3.布尔运算及布尔表达式为了表示更复杂
5、的命题，Pascal还引入三种逻辑运算符：not、and、or。它们分别相当于数学上的非、且和或的意义。这三个运算符的运算对象为布尔量，其中not为单目运算，只有一个运算对象，and与or为双目运算，有两个运算对象。它们的运算真值表如下：2022-10-5二、关系表达式与布尔表达式二、关系表达式与布尔表达式o布尔表达式的值也为布尔值。如果一个表达式里出现两个或两个以上的运算符,则必须规定它们的运算次序。pascal规定：表达式中相同优先级的运算符,按从左到右顺序计算;表达式中不同优先级的运算符,按从高到低顺序计算;括号优先级最高,从内到外逐层降低;对于一个复杂的表达式可能同时包含算术运算、关系
6、运算和逻辑运算以及函数运算。o运算的优先顺序为：括号运算的优先顺序为：括号、函数、函数、not、/、div、mod、and、+、or、xor关系运算。关系运算。对于复杂的命题，我们可以用布尔表达式来表示。例如，命题：m,n都是偶数或都是奇数可表示为(m mod 2=0)and(n mod 2=0)or(m mod 2=1)and(n mod 2=1)。2022-10-5习题一1)若若 A=ture,B=false ,x=8,y=9,m=10,n=35求下列布尔表达式的值求下列布尔表达式的值A and not(m n)and(xy-m)or(A or b)Not A and(nm)or(x20)
7、AND(A=10)AND(A100)(YEAR MOD 4=0)AND(YEAR MOD 1000)OR(YEAR MOD 400=0)2022-10-5复合语句复合语句o 下面我们看看复合语句的概念：o一般形式为：BEGIN 语句1；语句2；.语句N；END；注意注意：PASCAL把复合语句视作一个语句。复合语句可用在PASCAL允许使用普通语句的任何地方。下面让我们看几个例子：2022-10-5三、简单的三、简单的IF语句语句 o、格式、IF 布尔表达式THEN 语句；、IF 布尔表达式THEN 语句 ELSE 语句；（注意（注意型型IF语句中语句后无语句中语句后无“；”号）号）、功能、执
8、行IF语句时，先计算布尔表达式的值，若为TRUE则执行语句，否则不执行任何操作。、执行IF语句时，先计算布尔表达式的值，若为TRUE则执行语句，否则执行语句；o III、在if语句中，跟在then或else后的语句可能不止一个，这时要用到复合语句。2022-10-5、实例、实例1o）例.输入一个整数，判断是否为偶数。（是输出否则输出）。Program ex4_2;Var a:integer;Begin Write(a=);readln(a);If then writeln(yes)Else writeln(no);Readln;End.2022-10-5实例实例2o2）华榕超市里卖电池,每个电
9、池角钱，若数量超过个，则可打75折。Program ex4_3;Var Num:integer;o Price,Total:real;BeginWrite(Num=);readln(Num);Price:=0.8;If Num10 then Price:=Price*0.75;Total:=Num*Price;Writeln(Total=,Total:0:2);Readln;End.2022-10-5给出三角形的三个边长A,B,C,求三角形面积.program exec2(input,output);var a,b,c,s,area:real;begin readln(a,b,c);if(a+
10、bc)and(b+ca)and(c+ab)then begin 复合语句一s:=(a+b+c)/2;area:=sqrt(s*(s-a)*(s-b)*(s-c);/sqrt函数的功能是平方根writeln(area=,area:6:2);end 复合语句一结束else beginwriteln(a:6:2,b:6:2,c:6:2);writeln(input data error);end;end.2022-10-5习题一o铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。2022-10-5习题二习题二
11、例2:判断一年是否是闰年o提示:闰年为年数是4的倍数但不是100的倍数或者是400的倍数2022-10-5习题三输入一个小于10000的数字，判断它的位数例如：输入 899 输出3输入 7777 输出42022-10-54)编写一与电脑猜编写一与电脑猜红红或或黑黑的游戏的游戏。o分析：用代表红，代表黑。先由计算机先出答案，然后再由人猜，猜对输出YOU WIN否则输出YOU LOST。为了模拟猜红或黑的随意性，程序中需要用到随机函数random(n)。o函数是什么呢，例如大家都知道|-2|=2，|58|=58，那么|x|=?。如果我们用y表示|x|，那么.这里y=|x|就是一个函数，也就是说函数是一个关于一个或多个自变量（未知量，如上例中的x）的运算结果。在pascal语言中，系统提供了许多内部函数，其中包括|x|函数，当然它用abs(x)表示。我们如果要求x2-y的绝对值，可以调用内部函数abs(x*x-y)即可求得。Random(n)也是一个内部函数，调用它能得到0n-1之间的整数（但它不确定的，或说是随机的）。同时由于函数是一个运算结果，所以函数的调用只能出现在表达式中。o2022-10-5
