IF嵌套语句

在If语句中，如果then子句或else子句后仍是一个If语句， 则称为If语句的嵌套。
练习
1、输入三角形的三边，判断它是否为直角三角形。 2、对一批货物征收税金。价格在1万元以上的货物征税5%，在 5000元以上，1万元以下的货物征税3%，在1000元以上，5000元 以下的货物征税2%，1000元以下的货物免税。编写一程序，读入 货物价格，计算并输出税金。
例2：计算函) (x<0)
分析：根据输入的X值，先分成x>0和x≤0，再区分x是<0，还是=0。
program ex1(input,output); var x:real; y:integer; begin write('x='); readln(x); if(x>0) then begin y:=1; end else begin if (x=0) then begin y:=0; end else begin y:=-1; end; end; write('x=',x:6:2,'y=',y); end.
例1：输入三个正整数，若能用这三个数组成三角形，则输出“can!”，
不能则输出“can not!”。（组成三角形的条件：任意两边之和大于第三 边） program ex1(input,output);
var a,b,c:integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if((a+b>c)and(a+c>b)and(b+c>a))then begin write('can!'); end else begin write('can not!'); end; end.
例1：输入三个数a、b、c，输出其中最大的数。
program ex2(input,output); Var a,b,c:integer; max:integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if(a>b)then begin max:=a; end else begin max:=b; end; if(max<c)then begin max:=c; end; write('max=',max); end.