大学计算机基础第5-7章习题答案.pdf

第5 章习题 1．给出3 个整数，求它们的和与均值。 2 ．自来水公司采取按用水量阶梯式计价的办法，居民应交水费y(元)与月用水量x(吨)相关， 函数关系式如下。编写程序计算当x1=12 时，x2=30 时y 的值。 0 (x=0) y = f(x) = 4x/3 (0x=15) 2.5x-10.5 (x15) 3 ．设x1=0133 表示火车1 点33 分开出，x2=2209 表示火车22 点09 分到站。x1 和x2 都是 整数，计算火车运行的时间y （运行时间假设小于24 小时），同样用一个4 位整数表示， 前2 位为小时数，后两位是分钟数。 4 ．计算序列2/1+3/2+5/3+8/5+... 的前n 项之和。 5 ．给定一个含有10 个整数的数组，判断x 是否在数组中。如是，将x 在数组中的位置（下 标）存于变量y 中。否则y 的值为-1。 6 ．将第2 题以过程调用的方式实现。过程如 Function WaterFee (ByVal x As Deciaml) As Decimal 7 ．将第5 题以过程的方式实现，如： Function IsHere (ByVal A() As Integer, ByVal x As Integer) As Integer 8 ．某公司员工的工资计算方法如下，一周内工作时间40 小时之内（含40 小时），按正常 工作时间计酬，超出40 小时的工作时间部分，按正常工作时间报酬的1.5 倍计酬。员工 按进公司时间分为新职工和老职工，新职工的正常工资为 30/小时，老职工的正常工资 为50/小时。（进公司5 年以上（含5 年）的员工为老职工，5 年以下的为新职工）， 请 按该计酬方式计算员工的工资。要求输入员工进公司的一周工作时间、工作年数，输出 其一周的工资，保留2 位小数。 9 ．输入年份、月份、日子，输出这一天是该年中的第几天。如输入3 个整数，2009 3 2， 则输出This is the 61th of 2009 。 10．一只猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个；第二天早 上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零 一个。到第n 天（1n=10，从键盘输入）早上想再吃时，见只剩下一个桃子了。问第 一天共摘了多少个桃子？ 11．总共50 件商品，有两种构成，钥匙扣2 元一个，漫画书4 元一本，要卖出160 元，应 如何搭配 （输出所有可能的配对情况）？ 12．打印输出所有 “水仙花数”。所谓“水仙花数”是指一个三位的正整数，其各位数字立 3 3 3 方和等于该数本身。例如：153 是一个 “水仙花数”，因为153=1 ＋5 ＋3 。 13．编写过程IsSquare，判断某个自然数是否为平方数。是返回True，不是则返回False。 14．求数组中出现次数最多的数及出现次数。数组为整数，8 个数。输出出现最多的数以及 次数。 15．一个自然数是素数，且它的各位数字位置经过任意对换后仍为素数，则称是绝对素数。 例如13 是绝对素数。输出所有2 位数的绝对素数。 第5 章习题答案 ‘—1-- Module Module1 Sub Main() Console.WriteLine(请输入3 个整数, 以空格分隔并以回车结束) Dim s As String = Console.ReadLine() Dim sSplit() As String = s.Split( ) Dim x, y, z As Integer x = Convert.ToInt32(sSplit(0)) y = Convert.ToInt32(sSplit(1)) z = Convert.ToInt32(sSplit(2)) Console.WriteLine(sum:{0}, x + y + z) Console.WriteLine(