13、逻辑运算

《13、逻辑运算》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、课前复习与巩固：编程，键盘读入三个整数，按从大到小顺序输出。第十二讲逻辑运算在if语句中，if后的＜布尔表达式＞可以是更复杂的形式，需要用到逻辑运算。第十二讲逻辑运算一、基本逻辑运算l、逻辑与运算programex9_1;vart,f:boolean;begint:=true;f:=false;writeln(t,'and',t,'',tandt);writeln(t,'and',f,'',tandf);writeln(f,'and',t,'',fandt);writeln(f,'and',f,'',fandf)

2、;readlnend.说明：两者都为TRUE，结果为TRUE，其它情况结果为FALSE。第十二讲逻辑运算2、逻辑或运算programex9_2;vart,f:boolean;begint:=true;f:=false;writeln(t,'or',t,'',tort);writeln(t,'or',f,'',torf);writeln(f,'or',f,'',forf);readlnend.说明：两者都为FALSE，结果为FALSE，其它情况结果为TRUE，即只要有一为TRUE，结果为TRUE。第十二讲逻辑运算3

3、、逻辑非运算programex9_3;vart,f:boolean;begint:=true;f:=false;writeln('not',t,'',nott);writeln('not',f,'',notf);readlnend.说明：总是与原来相反。第十二讲逻辑运算二、逻辑运算应用4、从键盘输入三个任意数，输出其中最大数。programex9_4;vara,b,c:integer;beginwrite('a,b,c=');readln(a,b,c);if(a>b)and(a>c)thenwriteln(a);

4、if(b>c)and(b>a)thenwriteln(b);if(c>a)and(c>b)thenwriteln(c);readlnend.第十二讲逻辑运算5、输入一个年号Year，判断是否为闰年。programex9_5;varyear:integer;beginwrite('Inputyear:');readln(year);if((yearmod4=0)and(yearmod100<>0))or(yearmod400=0)thenwriteln(year,'shirunnian.')elsewriteln(

5、year,'bushirunnian.');readlnend.第十二讲逻辑运算练习题一、如果有三个数a、b、c，满足a＜b＜c，则称这三个数为有序数。编写程序，对于依次任意输入的三个数，判断它们是否为有序数，若是有序数，输出“Shi”，否则输出“Bushi”。二、输入三个数作为三角形的三条边，判断是否能组成一个三角形。若能组成三角形，进一步判断是否是等腰三角形或等边三角形。提示：三角形判断条件：任意两条边之和大于第三边。三、任意输入一个年号，求出该年第一季度的天数。四、从键盘输入某一个月份M，输出与该月份对应的

6、“春、夏、秋、冬”四个季节之一。N＝3，4，5应输出“Chun”，N＝6，7，8应输出“Xia”，N＝9，10，11应输出“qiu”，N＝12，l，2应输出“Dong”。五、从键盘输入一个小于100的自然数a，如果它是3或者5的倍数，则输出“Yes”，如果不是3或者5的倍数，则输出“No”。如果输入的自然数不在100以内，则输出“Error”。六、重编“石头、剪子、布”游戏。