聪明人的游戏 上课稿第10课.pptVIP

图形多奇特 算算三角形的周长 及时充电（复合语句） 格式： Begin 一组语句 End 作用： 将begin和end括着的所有语句作为一个整体，作为某条件成立或不成立时要进行的各种处理。 及时充电（布尔表达式） 布尔常量 Pascal中用 true表示真，用false表示假 布尔变量说明 格式：var 变量表：Boolean 布尔表达式(又分为关系表达式和逻辑表达式) 1、只比较两个数大小的式子属于关系表达式 2、将几个条件进行逻辑连接的表达式就是逻辑表达式 逻辑运算符有三种：not（非），and（与），or（或） 及时充电（条件语句的嵌套） 当条件语句中又包含条件语句是，就称为条件语句的嵌套。 探索奥秘 写出“m,n都是偶数或都是奇数”的布尔表达式 探索奥秘 写出程序运行结果，并说明程序的作用 探索奥秘 判断长度为a,b,c,d的四条线段能否构成一个长方形，如果能计算出面积，不能输出“Can’t ！” 展示实力 用布尔表达式表示下列条件 1、三角形第三条边c的平方等于另两条边a和b的平方之和 2、正方形的四条边a,b,c,d相等 * * Program P1_10_1； var a,b,c,L :real; Begin Readln(a,b,c); if(a0) and (b0) and (c0) and (a+bc) and (a+cb) and (b+ca) then begin L:=a+b+c; Writeln(‘L=’,L:0:2); end Else writeln(‘Wrong’); End. 思考：能否在上面程序的”else” 之前的“end”后加上一个“；”？ 布尔表达式运算优先级： 括号→函数，not →*,/,div,mod,and →+,-,or →关系运算 同级运算按从左到右的顺序计算，可以用括号改变运算次序 ((m nod 2=0) and (n mod 2=0)) or ((m mod 20) and (n mod 2 0)) Program P1_10_2； var a,b,c,max :real; Begin Readln(a,b,c); if ab then if ac then max:=a; else max:=c; else if bc then max:=b; else max:=c; Writeln(‘max=’,max:0:1); End. (运行时输入 30，200，80.5) 运行结果：max=200.0 (作用是求三个数中的最大数) Program P1_10_3； var a,b,c,d,s :real; Begin Readln(a,b,c,d); s:=0; if (a0) and (b0) and (c0) and (d0) then begin if (a=b) and (c=d) then s:=a*c; else if (a=c) and (b=d) then s:=a*b; else if (a=d) and (b=c) then s:=a*b; end; If s0 then writeln(‘S=’,s:0:2); else writeln(‘Can’t!’); End.