课件pascal语言讲选择结构.pptxVIP

第二讲选择结构

程序的三种基本结构：顺序结构选择结构（if、case）循环结构（for、while、repeat）

例：输入三角形的三条边a，b，c，输出三角形的面积。（a，b，c是正整数100，满足三角形条件）一、顺序结构

vara,b,c:integer;p,s:real;beginreadln(a,b,c);p:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln(s:0:2);end.程序从第一句开始，依次顺序执行语句直到结束，中间无分支和循环，这种程序结构称为顺序结构

Readln(a,b,c)读入边长求p求s输出面积s流程图

改进：输入三角形的三条边a，b，c，如果能构成三角形则输出三角形的面积;如果不能构成三角形则输出提示信息”Noanswer”.

Readln(a,b,c)读入边长A,b,c能否构成三角形?求p，s，输出面积输出：‘Noanswer’YESNO

vara,b,c:integer;p,s:real;beginreadln(a,b,c);if(a+bc)and(a+cb)and(b+ca)thenbeginp:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln(s:0:2);endelsewriteln(‘Noanswer’);end.无“；”

选择结构：if语句

有两种形式的IF语句：

(1)if布尔表达式then语句；

(2)if布尔表达式then语句1else语句2；

IF语句是由一个布尔表达式和一个或两个供选择的操作序列组成。运行时根据布尔表达式的求值结果，选取其中之一的操作序列执行。当布尔表达式的值为TRUE，则执行then后面的语句，值为FALSE时有两种情况：

（1）什么也不做；（2）执行else后面的语句。注意:

1、else前面的语句不能有分号；2：如果语句部分是复合语句（多于一条语句），则必须用begin与end括起来。二、选择结构if/case布尔表达式：由关系运算符和逻辑运算符连接成的表达式(判断)。结果是布尔类型：TRUE或FALSE

例1:输入一个整数ａ，判断他的奇偶性。（是偶数输出“ｙｅｓ”，奇数输出“ｎｏ”）。方法一：Vara:integer;Beginreadln(a);Ifamod2=0thenwriteln(‘yes’)；ifamod20thenwriteln(‘no’);End.方法二：Vara:integer;Beginreadln(a);Ifamod2=0thenwriteln(‘yes’)elsewriteln(‘no’);End.无“；”

例2、计算下列函数，输入x，输出y的值(精确到小数点后两位小数)。

varx:real;beginreadln(x);ifx0thenwriteln(x*x:0:2)elseifx=0thenwriteln(0)elsewriteln(sqrt(x):0:2);end.IF语句的嵌套：在if语句中，如果then子句或else子句仍是一个if语句，则称为if语句的嵌套。varx:real;beginreadln(x);ifx0thenwriteln(x*x:0:2);ifx=0thenwriteln(0);ifx0thenwriteln(sqrt(x):0:2);end.

例3：已知方程：ax2+bx+c=0输入系数a,b,c，a0,输出方程的解(考虑各种情况)。保留两位小数。(1):如果无实数解输出：’noanswer’;(2):相同的实数解：输出一个即可。(3):两个不同的实数解：分别输出。如：输入：132输出：X1=-1.00X2=-2.00输入:21输出:X=-1.00

vara,b,c:integer;d,x1,x2:real;beginreadln(a,b,c);d:=b*b-4*a*c;ifd0then