第九课嵌套分支语句与嵌套(214KB).pptVIP

知识回顾 实验中学 复合语句 复合语句：复合语句是一个以BEGIN开始，以END结束的语句。在BEGIN和END之间可以包括若干个语句，每个语句之间以分号隔开。 一般形式为：BEGIN 语句1；语句2；......语句N；END； 注意：PASCAL把复合语句视作一个语句。复合语句可用在PASCAL允许使用普通语句的任何地方。 读入三个不同的数，编程按由小到大的顺序排列打印出来 设读入的三个数为a，b，c，为了把较小的数排在前面，可作如下处理: ?? ① 如果a＞b就交换a、b的值，将较大的值换至后面； ?? ② 如果a＞c就交换a、c的值，将较大的值换至后面； ?? ③ 如果b＞c就交换b、c的值，将较大的值换至后面； Progranm? Exam22； ??? Var a，b，c，t: Real； ??? Begin ??????? Write(Input a， b，c=)； ??????? Readln(a，b，c)； ??????? if a＞b then begin??????????????????? ｛复合语句｝ ???????????? t:=a； a:=b； b:=t?????? {交换a，b} ?????????? end； ????? ?? if a＞c then begin??????????????????? ｛复合语句｝ ???????????? t:=a； a:=c； c:=t??????? {交换a，c} ?????????? end； ??????? if b＞c then begin?????????????????? ｛复合语句｝ ????????????? t:=b； b:=c； c:=t???????? {交换b，c} ??????????? end； ??????? Writeln(a，b，c:，a:6， b:6， c:6)； ??????? Readln ??? End. 读入三个不同的数，编程按由小到大的顺序排列打印出来 相当于把本来是一句话的地方 用复合语句代替!! 给出三角形的三个边长A,B,C,求三角形面积. program exec2(input,output); var a,b,c,s,area:real;begin readln(a,b,c);  if (a+bc)and(b+ca)and(c+ab) then begin s:=(a+b+c)/2; area:=sqrt(s*(s-a)*(s-b)*(s-c)); writeln(‘area=’,area:6:2); end ; else begin writeln(a:6:2,b:6:2,c:6:2); writeln(input data error); end; end. 提示： 要判断是否能构成一个三角形 如果s为三边和的一半，那么面积为sqrt(s*(s-a)*(s-b)*(s-c)) IF语句的嵌套 在if语句中，如果then子句或else子句仍是一个if语句， 则称为if语句的嵌套。 写程序，根据输入的值，输出1、-1和零。 program ex; 　var x:real;y:integer; 　　begin 　　　 wrtie(Input x:);readln(x); 　　　 if x0 then y:=1 　　　　else ｛x≤0时｝ 　　　　　if x=0　then y:=0 　　　　　　else y:=-1; 　　　writeln(x=,x:6:2,y=,y); 　　end. 根据输入的x值，先分成x0与x≤0两种情况，然后对于情况x≤0，再区分x是小于0，还是等于0 X0 X=0 Y:=1 Y:=-1 Y:=0 输入x 开始 结束 Y Y 输出x、y 写程序，根据输入的值，输出1、-1和零。 program ex; var x:real;y:integer; Begin wrtie(‘Input x:’); readln(x);if x=0　then 　if x0　then y:=1　 else y:=0 else y=-1; writeln(x=,x:6:2,