free pascal题目

我想要一些关于小学生竞赛的一些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!
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-05-12
你可以上www.vijos.cn,然后在题目分类里面选择难度为0或1的来做。
在上面注册以后,如果你不会解某个题目,可以在“题解”里面看到别人的思路,非常适合小学生做。
第2个回答  2010-05-11
http://www.ssxdzx.net/bas/
这个不错!挺简单。
要想给小学生……可以从初中课本中找些数学题,改一改。本回答被提问者采纳
第3个回答  2010-05-13
pku 1003, 1004, 1005, 1007, 1046, 1207, 1226, 1401, 1504, 1552, 1607, 1657, 1658, 1674, 1799, 1862, 1906, 1922, 1929, 1931, 1969, 1976, 2000, 2005, 2017, 2027, 2070, 2101, 2105, 2109, 2116, 2136, 2160, 2190, 2232, 2234, 2275, 2301, 2350, 2363, 2389, 2393, 2413, 2419
第4个回答  2010-05-12
用case编一个计算器

问几个关于free pascal的题目,急急急!(完成几道是几道)
1、输出如下图形。2、编写一程序,验证角谷猜想。所谓的角谷猜想是:"对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半。经过若干次这样的变换,一定会使n变为1。"3、有一堆100多个的零件,若三个三个数,剩二个;若五个五个数,剩三个;若七个七个数,剩五个。

懂free pascal语句的朋友进!,我有问题
第六题(这道和第五题本质上一模一样,只要读入处理输出时加个循环就好了)后面的题目表达我看不明白,就不写了,其实应该都很简单的

Free Pascal 求解
观察题意可以得知,如果第i位和第j位同色,那么就一定能够组成一个三元组,并且三元组的价值完全与中间那个数无关。那么,我们就用一个数组存储同奇偶性的同色方块。那么价值就是(num i+num j)*(i+j)现在把每组的数的下标用a1~an表示,数值用numa1~numan表示。答案就是(numa1+numa2)*(a1+...

Free Pascal的一个问题
x:=random(70)+1;\/\/随机生成0~69之间的数,不过加一,就是1~70了 if (x<>50) and (x<>60) and (x<>70) then \/\/满足题目要求,输出 write(x,' ');end;end.

free pascal
1.裴波那契数列:数列1、1、2、3、5、8、13、21…称为裴波那契数列,它的特点是:数列的第一项是1,第二项也是1,从第三项起,每项等于前两项之和。编程输入一个正整数N,求出数列的第N项是多少?(N不超过30)。program Project1;VAR a:array[1..30] of longint;{建立一个1-30的...

关于free pascal 的小问题...
begin c:=0.5*2;\/\/因为最后是刚好分完的,所以半个西瓜是剩下的一半,所以共剩下1个 b:=(c+0.5)*2;\/\/因为c是剩下的一半少半个,所以加上半个再乘以二 a:=(b+0.5)*2;\/\/理由同上 writeln('A',a:0:0,'B',b:0:0,'C',c:0:0);\/\/保留整数 end.不懂得再来call我好了 ...

编程Free Pascal,30分!!救救初一小朋友~~~
(3)是正确的,在整型、实型的混合运算中,整型可以转换为实型参与运算.(4)是错误的,标识符前面不能加任何数字、字母;(5)是正确的,and是布尔型运算符,得到的是布尔型值 (6)是正确的. 因为是一个字符赋值给一个字符变量,类型相同.(7)是错误的. 字符不能直接赋值给一个数值型变量.(8)是...

free pascal习题
设有一个长度N的数字串,要求选手使用K个乘号将它分成K+1个部分,找出一种分法,使得这K+1个部分的乘积能够为最大。同时,为了帮助选手能够正确理解题意,主持人还举了如下的一个例子:有一个数字串: 312,当N=3,K=1时会有以下两种分法:1)3*12=36 2)31*2=62 这时,符合题目要求的结果...

FreePascal问题
var x,n,i:longint;begin readln(n);x:=1; i:=3;while i<=n do begin x:=x*i;inc(i,2);end;writeln(n,'!!=',x);end.

猫吃老鼠的程序问题,用free pascal的,感激不尽!
你这个问题是一个很经典的问题,叫做约瑟夫问题!而你这道题目的规模不知道可以去到多大,如果是比较小的话,可以直接采用模拟的方法,可是当数据量达到n=10^100的时候,就明显会TLE了。所以这道题目最好的方法就是LS的方法了,找到它的规律,至于怎么找到它的规律的,这里有一个范例,当然,找规律的...

相似回答