Pascal百题练习.docVIP

有一数字如下：65436543654365436543………循环排列， 输入一个数字n，输出第n个数字。 如输入3则输出为4，输入1则输出为6。 （2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。 (3)输入一个数字n，输出所有数字4所在的位数。 如输入15，输出4所在的位置，即3 7 11 15 2、有一字符串如下：EDCBAEDCBAEDCBA……..循环排列， (1)输入一个整数n，输出第n位字符。 如输入3输出为C，输入1则输出为E。 (2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。 (3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。 如输入15，输出D所在的位置，即2 7 12 3、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。否则输出’Error’,即错误。 如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。 （提示：’a’≤小写字母≤’z’，’A’≤大写字母≤’Z’） 4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。 5、输入三个数，按从大到小的顺序输出。 如，输入15 20 16 ，输出为20 16 15 6、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。 如，输入315，输出531。 7、输入四个整数，输出四个数中的最大值和最小值。（分两行输出） 8、输入一个秒数，转换成小时、分、秒并输出。 如输入4500，输出为1:15:0。 9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输 出。 10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。 11、假设邮局规定寄邮件时若每件重量在1公斤内（含1公斤）以每公斤1.5元 收取邮费，超过部分按每公斤0.8元收取邮费。编程输入邮件重量，输出应 收邮费。 12、输入考试成绩，如果获得80分以上为A等，60到79分为B等，60分以下 为C等。编程输入分数，输出相应等级。（用IF和CASE两种方法） 13、输入两个0到99的整数，输出这两个整数相乘的竖式。 如，输入15 9则输出15和9相乘的竖式，输入18 21则输出18和21相乘的竖式。 14、输入任意的小写字母ch和任意数字n，将该字母按照字母表顺序向后移动n位（字母表首尾相连成环状），输出移位后的字母。例如输入b 3，则输出e；输入x 4，则输出b。输入格式输入两个数据，之间用一个空格隔开，第一个数据是小写字母，第二个数据是一个正整数。输出格式　　输出一个字符，表示移位后的字母。样例输入b 3 样例输出e 15、输入一个年份，判断是否是闰年，是则输出’Yes’，否则输出’No’ （年份能被4整除，并且不能被100整除，或年份能被400整除即为闰年。） (用IF和CASE两种方法)。 16、输入一个5位数，判断它是不是回文数。即12321是回文数，个位与万位 相同，十位与千位相同。 17、读入一个小写字母，如果它的ASCII码是奇数，输出其后继字母，如果它的ASCII码是偶数，则输出其前趋字母。 输入：f（ASCII码102）输出：e 1. 输入两个两位数，它们各位上的数字互不相等，如果这两个两位数的乘积等于把它们各自位上的数字交换后所得的新的两位数的乘积，输出等式，否则输出不等式。例如：输入：12? 63输出：12*63=21*36 输入：12? 34输出：12*3421*4319. 给出一个英文字母，要求按字母顺序输出5个字母，给定的字母是五个字母中间的一个字母。例如，给定的字母是“R”，应输出PQRST；给定的字母是“Z”，应输出XYZAB；给定的字母是“B”应输出ZABCD，其余类推。输入：R输出：PQRST 输入：Z输出：XYZAB 编程模拟剪刀石头布游戏，J表示剪，S表示石，B表示包。根据游戏者自己输入，计算机出结果。……n整数分多排排列，其中每排放x个， （1）输入n、x，编程输出n在第几排第几列。 如输入16 7，输出3 2 （2）输入n、x，编程在屏幕上输出如下排列的数字（用取余和计数器两种方法解） 1 2 3 4 5 6 7 8 9 1