pascal题目分支.pdfVIP

1. 输入一个整数，判断它是正数、负数或零。 输入输出要求： 输入的数是正数时，屏幕输出 该数0 输入的数是负数时，屏幕输出 该数0 输入的数是0 时，屏幕输出 0 0 文件保存在 W3\PlusMin.PAS 提示： 用多个IF 命令 2. 输入五个整数，输出最大数和最小数 要求：五个数在同一行输入。 输出： Max＝最大数 Min＝最小数 文件保存在 W3\MaxMin.PAS 提示： 用两个变量保存最大数和最小数。例如变量Max，Min 用IF 的简单格式。 部分代码如下： Max：＝A1； Min：＝A1；｛假设A1是最大值也是最小值。一开始时这种假设是成立 的｝ IfA2Maxthen Max：＝A2; ｛如果A2Max，Max 就不是最大值，所以把Max 的值换 成A2 的值｝ IfA3Maxthen Max：＝A3; ｛如果A3Max，Max 就不是最大值，所以把Max 的值换 成A3 的值｝ 依次比较完五个数。最小值的求法类似。 3. 根据成绩 （整数）输出等第。文件保存在 W3\Rank.PAS 规则： 90至100 为A，80 至89为B， 60至79为C， 60 以下为F。 例如输入83,输出B 提示： 因为分支较多，用Case 编程较方便。 用 成绩 DIV 10 的结果作为情况表达式。 部分代码如下： CaseX Div 10Of …… 6,7:Writeln （‘C’）；｛两种情况做相同的处理可以把情况常数写在一起如6,7: ｝ ElseWriteln （‘F’）；｛其它情况｝ End； ｛与Case 配对的End｝ 4. 某车站行李托运收费标准是：10 公斤或10 公斤以下，每公斤收费2.5元，超过10 公斤 的行李，按则超过部分每公斤收费1.5元进行收费。试编一程序，输入行李的重量，算 出托运费。输入重量为整数。 文件保存到 W3\Fee.PAS 要求只能用一个IF 解决问题。（用到Else 部分） 【样例输入 1】 1 【样例输出1】 2.50 【样例输入2】 11 【样例输出2】 26.50 5. 计算1901年2099年之间的某月某日是星期几。 输入格式为 年 月 日 。其中年四位数，年、月、日之间用空格隔开。 文件保存到 W3\WeekDay.PAS 提示：1900年 1月1 日星期一。每年有365天，闰年有366 天。 闰年的规则是每四年为闰年，但每整 100年必须是能被400整除的才是闰年。 例如公元100年能被4 整除，但他不是闰年。公元1200 年是闰年，公元1900年不是闰 年。 6. 期未来临了，班长小Q 决定将剩余班费X 元钱，用于购买若干支钢笔奖励给一些学习好、 表现好的同学。已知商店里有三种钢笔，它们的单价为6 元、5元和4 元。小Q 想买尽量多 的笔 （鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q 制订出一种买 笔的方案。 文件保存到 W3\Q.PAS 输入：小于100 的整数 输出： 4yuan 整数 5yuan 整数 6yuan 整数 提示：先考虑买4 元的笔，剩下的钱再考虑买其他笔。