PASCAL基础题【程序1】
题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？
【程序2】
题目：判断101-200之间有多少个素数，并输出所有素数。
1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除，
则表明此数不是素数，反之是素数。
【程序3】
题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。
1.程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。
【程序4】
题目：将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。
程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：
(1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。
(2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,
重复执行第一步。
(3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。
【程序5】
题目：利用条件运算符的嵌套来完成此题：学习成绩>=90分的同学用A表示，60-89分之间的用B表示，60分以下的用C表示。
1.程序分析：(a>b)?a:b这是条件运算符的基本例子。
【程序6】
题目：输入两个正整数m和n，求其最大公约数和最小公倍数。
1.程序分析：利用辗除法。
【程序7】
题目：输入一行字符，分别统计出其中英文字母、空格、数字和其它字符的个数。
【程序8】
题目：求s=a+aa+aaa+aaaa+aa...a的值，其中a是一个数字。例如2+22+222+2222+22222(此时共有5个数相加)，几个数相加有键盘控制。
1.程序分析：关键是计算出每一项的值。
【程序9】
题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程 找出1000以内的所有完数。
【程序10】
题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在 第10次落地时，共经过多少米？第10次反弹多高？
【程序11】
题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
【程序12】
题目：企业发放的奖金根据利润提成。利润(I)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润I，求应发放奖金总数？
1.程序分析：请利用数轴来分界，定位。注意定义时需把奖金定义成长整型。
【程序13】
题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？
1.程序分析：在10万以内判断，先将该数加上100后再开方，再将该数加上268后再开方，如果开方后的结果满足如下条件，即是结果。请看具体分析：
【程序14】
题目：输入某年某月某日，判断这一天是这一年的第几天？
1.程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即本年的第几天，特殊情况，闰年且输入月份大于3时需考虑多加一天。
【程序15】
题目：输入三个整数x,y,z，请把这三个数由小到大输出。
1.程序分析：我们想办法把最小的数放到x上，先将x与y进行比较，如果x>y则将x与y的值进行交换，然后再用x与z进行比较，如果x>z则将x与z的值进行交换，这样能使x最小。
【程序16】
题目：输出9*9口诀。
1.程序分析：分行与列考虑，共9行9列，i控制行，j控制列。
【程序17】
题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个 第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下 的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。
1.程序分析：采取逆向思维的方法，从后往前推断。
【程序18】
题目：两个乒乓球队进行比赛，各出三人。甲队为a,b,c三人，乙队为x,y,z三人。已抽签决定比赛名单。有人向队员打听比赛的名单。a说他不和x比，c说他不和x,z比，请编程序找出三队赛手的名单。 【程序19】
读入摄氏温度c，将它转换成华氏温度f输出，写出程序。已知:f=9/5*c+32【程序20】输入a,b,c，求一元二次方程ax2+bx+c=0的根。【程序21】依次输入10个学生的成绩，计算每个学生的成绩与平均成绩的差，并由此给出每个学生成绩的字母等级。如果成绩高于平均成绩10分以上为A等，与平均成绩相差在10分以内为B等，其余为C等。最后输出每个学生的编号，成绩和字母等级，每个学生占一行。【程序22】某屠宰场杀猪有一习惯，把每天要杀的n头猪按顺序排成一排，将排在单号位置的猪杀掉；然后把剩下的猪按上一次相对的位置排好，重新编号后再将排在单号位置的猪杀掉，重复前面的过程，直到剩下一头猪时停止杀猪，将这头猪放回，等待明天再杀。有一头聪明的猪摸准了这个规律，事先找好位置，使得它每天都不会被杀。求当总共有n头猪时，这个聪明的猪应该站在什么位置?(n由键盘输入)【解题指导】
采用数组存储猪的编号，即初始时利用循环语句令a[i]=i，接下来开始模拟杀猪过程，每次杀猪时，奇数位置的猪都被杀掉，偶数位置的猪重新编号，可以令a[i]=a[i]*2表示偶数的猪重新编号的情况，一次杀猪过程完后，猪的数量应该只剩n\2头了，以这n\2头猪为新的n重新杀猪，如此下去，直到n=1就表示只剩最后一头猪了。【程序23】编号为1，2，......，n的n个人按照顺时针方向围坐一圈。从第一个人开始顺时针方向自1开始报数，报到m时停止报数。报m 的人出列，从他在顺时针方向的下一个人开始重新报数，如此下去，直到所有人全部出列为止。设计一个程序来求出出列顺序。其中n,m由键盘输入。 【程序24】随机数产生时通常会有重复，现要求产生20个100以内的保证不重复的随机数存入数组，最后按从小到大的顺序输出这个数组，要求输出在同一行，每个元素之间用空格隔开。【程序25】某侦察队长接到一项紧急任务，要他在代号为A，B，C，D，E，F的六个侦察对员中选出若干人去侦察一件案子。由于每个侦察队员特长不同，针对这个案子，所需的人选必须注意以下几个条件：
⑴ A，B两人至少去一人；
⑵ A，D不能一起去；
⑶ 若D不去，则E也不去；
⑷ B，C两人都去或都不去；
⑸ C、D两人中去一人；
⑹ A、E、F三人中要派两人去。
请问应该让谁去？【程序26】让计算机产生一个1000以内的随机整数，从键盘上输入一个自然数，若正确，则输入猜对的提示，否则提示输入的数是大了还是小了。最后输出所猜的次数。【程序27】输入正整数a，对它进行质因式分解。例如：
输入：20
输出：20=2*2*5【程序28】用物理天平测量物体的质量时，测得物体的质量为a克(a为整数，并小于1千克)，问：这时在天平的砝码盘中应有哪几个砝码?请选用最少数量的砝码(天平的砝码由下列质量的砝码组成：500克1个，200克1个，100克2个，50克1个．20克1个，10克2个，5克1个，2克2个，1克1个)。【程序29】设有n盏灯，放在一排，从1～n依次顺序编号。有n个人也从1到n依次编号。第1个人(1号）将灯全部关闭，第2个人(2号)将凡是2的倍数的打开，第3个人(3号)将凡是3的倍数的灯做相反处理(该灯如为打开的，则将它关闭，如关闭的则将它开)，以后的人都和3号一样，将凡是自己号数倍数灯做相反处理。键盘输入n，输出最后还亮着的灯的编号，每个编号之间用空格隔开。【程序30】 有一推理题：警官在死者被害现场发现A、B、C、D四名犯罪嫌疑人。讯问中，A说“我没有杀人”，B说“C是凶手”，C说“杀人者肯定是D”，D说“C在冤枉好人”。现已知：四人中有三人说的是真话，一人说的是假话，四名犯罪嫌疑人中有且只有一人是凶手。请编程判断到底谁是真正的凶手。【程序31】输入一个十进制整数，输入对应的二进制数【程序32】某次运动会上，八位运动员的100M比赛成绩(单位：秒)如下：
运动员号码(Number) 100M比赛成绩(Score)
860 12.7
576 11.3
301 13.5
455 12.6
102 12.0
377 11.0
023 12.5
530 13.2
要求按100M比赛成绩(score)排序，显示出前三名运动员的号码和成绩。【解题指导】
最好利用记录类型存储运动员信息【程序33】在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。
□3*6528=3□*8256
最后要求输出整个完整的等式。 【程序34】任何一个正整数的立方都可以写成一组相邻奇数之和。
如: 33=7+9+11=27 43==13+15+17+19=64
这就是尼科彻斯定理，请编写程序验证该定理，输出任意整数，输出格式参考下面的样例：
输入：4
输出：4(3)=13+15+17+19=64【程序35】来自不同国家的四位留学生A,B,C,D在一起交谈，他们只会中、英、法、日四种语言中的2种，情况是，没有人既会日语又会法语；A会日语，但D不会，A和D能互相交谈，B不会英语，但A和C交谈时却要B当翻译，B,C,D三个想互相交谈，但不到共同的语言，只有一种语言3人都会，请编程确定A,B,C,D四位留学生各会哪两种语言。【程序36】一辆以固定速度行驶的汽车，清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的，这个数是95859，7小时后，里程表上又出现一个新的对称数。问此车的时速是多少（是一整数）？这个新的对称数是什么？设里程表为5位数字。 【程序37】小红今年12岁，她父亲比她大20岁，编一程序，计算出她的父亲在几年后比她年龄大一倍。那时他们的年龄各为多少？【程序38】某校一等奖学金认定办法如下：
⑴所考五门课成绩总分超过450分；
⑵每门课都在88分以上；
⑶前3门课（主课）每门成绩都在95以上，其他2门（非主课）每门成绩在80分以上。
凡满足上面任意一个条件都可认定为一等奖学金，输入某学生的5门课成绩，判定他是否能获得一等奖学金。窗体顶端窗体底端 【程序39】 利用下列公式计算并输出π的值：
π/4=1-1/3+1/5-1/7+...+1/(4n-3)-1/(4n-1) n=10000【程序40】 输入两个整数，求出它们的最大公约数和最小公倍数。【程序41】计算表达式的值:s=1-1/2+1/3-1/4+…+1/99-1/100【程序42】 某商场近期搞优惠活动，优惠办法如下：
购物不足250元的，没有折扣；
购物满250元（含250，下同）不足500元的，减价5%；
购物满500元不足1000元的，减价10%；
购物满1000元不足2000元的，减价15%；
购物满2000元的，减价20%。
输入货款，计算顾客实际应付的金额。【程序43】用筛法求素数.(255以内)【程序44】高精度加法和减法【程序45】用递归方法求幂函数m^n.输入M,N求幂 【程序46】打印 1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6 以下是回朔法部分【程序47】输出n,输出其排列数输入:3输出:123 132213231312321 【程序48】输出n,m,(n>m)输出组合数输入:5 3输出:123 124 125 134 135 145 234 235 245 345 【程序49】n皇后问题,在n*n棋盘上,求放n个皇后的方案数.输入:8输出:92 【程序50】老鼠走迷宫,n*n迷宫,1代表墙,0代表路,起点为(1,1),终点为(n,n),求一条最短的路.输入:40 1 0 00 0 0 01 0 1 10 0 0 0输出:(1,1)(2,1)(2,2)(3,2)(4,2)(4,3)(4,4) 6 【程序51】一个旅行者有一个最多能用m公斤的背包，现在有n件物品，它们的重量分别是W1，W2，...,Wn,它们的价值分别为C1,C2,...,Cn.若每种物品只有一件求旅行者能获得最大总价值。输入：5 10 2 3 3 2 4 4 5 6 5 5输出：11 以下是查找和排序 【程序52】快速排序实现【程序53】二分查找实现【程序54】插入排序实现【程序55】冒泡排序实现
温馨提示：答案为网友推荐，仅供参考