Pascal基础练习.docVIP

[一] 文件输入整数a,b,c，求b2─4ac的数值？ [二] 文件读入小写的pascal，利用CHR（）和ORD（）函数，输出大写的PASCAL。 [三] 文件输入一个整数时、分、秒，把它转换为一个秒数？ 例如 输入文件 0 1 0 输出文件 60 ========================判断练习==================== [四] 文件输入两个整数a，b，输出较大的数？ [五] 文件输入某全自动加油站a,b,c三种汽油的单价(元/kg)分别是1.50、1.35和1.18，也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。编一个程序，用户输入加油量、汽油品种和服务类型(f-自动，m-自己，e-协助)，然后计算应付款。 [六] 文件输入年和月，输出该月有多少天？ ========================循环练习==================== [七] 文件输入一个四位数，求它各位上数字的和？ [八] 文件输入一整数A，判断它是否质数。 （提示：若从2到A的平方根的范围内，没有一个数能整除A，则A是质数。） [九] “百钱买百鸡”是我国古代的著名数学题。题目这样描述：3文钱可以买1只公鸡，2文钱可以买一只母鸡，1文钱可以买3只小鸡。用100文钱买100只鸡，那么各有公鸡、母鸡、小鸡多少只？文件输出结果。 ========================数组练习==================== [十] 文件输入N个数，将这N个数逆序输出，并求这N个数的和，输出这个和。 例如：输入 3 1 2 3 输出 6 [十一] 某校竞赛小组共有10位同学，2010－2012年每位同学都参与了三项重要比赛，为了从中选出最优秀的五个人代表合肥市参加安徽省比赛，请先统计每位同学的平均分。 分析：定义一个10行3列的二维数组来存放这些成绩。定义一个10个元素的一维数组来存放平均分。 [十二] 文件输如一串字符，请倒序输出。 [十三] 求从10名同学中选出3名代表，有几种不同的选法。 ? （公式：C(m,n)=m!/n!*(m-n)!　　从m中选n) n!=1x2x3……x(n-1)xn [十四] 求n个自然数的最大公约数（gcd） [十五] 文件操作 试编写一个将阿拉伯数字转换为英文字符的函数。 (替换规则１＝A、２＝B、３＝C、４＝D、５＝E、６＝F、７＝G、８＝H、９＝I、０＝J) [模拟编程练习题] 1. 三次方求和 给你一个三位数，你要对这个三位数的各位数字的3次方求和，然后再对求出的和中各位数字的3次方求和，如此一直继续下去，判断最后能否得到一个不再变化的固定值。如能得到一个固定值，就告诉我这个固定值；如果不能，则告诉我提示信息“error”。注意了，在求解过程中，若某一次求和得到的值超过3位数，则取该数的低三位继续往下运算…… 例如：对于三位数111，则第一次计算应该是1×1×1 + 1×1×1 + 1×1×1=3。第二次应是0×0×0 + 0×0×0 + 3×3×3=27。第三次应是0×0×0 + 2×2×2 + 7×7×7=351。第四次应是3×3×3 + 5×5×5 + 1×1×1=153。第五次应是1×1×1 + 5×5×5 + 3×3×3=153，与第四次结果重合，不再计算，输出固定值153。 输入：一行，一个三位数N（100≤N≤999）。 输出：一行，如能得到一个固定值，则输出这个固定值；如不能，输出提示信息“error”。 样例1： 输入：（cubsum.in） 111 输出：（cubsum.out） 153 样例2： 输入： 102 输出： error 2. 字母项链 这个项链需要由连接在一起的各种大小不同的字母水晶珠制成，意味着珠子可能在任意的地方断开，相邻的字母水晶珠之间的连接并不是很好，可能会由于项链自身的重量而使得它断开。项链断开时情况会很糟糕。因此，断开的点很重要。如果前面是小的珠子，项链断裂的可能性要比前面是大珠子要大的多。爱动脑筋的卡卡西想要进一步测试项链的稳定性。所以他需要一个程序以便决定断开珠子的最坏的那个点。 字母水晶项链是由一串A = a1a2 ... am序列组成，m表示制成项链的珠子的个数。当项链围成一圈时，最后一个字母am就是a1的前驱（前一个）。第i个珠子比第j个珠子更容易断裂就是说序列aiai+1 ... ana1 ... ai-1的字典序小于序列ajaj+1 ... ana1 ... aj-1的字典序。序列a1a2 ... an的字典序小于序列b1b2 ... bn的字典序就是存在一个整数i，i=n, 对于每个j（1 = j i