信息学奥赛培训材料.doc

分支程序设计 一、IF语句的嵌套if语句中，如果then子句或else子句仍是一个if语句，?则称为if语句的嵌套。1　计算下列函数?Y=1?(x0)??????=0?(x=0)??????=-1(x0)?　　分析：根据输入的x值，先分成x0与x≤0两种情况，然后对于情况x≤0，再区分x是小于0，还是等于0。:　　program?ex;　　var　　　　x:real;　　　　y:integer;　　begin?　　　　wrtie(Input?x:);readln(x);　　　　if?x0　then?y:=1｛x0时，y的值为1｝else?｛x≤0时｝if?x=0　then?y:=0else?y:=-1;　　　　writeln(x=,x:6:2,y=,y);　　end.　　显然，以上的程序中，在then子句中嵌套了一个Ⅱ型if语句。当然程序也可以写成如下形式：　　program?ex;　　var　　　　x:real;y:integer;　　begin　　　wrtie(Input?x:);readln(x);　　　if?x=0　then?if?x0　then?y:=1else?y:=0　　　else?y=-1;　　　writeln(x=,x:6:2,y=,y);　　end.　　但是对于本题，下面的程序是不对的。　　y:=0;　　if?x=0　then?if?x0?then?y:=1　　else?y:=-1;　　明显，从此人的程序书写格式可以看出，他想让else与第一个if配对，而事实上，这是错的。因为pascal规定：else与它上面的距它最近的then配对,因此以上程序段的逻辑意义就与题义不符。esle与第一个then配对,应将程序段修改为：y:=0;?　　　　　　　　　　　　　　或者?y:=0;if?x=0?　　　　　　　　　　　　　　　　if?x=0then?if?x0?　　　　　　　　　　　　　　thenthen?y:=1?　　　　　　　　　　　　　　　beginelse?　　　　　　　　　　　　　　　　　　　if?x0?then?Y:=1;else?y:=-1;?　　　　　　　　　　　　　　　endelse?Y:=-1;二、case语句if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。(一)、情况语句的一般形式：case?表达式?of　　　情况标号表1：语句1;　　　情况标号表2：语句2;　　　:　　　情况标号表n：语句n　　end;　　其中case、of、end是Pascal的保留字，?表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。(二)、case语句的执行过程case语句的末尾end处。(三)、说明　　②情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型；　　③情况常量出现的次序可以是任意的；　　④同一情况常量不能在同一个case语句中出现两次或两次以上；　　⑥如果情况表达式的值不落在情况常的范围内，则认为本case语句无效，执行case语句的下一个语句。turbo?pascal中增加了一个否则的情况,即增加一个else子句，但也是可省的。　　例2?根据x的值，求函数Y的值：?　　分析：利用case语句进行程序设计,?关键在于巧妙地构造情况表达式。本例中三种情况可用一个表达式区分出来：Trunc(x/100)。因为x在(0～100)之间时表达式值为0；x在[100,200)时表达式值为1?；其余部分可用else子句表示。　　源程序如下:　　program?ex;　　var?x,y:real;　　begin　　　write(Input?x:);readln(x);　　　case?trunc(x/100)?of　　　　0:y:=x+1;　　　　1:y:=x-1;　　　　else?y:=0;　　　end;{end?of?case}　　　writeln(x=,x:8:2),y=,y:8:2);　　end.三、选择结构的程序设计　　　　例