free pascal题目

【顺序结构题目】
1、输入圆的半径，输出圆的面积和周长。
2、输入长方形长和高，输出长方形周长和面积。
3、输入梯形上底、下底、高，求梯形面积。
4、输出两个自然数相除的商和余数。
5、自然数的立方可以表示为两个整数的平方之差，比如43=102－62，请输出自然数1996的这种表示形式。(这里的43用自乘三次的形式4*4*4表示；102也用自乘二次的形式10*10表示)
6、用字符输出一个猪锦佳的头像。
7、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
8、输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
9、从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
10、从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。
要求：分三行输出；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
11、输入一个时、分、秒，把它转换为一个秒数。
12、输入一个秒数，把它变成00：00：00的形式。
13、输入三角形三个边，输出三角形面积。（利用海伦公式）
P=(a+b+c)/2 s=sqrt(p*(p-a)*(p-b)*(p-c))
14、输入2个数值A和B，交换2个数值。
15、分钱游戏。甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数相同；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。求原先各人的钱数分别是多少?
16、有鸡兔同笼，头30，脚 90，究竟笼中的鸡和兔各有多少只?
17、.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？
18、甲、乙、丙三人分别有磁带36，48，64盒。先由甲把自己的磁带平均分为三份，分给乙、丙各一份，自己留下一份；接着是乙，最后是丙，都按甲的方法处理。编程输出甲、乙、丙在上述过程中各人的磁带数分别是多少? (输出所有的中间结果)
19、五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少?

【选择结构题目】
(1) if 条件 then 语句；
(2) if 条件 then 语句1 else 语句2；

1、输入两个数a,b，输出较大数的平方值。
2、输入两个数a，b，输出较大的数。
3、读入三个不同的数，编程按由小到大的顺序排列打印出来。
4、某全自动加油站a,b,c三种汽油的单价(元/kg)分别是1.50、1.35和1.18，也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。编一个程序，用户输入加油量、汽油品种和服务类型(f-自动，m-自己，e-协助)，然后计算应付款。
5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。
6、铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。
7、某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。
8、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算来使程序更简明）
9、打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能被100整除；或者能被400整除的整数年份。B、利用MOD运算可以判断一个数能否被另一个数整除）
10、编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。

Case 表达式 of
情况常量表1: 语句1；
情况常量表2: 语句2；
: :
情况常量表n: 语句n
end；

11、对某产品征收税金，在产值1万元以上征收税5%；在1万元以下但在5000元以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。编程计算该产品的收税金额。
12、运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:
如果S＜250公里；运费为标准运价的100%
如果250公里＜＝S＜500公里，运费为标准运价的98%；
如果500公里＜＝S＜1000公里，运费为标准运价的95%；
如果1000公里＜＝S＜2000公里，运费为标准运价的92%；
如果2000公里＜＝S＜3000公里，运费为标准运价的90%；
如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。
13、输入考试成绩，如果获85分以上为 A等，获60分～84分为B等，60分以下为C等，编程输出考试等级。
14、某车间按工人加工零件的数量发放奖金，奖金分为五个等级：每月加工零件数N < 100者奖金为10元；100 < = N < 110者奖金为30元；110 < = N <120 者奖金为50元；120 < = N <130 者奖金为70元；N > 130者为80元。
请编程，由键盘输入加工零件数量，显示应发奖金数。
15、从键盘上读入年和月，输出该月有多少天。

【循环语句】
for 循环语句有两种格式:
(1) for 循环变量:=初值 To 终值 do 语句；
(2) for 循环变量:=初值 downto 终值 do 语句；

while 布尔表达式 do 语句；

repeat
循环体语句；
until 条件表达式；｛直到条件为真｝
1、计算下列式子的值：
（1）1+2+……+100
（2）1+3+5+……+97+99
（3）1-3+5-7+9-11+……n
2、求水仙花数。所谓水仙花数，是指一个三位数abc，如果满足a^3+b^3+c^3=abc，则abc是水仙花数。
3、宰相的麦子：相传古印度宰相达依尔，是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他想要什么。达依尔说：“只要在国际象棋棋盘上（共64格）摆上这么些麦子就行了：第一格一粒，第二格两粒，……，后面一格的麦子总是前一格麦子数的两倍，摆满整个棋盘，我就感恩不尽了。”国王一想，这还不容易，刚想答应，如果你这时在国王旁边站着，你会不会劝国王别答应，为什么？
4、百钱百鸡。公鸡5块，母鸡3块，小鸡1块3支。
6、打印下列图案：（输入N值来控制图案的规模，下列图案均以N=3为例）
&
& &
& & &

& & &
& & &
& & &

*
* * *
* * * * *

# @ *
# # @ @ * *
# # # @ @ @ * * *
7、输入20个数，按照5个一行输出。
8、一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。
9、把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。求所有符合这样条件的四位数。
10、打印出九九乘法表:
11、从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。
12、数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。
13、输出1000以内所有的素数。
14、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?
15、在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。 □3*6528=3□*8256
16、有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三位数。
17、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。
18、编程序打印出下列图案：
平行四边形等腰三解形菱形
****** * *
****** *** ***
****** ***** *****
****** ******* ***
****** ********* *
19、编程打印出如下图案：
1
222
33333
4444444
555555555
20、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元；第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。
21、某人想把一元钱换成伍分、贰分、壹分这样的零钱，在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。
22、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。
23、求两个数的最小公倍数和最大公约数。
24、编写一个译码程序，把一个英语句子译成数字代码。译码规则是以数字1代替字母A，数字2代替字母B，……，26代替字母Z，如遇空格则打印一个星号‘*’，英文句子以‘.‘结束。
25、输入一个正整数N，把它分解成质因子相乘的形式。
如：36=1 X 2 X 2 X 3 X 3； 19=1 X 19
（提示：设因子为I，从2开始到N，让N重复被I除，如果能整除，则用商取代N，I为一个因子；如果不能整除，再将I增大，继续以上操作，直到I等于N。）
26、校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人?
27、从键盘输入一个整数X（X不超过10000），若X的各位数字之和为7的倍数，则打印“Yes”，否则中打印“No”。
28、求1992个1992的乘积的末两位数是多少？
29、尼科彻斯定理：将任何一个正整数的立方写成一组相邻奇数之和。
如: 33=7+9+11=27 43=13+15+17+19=64
30、猜价格：中央电视台的“幸运52”栏目深受观众喜爱，其中的“猜商品价格”的节目更是脍炙人口，现在请你编一个程序模拟这一游戏：由计算机随机产生200至5000之间的一个整数，作为某件商品的价格，然后由你去猜是多少，若你猜的数大了，则计算机输出提示“Gao”，若你猜的数小了，则计算机输出提示“Di”，然后你根据提示继续猜，直到你猜对了，计算机会提示“Ok”，并统计你猜的总次数。
解：本题的游戏规则大家都清楚，要完成程序，必须把处理步骤理清：
（1）用随机函数Random产生200至5000之间的一个整数X；
（2）你猜一个数A；
（3）若A＞X，则输出“Gao”；
（4）若A＜X，则输出“Di”；
(5)若A＝X则输出“Ok”；
(6)重复(2)(3)(4)(5)直到A=X。
31、小会议室里有几条相同的长凳,有若干人参加开会。如果每条凳子坐6人,结果有一条凳子只坐有3人;如果每条凳子坐5人,就有4人不得不站着。求会议室里有多少人开会,有多少条长凳?
32、某动物饲养中心用1700元专款购买小狗(每只31元)和小猫(每只21元)两种小动物。要求专款专用,正好用完, 应当如何购买?请输出所有方案。
33、某整数X加上100就成为一个完全平方数,如果让X加上168 就成为另一个完全平方数。求X?
34、某次同学聚会,老同学见面个个喜气洋洋,互相握手问好。参加此次聚会者每人都与老同学握了一次手,共握903次,试求参加聚会的人数？
35、用自然数300，262，205，167分别除以某整数A，所得到的余数均相同。求出整数A以及相除的余数？
36、1600年前我国的一部经典数学著作中有题：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二，问物几何。”求最小解。
37、编程求出所有不超过1000的数中，含有数字3的自然数，并统计总数。
38、阿姆斯特朗数：如果一个正整数等于其各个数字的立方和，则该数称为阿姆斯特朗数（也称自恋数），如407＝43＋03＋73，试编程求出1000以内的所有阿姆斯特朗数。
39、将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下, 如何截才能余料最少。
40、甲、乙、丙三人都是业余射击爱好者, 在一次练习中他们枪枪中靶: 甲射了八发子弹,取得225环成绩,乙射了七发,也取得225环;丙只射了六发,同样取得225环。下面是成绩表,请编程完成下表中空项的填数。
41、求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
42、Faibonacci数列前几项为: 0,1,1,2,3,5,8,…,其规律是从第三项起, 每项均等于前两项之和。求前30项, 并以每行5个数的格式输出。
43.小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?
44.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此。到第七天,距山顶还剩91米。求此山峰的高度?
45.给出某整数N,将N写成因数相乘的形式。如: N=12,输出: 12=1*2*2*3.
46.出售金鱼者决定将缸里的金鱼全部卖出。第一次卖出全部金鱼的一半加二分之一条;第二次卖出剩余的三分之一加三分之一条金鱼;第三次卖出余下金鱼的四分之一加四分之一条;第四次卖出余下的五分之一加五分之一条金鱼。还剩下11条金鱼。当然,出售金鱼时都是整数条,不能有任何破损。求缸里原有的金鱼数?
47.外出旅游的几位朋友决定次日早晨共分一筐苹果。天刚亮,第一个人醒来,他先拿了一个,再把筐里的八分之一拿走;第二个人醒来,先拿两个,再把筐里的八分之一拿走;第三个人醒来,先拿三个,再拿走筐里的八分之一;…每个人依次照此方法拿出各人的苹果,最后筐里的苹果全部拿完,他们每人所拿到的苹果数正巧一样多。求原先筐里的苹果数和人数。
48.图中由6个圆圈构成三角形,每条边上有三个圈, 将自然数1--6 不重复地填入各圆圈位置上,使每条边圆圈上的数字之和相等,请编程输出所有的填法。
49、求n!
50、求1！+2！+……+n！

您可能感兴趣问答

Collapsible

热门标签

热点问答