PASCAL06-选择结构1.docVIP

选择结构的程序设计（一） 在日常生活中，我们经常遇到根据具体情况的不同而去做具体的事，比如：若星期天下雨，我就在家看书，否则我就去踢足球。我们可以画出这个语句的N-S图（见图1）： 图1 图2 在我们的程序设计过程中，我们也会经常遇到这种情况，即判断某一个条件是否成立，如果成立做一件事（执行一个/些语句），如果条件不成立就做另一件事（执行另外一个/些语句）。 比如：若A为正数，则打印A，否则打印-A。 我们也可以模仿上个例子画出这件事的N-S图（见图2）。 再如：如果XY，则交换X，Y的值，让学生完成。 要完成这些程序就要用到 选择结构 。 下面先学习一些选择结构的基础知识： 布尔（逻辑）常量和变量 布尔（逻辑型）常量：真（TRUE）、假（FALSE）； 也可：CONST T=TRUE；F=FALSE； 布尔变量：变量的类型为布尔型，即存放布尔型数值的变量； 定义：VAR A，B：BOOLEAN； A：=ODD（3）； 布尔型数据是顺序型数据：FALSE——0；TRUE——1， 可以使用函数ORD、PRED、SUCC； 关系表达式：比较大小 关系表达式是由一个关系运算符将两个相容（有序）类型的表达式联结起来的式子。 PASCAL中的运算符有6个： 、=、 、 =、 =、 ；举例判断真假。 数值型数据的比较按其大小、其它类型数据按照其序号大小进行比较。由于实型数据在计算机中是近似存储的，所以比较大小时不能直接比。如：0.666666等不等于0.666667呢？不一定，若要求误差在0.001范围内则等，若要求在0围内则不相等。此时，应改用下列式子判断X是否等于Y：ABS（X-Y）1 e –3 关系表达式的值是一个布尔量（TRUE、FALSE）。 布尔（逻辑）运算符 运算符：NOT（逻辑非）、AND（逻辑与）、OR（逻辑或） 设A、B为布尔型数据，则“真值表”如下： A B NOT A A AND B A OR B T T F T T T F F F T F T T F T F F T F F 关系（逻辑）表达式：用逻辑运算符连接起来的式子 设X为整数，则 表示： 正奇数：（X0） AND （ODD(X)） 1到10之间的整数：（X=1）AND （X=10） 大于100或小于10的整数：（X100）OR（X10） 运算符的运算次序（优先级） 从高到低如下： 括号（内层优先）——函数——NOT——*、/、DIV、MOD、AND——+、-、OR——关系（逻辑）运算符； 运算规律：先高级后低级，同级自左向右运算。 例子： TRUE AND NOT（1-1）值为TRUE； 设X=6，I=4，J=6，则： TRUE AND NOT（X5）AND （IJ+5）OR TRUE FALSE AND FALSE 值为TRUE。 ③设X=5（6），求以下表达式的值：（X+5）*ODD（X）+X DIV 2值为12（3）。 ④已知X，Y，Z均为1，求值： TRUE AND （X0） AND （Y0） OR （Z0）值为TRUE。 布尔变量的输入、输出： 输入：只能用赋值语句（A：=TRUE），不能用读语句。 输出：WRITELN（‘A=’，A）；则输出A=TRUE 么，如何用计算机语言完成以上的例子呢？下面我们就学习PASCAL中的条件语句。 选择语句：IF语句 1、格式：IF 条件表达式 THEN 语句1 { ELSE 语句2 }； 比如：①若A为正数，则打印A，否则打印-A： 语句如下：IF A 0 THEN WRITELN(A) ELSE WRITELN(-A)； 改用ABS函数做：WRITELN（ABS（A））。 ②若X=0，则输出X： 语句如下：IF X=0 THEN WRITELN（X）； ③学生练习：若X0,则求X的平方根，否则求X的平方。 例题：