《四 简单的分支结构程序设计》由会员分享，可在线阅读，更多相关《四 简单的分支结构程序设计（5页珍藏版）》请在金锄头文库上搜索。
1、四 简单的分支结构程序设计 作者：ckb日期：2008 年 01 月 14 日来源：本站原创 浏览：764 次-核心提示：在现实生活中，我们每天 在现实生活中，我们每天都要进行根据实际情况进行选择。例如，原打算明天去公园，但如果明天天气不好，将留在家里看电视。所以人也会根据条件进行行为的选择。计算机也会根据不同情况作出各种逻辑判断，进行一定的选择。在这课与下一课中，我们将会发现，我们是通过选择结构语句来实现程序的逻辑判断功能。一、PASCAL 中的布尔（逻辑）类型在前面，我们学习了整型(integer)与实型（real） 。其中 integer 型数据取值范围为-32768到 32767 之间
2、所有整数。而 real 型数据取值范围为其绝对值在 10-38 到 1038 之间的所有实数。它们都是数值型的（即值都为数） 。布尔型（Boolean）是一种数据的类型，这种类型只有两种值，即真 与假 。1、 布尔常量在 Pascal 语言中 真用 ture 表示，假 用 False 表示。所以布尔类型只有 TRUE 与FALSE 两个常量。2、 布尔变量（BOOLEAN）如果我们将某些变量说明成布尔型，那么这些变量就是布尔变量，它们只能用于存放布尔值（ture 或 false） 。例如，VAR A，B：BOOLEAN ；3、 布尔类型是顺序类型由于这种类型只有两个常量，Pascal 语言中规
3、定 ture 的序号为 1，false 的序号为 0。若某种类型的常量是有限的，那么这种类型的常量通常都有一个序号，我们称这种类型为顺序类型。如前面我们学过的整型（integer ） ，以及后面要学到的字符型（ char）都是顺序类型。4、 布尔类型的输入与输出a）输出VAR A，B：BOOLEAN ；BEGINA：=TRUE；B：=FALSE；WRITELN（A，B） ；END.TRUEFALSEb）布尔类型变量不能直接用读语句输入布尔类型变量不能通过读语句给它们提供值。事实上，我们可以通过间接方式对布尔变量进行值的输入。例如，以下程序是错误的：var a,b,c:Boolean;begin
4、readln(a,b,c); 错误语句writeln(a,b,c);end.二、关系表达式与布尔表达式1、什么是关系表达式用小括号、= 、将两个算术表达式连接起来的式子就称为关系表达式（比较式） 。如：3+78,x+y6 是错的，故它的值为 FALSE。同样，45=32 是对的,故该表达式的值为 true。关系表达式用于表示一个命题。如：为偶数 可表示为： mod 2=0。为正数可表示为：n0。3.布尔运算及布尔表达式为了表示更复杂的命题，Pascal 还引入三种逻辑运算符：not、and、or。它们分别相当于数学上的非 、且 和或的意义。这三个运算符的运算对象为布尔量，其中 not 为单目运
5、算，只有一个运算对象，and与 or 为双目运算，有两个运算对象。它们的运算真值表如下：a b Not a a and b a or b a xor b false false true false false false false true true false ture true true false false false true true true true false true true false 于是，对于一个关系表达式，或多个关系表达式用布尔运算符连接起来的式子就称为布尔表达式。布尔表达式的值也为布尔值。如果一个表达式里出现两个或两个以上的运算符, 则必须规定它们的运算次序
6、。pascal规定：表达式中相同优先级的运算符,按从左到右顺序计算;表达式中不同优先级的运算符,按从高到低顺序计算;括号优先级最高,从内到外逐层降低;对于一个复杂的表达式可能同时包含算术运算、关系运算和逻辑运算以及函数运算。运算的优先顺序为：括号 函数 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)。三、简单的 IF 语句、格式、IF 布尔表达式THEN 语句；、IF 布尔表达
7、式THEN 语句 ELSE 语句；（注意型 IF 语句中语句后无； 号）、功能、执行 IF 语句时，先计算布尔表达式的值，若为 TRUE 则执行语句，否则不执行任何操作。、执行 IF 语句时，先计算布尔表达式的值，若为 TRUE 则执行语句，否则执行语句；、示例）例.输入一个整数，判断是否为偶数。 （是输出 否则输出） 。Program ex4_2;Var a:integer;Begin Write(a=);readln(a);If (a mod 2 =0)then writeln(yes)Else writeln(no);Readln;End.2）华榕超市里卖电池,每个电池角钱，若数量超过个
8、，则可打 75 折。Program ex4_3;Var Num:integer;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.3)编写一与电脑猜 红或黑 的游戏。分析：用代表红，代表黑。先由计算机先出答案，然后再由人猜，猜对输出YOU WIN否则输出YOU LOST。为了模拟猜红或黑 的随意性，程序中需要用到随机函数 random(n)。函数是什么呢，例如大家
9、都知道|-2|=2，|58|=58 ，那么|x|=?。如果我们用 y 表示|x|，那么 .这里 y=|x|就是一个函数，也就是说函数是一个关于一个或多个自变量（未知量，如上例中的 x）的运算结果。在 pascal 语言中，系统提供了许多内部函数，其中包括|x|函数，当然它用 abs(x)表示。我们如果要求 x2-y 的绝对值，可以调用内部函数 abs(x*x-y)即可求得。Random(n)也是一个内部函数，调用它能得到 0n-1 之间的整数（但它不确定的，或说是随机的） 。同时由于函数是一个运算结果，所以函数的调用只能出现在表达式中。Program ex4_3;Uses crt;Var Computer,People:integer;BeginRandomize;Computer:=random(2);Write(You guess（0Red 1-Black）:);readln(People);If People=Computer then writeln(YOU WIN)Else writeln(YOU LOST);Readln;End.作业：.某车站行李托运收费标准是：10 公斤或 10 公斤以下，收费 2.5 元，超过 10 公斤的行李，按每超过 1 公斤增加 1.5 元进行收费。 试编一程序，输入行李的重量，算出托运费。
