搜索
2015-2016(上)第15周作业班级：__________姓名：_____________一、选择题1、设A=B=true，C=D=false，以下逻辑运算表达式值为假的有()。2、设A=true，B=false，C=true，D=false，以下逻辑运算表达式值为真的有()。3、设A=B=D=false，C=true，以下逻辑表达式的值为真的是()。二、填空题1、在Pascal语言中，判断整数a等于0或b等于0或c等于0的正确的条件表达式为。2、表达式inc(ord(trueorfalseandtrue))的值为。3、表达式dec(ord(trueandfalseorfalse))的值为。4、a不等于0且b不等于0正确的条件表达式是。5.a既能被4整除，又能被6整除的布尔表达式。6.表达式(2=1)ornot(210)and(104)的结果是。三、阅读程序写输出结果1.vara,x,y,ok1,ok2:integer;begina:=100;x:=10;y:=20;ok1:=5;ok2:=0;if((xy)or(y20)and(ok1=0)and(ok20))thena:=1elseif((ok10)and(ok2=0))thena:=-1elsea:=0;writeln(a);end.输出:。2、vara,b,c,d,sum:longint;beginread(a,b,c,d);a:=amod23;b:=bmod28;c:=cmod33;sum:=a*5544+b*14421+c*1288-d;sum:=sum+21252;sum:=summod21252;ifsum=0thensum:=21252;writeln(sum);end.输入:28310223320输出:3、vara,b,c,d,e:integer;begina:=79;b:=34;c:=57;d:=0;e:=-1;if(ac)or(bc)thend:=d+eelseif(d+10e)thend:=e+10elsed:=e-a;writeln(d);end.输出:5.constt=true;f=false;vara,b,c:integer;begina:=30;b:=10;c:=20;if((ab)and(ac))thenwriteln(t)elseif((ac)and(bc))thenwriteln(f)elseif((ab)or(bc))thenwriteln(t);end.输出:。四、完善程序1、输入一个金额，试把它兑换为零钱，而且零钱个数要尽量少（零钱包括1元、5元和10元）。输入样例：46输出样例：$10coinsx:4$5coinsx:1$1coinsx:1varm,t,f:integer;beginreadln(m);;m:=mmod10;writeln('$10coinsx:',t);f:=mdiv5;;writeln('$5coinsx:',f);writeln('$1coinsx:',m);end.2、任意给出年份数和月份数，试问它处于什么季节？当月有几天？题目分析如下所示：季节判定：以北半球为例，月份数为3、4、5时为春季；6、7、8时为夏季；9、10、11为秋季；12、1、2则为冬季。当月天数判定：月大时（即1、3、5、7、8、10、12月）为31天，月小时（即4、6、9、11月）为30天，而2月的天数取决于当年是否闰年，闰年时为29天，平年时为28天。输入样例：Year,month=200712输出样例：Theseasonof2007.12isWinter.Thelenthof2007.12is31.programex5_3(input,output);varyear,month,days:integer;bool:boolean;beginwrite('Year,month=');readln(year,month);writeln;write('Theseasonof',year,'.',month,'is');caseof3,4,5:writeln('Spring.');6,7,8:writeln('Summer.');9,10,11:writeln('Autumn.');12,1,2:writeln('Winter.');end;bool:=(yearmod400=0)or(yearmod4=0)and;casemonthof1,3,5,7,8,10,12:days:=31;4,6,9,11:days:=30;2:ifthendays:=29else;end;writeln('Thelenthof',year,'.',month,'is',days,'.');end.