资源描述：
《pascal中的if语句》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、if语句If语句If语句是由一个布尔表达式和两个供选择的操作序列组成。运行时根据布尔表达式求值结果，选取其中之一的操作序列执行。 有两种形式的IF语句： １、if<布尔表达式>then<语句>； ２、if<布尔表达式>then<语句1>else <语句2>； 当布尔表达式的值为真，则执行then后面的语句，值为假时有两种情况：要么什么也不做，要么执行else后面的语句。注意else前面没有分号，因为分号是两个语句之间的分隔符，而else并非语句。如果在该处添了分号，则在编译的时候就会认为if语句到此结束，而把else当作另一句的开头，输出出错信息。If语
2、句例：设一个同学的计算机考试成绩为a，如果a大于等于85，那么就输出good。programlianxi(input,output);vara:real;beginwrite(‘a=’);readln(a);ifx>=85thenwriteln(‘good’)elsewriteln(‘hard');end.输入一个整数，判断它是奇数还是偶数Program名字（input，output）；var变量：类型（整数integer）Begin（执行程序）输入语句判断语句（if…then…else）(如何判断一个语句是不是偶数？)End.输入两个数，将其中最大数输出（1）输入两个
3、数，分别存入变量a,b中(2)比较a与b，将大数存入变量max中（3）输出maxIf(a>b)thenmax:=aelsemax:=b;Programe5(input,output)Vara,b,max:real;BeginReadln(a,b);If(a>b)thenmax:=aelsemax:=b;Writeln(‘max=‘,max);End.复合语句在FreePascal语言if语句中被构造的语句只能是一条语句，当条件选择某个分支的计算要用多个语句描述时，就必须把该分支用begin和end括来，写成复合语句。在用if语句连续嵌套时，如果你插入适量的复合语句，有利
4、于程序的阅读和理解。 例：当x>0时候，计算x*x，并且输出x和x*x，programlianxie3;varx,x1:real;beginreadln('x=',x);ifx>=0thenbeginx1:=x*x;writeln('x*x=',x1);writeln('x=',x);end;end.*当if语句嵌套时，FreePascal约定else总是和最近的一个if配对*输入两个数，将其中大数存入变量a，小数存入变量bPrograme5_2(input,output);vara,b,t:integer;beginreadln(a,b);ifa>bthenwri
5、teln(‘a=‘,a,’b=‘,b:5);elsebegint:=a;a:=b;b:=t;writeln(‘a=‘,a,’b=‘,b:5);end;end.逻辑运算And（与）、or（或）、not（非）If(5>3)and(4>6)then语句（两个条件都成立）If(5>3)or(4>6)then语句（）（只要一个条件成立就可以了）Ifnot（4>6）then语句（条件不成立的时候）If(Aisahandsome)and(Aisclever)thenmanypeoplelikehim;IfA是一个帅哥并且A很聪明then很多人喜欢他输入一个年号，求是否是闰年条件：年号
6、能被4整除，但不能被100整除programru（input，output）;varyear:integer;beginreadln(year);if(yearmod4=0)and(yearmod100<>0)thenwriteln(year,’shirunnian’)elsewriteln(year,‘bushirunnian’);end.输入三个数，将其中最大数输出输入三个数，将其中最大数输出（1）输入三个数，分别存入变量a,b,c中(2)比较a与b，将大数存入变量max中（3）比较c与max，将大数存入变量max中，（4）输出max条件语句的嵌套If条件1then
7、if条件2then语句11else语句12else语句2；Ifa>0thenifb>0thenwriteln(‘a+b=‘,a+b)elsewriteln(‘a-b-’,a-b)elsewriteln(a.’<=0’);条件语句的嵌套+复合If条件1thenbeginif条件2then语句11else语句12endelse语句2；Ifa>0thenifb>0thenwriteln(‘a+b=‘,a+b)elsewriteln(‘a-b-’,a-b)elsewriteln(a.’<=0’);条件语句的嵌套If条件1then语句1elseif
