04第四课 简单的分支结构程 序设计.docVIP

第四课 简单的分支结构程序设计 一、PASCAL中的布尔（逻辑）类型(integer)与实型（real）。其中integer型数据取值范围为-32768到32767之间所有整数。而real型数据取值范围为其绝对值在10-38到1038之间的所有实数。它们都是数值型的（即值都为数）。布尔型（Boolean）是一种数据的类型，这种类型只有两种值，即真与假。1、 　　在Pascal语言中真用ture表示，假用False表示。所以布尔类型只有TRUE与FALSE两个常量。2、 BOOLEAN）ture或false）。VAR A，B：BOOLEAN；3、 　　由于这种类型只有两个常量，Pascal语言中规定ture的序号为1，false的序号为0。若某种类型的常量是有限的，那么这种类型的常量通常都有一个序号，我们称这种类型为顺序类型。如前面我们学过的整型（integer），以及后面要学到的字符型（char）都是顺序类型。4、 　　a）输出VAR A，B：BOOLEAN；BEGIN　　　A：=TRUE；B：=FALSE；WRITELN（A，B）；END.　　TRUEFALSE　　b）布尔类型变量不能直接用读语句输入　　例如，以下程序是错误的：　　var a,b,c:Boolean;　　begin　　　readln(a,b,c); {错误语句}writeln(a,b,c);　　end. 二、关系表达式与布尔表达式　　1、什么是关系表达式、、=、=、=、　　如：3+78,x+y10,2*7=13等都是关系表达式。2、关系表达式的值对的或不对的（或者说，是真的或假的），即关系表达式的值为布尔值。表示该比较式两端式子的大小关系是否成立。如3+26是错的，故它的值为FALSE。同样，45=32是对的,故该表达式的值为true。ｍ为偶数可表示为：ｍ mod 2=0。ｎ为正数可表示为：n0。3.布尔运算及布尔表达式Pascal还引入三种逻辑运算符：not、and、or。它们分别相当于数学上的非、且和或的意义。not为单目运算，只有一个运算对象，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 　　如果一个表达式里出现两个或两个以上的运算符, 则必须规定它们的运算次序。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 ＜布尔表达式＞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）华榕超市里卖电池,每个电池８角钱，若数量超过１０个，则可打75折。Program ex4_3;　　　Var Num:integer;Price,Total:real;　　　Begin　　　　Write(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)。 |-2|=2，|58|=58，