pascal中的if语句.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,if,语句,If,语句,If,语句是由一个布尔表达式和两个供选择的操作序列组成。运行时根据布尔表达式求值结果，选取其中之一的操作序列执行。有两种形式的,IF,语句：、,if,then,；、,if,then,else,；当布尔表达式的值为真，则执行,then,后面的语句，值为假时有两种情况：要么什么也不做，要么执行,else,后面的语句。注意,else,前面没有分号，因为分号是两个语句之间的分隔符，而,else,并非语句。如果在该处添了分号，则在编译的时候就会认为,if,语句到此结束，而把,else,当作另一句的开头，输出出错信息。,If,语句,例：设一个同学的计算机考试成绩为,a,，如果,a,大于等于,85,，那么就输出,good,。,program,lianxi(input,output,);,var,a:real,;,begin,write(a,=);,readln(a,);,if x=85 then,writeln(good,),else,writeln(hard,);,end.,输入一个整数，判断它是奇数还是偶数,Program,名字（,input,，,output,）；,var,变量：类型（整数,integer,）,Begin,（执行程序）,输入语句,判断语句（,ifthenelse,）,(,如何判断一个语句是不是偶数？,),End.,输入两个数，将其中最大数输出,（,1,）输入两个数，分别存入变量,a,b,中,(2),比较,a,与,b,，将大数存入变量,max,中,（,3,）输出,max,If (ab)then max:=a else max:=b;,Program e5(input,output),Var,a,b,max:real,;,Begin,Readln(a,b,);,If(ab)then max:=a,else max:=b;,Writeln(max,=,max);,End.,复合语句,在,Free Pascal,语言,if,语句中被构造的语句只能是一条语句，当条件选择某个分支的计算要用多个语句描述时，就必须把该分支用,begin,和,end,括来，写成复合语句。在用,if,语句连续嵌套时，如果你插入适量的复合语句，有利于程序的阅读和理解。例：当,x0,时候，计算,x*x,，并且输出,x,和,x*x,，,program lianxie3;,var,x,x1:real;,begin,readln(x,=,x);,if x=0 then,begin,x1:=x*x;,writeln(x,*x=,x1);,writeln(x,=,x);,end;,end.,*当,if,语句嵌套时，,Free Pascal,约定,else,总是和最近的一个,if,配对*,输入两个数，将其中大数存入变量,a,，小数存入变量,b,Program e5_2(input,output);,var a,b,t:integer;,begin,readln(a,b);,if ab then writeln(a=,a,b=,b:5);,else begin,t:=a;,a:=b;,b:=t;,writeln(a=,a,b=,b:5);,end;,end.,逻辑运算,And,（与）、,or,（或）、,not,（非）,If (53)and(46)then,语句（两个条件都成立）,If(53)or(46)then,语句（）（只要一个条件成立就可以了）,If not,（,46,）,then,语句（条件不成立的时候）,If(A is a handsome)and (A is clever)then many people like him;,If A,是一个帅哥 并且,A,很聪明,then,很多人喜欢他,输入一个年号，求是否是闰年,条件：年号能被,4,整除，但不能被,100,整除,program,ru,（,input,，,output,）,;,var,year:integer,;,begin,readln(year,);,if(year mod 4=0)and (year mod 100 0)then,writeln(year,shi,run,nian,),else,writeln(year,bushi,run,nian,);,end.,输入三个数，将其中最大数输出,输入三个数，将其中最大数输出,（,1,）输入三个数，分别存入变量,a,b,c,中,(2),比较,a,与,b,，将大数存入变量,max,中,（,3,）比较,c,与,max,，将大数存入变量,max,中，,（,4,）输出,max,条件语句的嵌套,If,条件,1,then,if,条件,2,then,语句,11,else,语句,12,else,语句,2,；,If a0,then,if b0,then,writeln(a+b,=,a+b,),else,writeln(a-b-,a-b,),else,writeln(a,.0,then,if b0,then,writeln(a+b,=,a+b,),else,writeln(a-b-,a-b,),else,writeln(a,.0,x=0 x=0,-x x0,then y:=x,else,if x=0,then y:=0,else,y:=-x;,Writeln(y,=,y);,End.,练习,写出下列的,pascal,语言,若,A,不大于,B,，则输出,A,的值,若,A-B,不小于,C,，则将,B,增加,1,，否则令,B,为,0,下列程序段运行后，变量,b,的值为,a:=10;,if a=2 then b:=4+a else b:=a,