Pascal选择结构练习(二).doc

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 true or false and true 的值为 。 3、表达式dec ord true and false or false 的值为 。 4、a不等于0且b不等于0正确的条件表达式是 。 5. a既能被4整除，又能被6整除的布尔表达式 。 表达式 2 1 or not 2 10 and 10 4 的结果是 。三、阅读程序写输出结果 1. var a,x,y,ok1,ok2:integer; begin a: 100; x: 10; y: 20; ok1: 5; ok2: 0; if x y or y 20 and ok1 0 and ok2 0 then a: 1 else if ok1 0 and ok2 0 then a: -1 else a: 0; writeln a ; end. 输出: 。 2、var a,b,c,d,sum:longint; begin read a,b,c,d ; a: a mod 23; b: b mod 28; c: c mod 33; sum: a*5544+b*14421+c*1288-d; sum: sum+21252; sum: sum mod 21252; if sum 0 then sum: 21252; writeln sum ; end. 输入: 283 102 23 320 输出: 3、var a,b,c,d,e:integer; begin a: 79; b: 34; c: 57; d: 0; e: -1; if a c or b c then d: d+e else if d+10 e then d: e+10 else d: e-a; writeln d ; end. 输出: 5. const t true; f false; var a,b,c:integer; begin ? a: 30; b: 10; c: 20; if a b and a c then writeln t else?if a c and b c then writeln f else if a b or b c then writeln t ; end. 输出: 。 四、完善程序 1、输入一个金额，试把它兑换为零钱，而且零钱个数要尽量少（零钱包括1元、5元和10元）。 输入样例：46 输出样例：$10 coins x: 4 $5?? coins x: 1 $1?? coins x: 1 var m,t,f:integer; begin ? readln m ; ; ? m: m mod 10; ? writeln $10 coins x: ,t ; ? f: m div 5; ; ? writeln $5? coins x: ,f ; ? writeln $1? coins x: ,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 2007 12 输出样例：The season of 2007.12 is Winter. The lenth of 2007.12 is 31. program ex5_3 input,output ; var year,month,days:integer; bool:boolean; begin write Year,month ; readln year,month ; writeln; write The season of ,year,.,month, is ; case of 3,4,5: writeln Spring. ; 6,7,8: writeln S