我的孩子今年小学五年级，要参加Turbo Pascal 7.0小学程序设计竞赛
我是青岛人，孩子13号要参加青岛市的竞赛，各位高手给出的答案都很好，我想都采纳为答案可以吗？
最新回答
幽兰黛尔
2024-10-23 11:12:44
Y= (COS(X+7.5))2 10≤X<20
(COS(X+4.0))4 20≤X<30
2. 读入一个三位数字的正整数,将其反向输出.
3. 输出三个数中的最大数.
4. x,y,z的值分别为1,11,111,将它们靠左边对齐输出.
5. x,y,z的值分别为1,11,111,将它们靠右边对齐打印输出.
6. 对于输入的方程系数,求二元一次方程组的解.
7. 输入两整数,求出它们的最大公约数和最小公倍数.
8. 对于输入的MAX个数字,统计其中奇,偶数的个数.
9. 找出10个数中的最大和最小数字.
10. 吉普车问题.希望一辆吉普车以最少的燃料消耗跨越1000公里的沙漠. 现已知吉普车总装油量为500升,耗油率为 1 升/公里.在沿途无加油站. 所以利用吉普车自己运油逐步前进.问要多少油才能使吉普车以最少油耗跨越 1000公里沙漠.
11. 求下面第N个fibonacci数.其定义为
f(0)=0,f(1)=1,f(n)=f(n-1)+f(n-2) (n>=2)
12. 求下面的Armstrong数,Armstrong数是一个N位数,它的值等于每位数字的N次幂的和.例如153=1^3+5^3+3^3.试求999以内的Armstrong数.
13. 马戏团有鸟和大象,它们共有 36 个头,100只脚.问有多少只鸟和大象.
14. 100匹马驮100担货,大马一匹驮3担,中马一匹驮2担,小马2匹驮1担.计算大,中,小马的数目.
15. 打印数字金字塔. 1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
...................
16. 找出2000以内的勾股数. (a2=b2+C2)
17. 将1元钱兑换成1,2,5分及1,2,5角钱,有多少种可能?
18. 打印乘法口诀表.
19. 有一对兔子,出生一个月后变成一对小兔子,两个月后生出第一小兔子, 自己变成一对老兔子,此时共有二对兔子,(一老一小),三个月后,老兔子又生出一对小兔子,上个月生的小兔子变成大兔子,此时共有三对(老,大小各一对),四个月后,大变老,小变大,二对老兔子又生二对小兔子,此时共有五对(老,小各二对,大的一对)...计算11个月后共有多少对兔子？
20. 打印方阵 A B C D E
B C D E A
C D E A B
D E A B C
E A B C D
21. 按字母表顺序和逆序每隔一个字母打印.即输出如下:
a c e g i k m o q s u w y
z x v t r p n l j h f d b
22. 计算机产生一个 0-100的随机整数,由你猜.计算机对你猜的数分别不同情况作出三种不同的反应,太大(TOO BIG),太小(TOO SMALL),正好(FIT).当猜着时,就输出你猜的次数和猜中的数.
23. 如果一个自然数等于它的全部约数(不包括这个数本身)之和,则这个自然数称为完全数.例如6本身以外的约数为 1,2,3,而6=1+2+3所以6是一个完全数.求出自然数中前3个完全数.
24. 将一真分数写成几个分子是一的分数的和的形式.
25. 有趣的数学问题: 某学校组织 M 名学生前往离校 X 公里处参加军事训练.可是,目前只有一部可坐 N 个人的汽车,其中M>=N.假如已知学生们的步行速度为A公里/小时,汽车的速度是 B 公里/小时,其中 A<B,学生们上下车的时间忽略不计,试设计一个程序求出全体学生到达目的地的最短时间.
26. 现有零件若干盒,每盒有零件100个,一个小组在制作某种机器时,需要这种零件,第一,二天不需要,第三天需要3个,第四天需要4个..,第N天需要N天需要N个,已知此小组工作了40天以上,且恰好用了M盒零件,5<=M<=10,问此小组一共工作多少天,用了几盒零件?
27. 验证哥德巴赫猜想.任意大于 6 的偶数均可表示为二素数之和.
28. 编程找出M,N(M<N,N为自然数)为何值时,1989的M次方与1989的N次方的最后三位数相等,且M+N的值最小.
29. 求1/a+1/b,1/a+1/b+1/c,a/b+c/d的最简分数值.
30. 打印 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
31. 输入5数,倒序输出.
32. 不用条件语句计算各分数段人数.
33. 约瑟夫环问题,max人围成一圈,每数到jump,则该人出圈,直至所有人全部出圈为止. 试求出圈顺序.
34. 约瑟夫环问题:
编号为 1,2,3,......,N 的N个人按顺时针方向围坐一圈,每人持有一个密码(正整数).从指定编号为 1 的人开始,按顺时针方向自 1 开始顺序报数,报到指定值M时停止报数,报第M的人出列,并将他的密码作为新的M值,从他在顺时针方向的下一人开始,重新从 1 报数,如此类推,直至所有人全部出列为止.试编一程序求出列顺序,其中 N<=30,N及密码数从键盘输入.
35. 编制一程序,要求输出20个数字(0-9),然后统计出在这个数组中相临两数字对出现的次数,如:0,1,5,9,8,7,2,2,2,3,2,7,8,7,8,7,9,6,5,9.则程序得到7,8这一数字对出现次数为2;而8,7这一数字对出现次数为3.
36. 1.63 如图: 7 个学生按顺时针
① 方向手拉手围成一圈,并顺
1.72 ⑦ ② 1.70 序编号 ① ... ⑦, 用一
1.64 ⑥ ③ 1.60 个程序描述这 7个人按身高
1.67 ⑤ ④ 1.68 由矮到高重新排列面向内手
拉手的位置关系.
图中小圈内的数字为编号, 小圈外的数字为各人的身高.
37. 读入若干个数,滤掉中值为20的数.
38. 任意输入N，求数列1,1/2,2/2,1/3,2/3......的前N项。
39. 将1..8k的自然数表示成2k行,要求奇数在下,偶数在上.(k>0)
例如k=1,则输出: 2 4 6 8
1 3 5 7
k=4,则输出: 2 4 6 8
1 3 5 7
10 12 14 16
9 11 13 15
18 20 22 24
17 19 21 23
26 28 30 32
25 27 29 31
40. 打印数字螺旋方阵,这个数字方阵的特点是:数字从外圈向里圈按自然数顺序转圈递增,从左上角的1到中心位置的N*N为止,这里的N正好是方阵的行数或列数.
41. 编写一过程, 读入一个实型表示的度数,将其变成度,分,秒并显示.
42. 编一过程, 打印直方图,直方图为4行,每列表示1% .
43. 编写一个函数, 返回一正整数的倒序数字.
44. 编写一个过程, 倒序输出一正整数每位数字.
45. 幻方(奇阶和4的倍数阶).
(详见Turbo Pascal的Page 146-17)
46. 打印由1——N*N组成的N*N的螺旋方阵. (N<=50)
例如: N=3 N=4
7 8 9 7 8 9 10
6 1 2 6 1 2 11
5 4 3 5 4 3 12
16 15 14 13
47. 验证任意自然数的阶乘均可表示为任意个素数的乘积的形式.表示方法:
例如: 5!=2*2*2*3*4*5
48. 以输入的自然数N作为行数, 打印杨辉三角形.
49. 求出输入的N个自然数的最大公约数.
50. N 个人进入会场开会(场内只有 N 个坐位), 本应对号入坐,可是N个人全都坐错了位置, 编程输出全都坐错了位置的所有可能坐法,并累计总数,N由键盘输入.
51. 求B/A+D/C.结果表示成最简分数.
52. 求I!+J!+K!,其中I,J,K由键盘输入.
53. 求N!.
54. 将十进制数变为等值二进制数字.
55. 根据键盘输入的两个数G和H,求出[G,H]中的所有质数.如果G<=2或G>H则要求重新输入.
56. 用递归方法求幂函数mn.
57. 跳马问题,5*5方阵,从左上角出发,跳遍所有格.
58. 一梯子有N格,小明上梯子有时一步上1格,有时一步上2格,编一程序,对任意输入的自然数N,打印出上梯子的所有可能的上法,并指出一共有多少种上法?
59. 第 13 届世界杯足球赛进入前八名的国家:
ARGENTINA(阿根廷),ENGLAND(英格兰),SPAIN(西班牙),BELGIUM(比利时)
GERMANY (西 德),MEXICO (墨西歌),FRANCE(法 国),BRAZIL (巴 西)
这八个国家的英文名藏在一个字块中:
A M U I G L E B P
P R W Y U B W R Y 需要设计一个程序查找这八个
W V G S T E X A N 国家的第一个字母所在的行和列以
Q N Q E C Y M Z A 及字母的走向.字母的走向规定为
H O R N N Z E I M 八个方向,分别用八个字符串加以
W P A G L T X L R 标注,如图:
J R M L K J I L E UP LEFT UP UP RIGHT
F S P A I N C N G LEFT RIGHT
A K W N G F O I A BOEN LEFT DOWN DOWN RIGHT
B P J D C D E H J
要求按国名字符的先后次序打印查找结果, 输出格式规定如下:
NAME(国名) ROW(行) COL(列) DIRECTION(方向)
60. 如果一个自然数N写在每个自然数之后则得到一个新数,它们都能被N整除. 请找出.
61. 编一过程READOCAL,读入八进制序列,转换成正整数.
62. 设计一程序,要求在1到30的数中,读入一个数字,列出它的平方,立方和它本身都含有数字D的数,例如1,则11,121,1331都是这样的数.
63. 判断一数是否回文数.
64. 设计一个递归函数计算一个自然数有多少种加表示法.
例如:5的加表示法有如下 7 种:
5,4+1,3+2,3+1+1,2+2+1,2+1+1+1,1+1+1+1+1
65. 设计一个计算Ackerman函数的函数说明.Ackerman函数定义为:
Ack(0,n)=n+1 (n>=0)
Ack(m,o)=Ack(m-1,1) (m>=1)
Ack(m,n)=Ack(m-1,Ack(m,n-1) (m,n>=1)
66. 10数已排好序,现要插入一新数,使得新数列仍为排序数列.
67. 设p(x)是十进制整数x的所有数码的乘积,如整数12 的p(x)值为1*2=2. 试求使下式成立的一切正整数: p(x)=x2-10x-22 .
68. 识别字符串abababab...,符合此规律的字符串,输出true,否则输出false,字符串总长度为N.
69. 编写布尔函数,以函数f为自变量,如果在x=0,0.1,0.2,0.3...1.0时,f(x)均为正,则布尔函数值为true,否则为false.
70. 在1( )2( )3( )4( )5=( )中填入+,-,*及合理数字,使之成为合理等式.
71. 在1()2()3()4()5()6()7()8()9=S中填入加减号使式子成立.
72. 在下面算式○中填入加号或减号,使算式结果等于键盘输入的S(S<200的自然数,且 S 是 9 的倍数).如果某个○不填符号,则将前后两个数字连成一个数(如:第一个○不填符号,即读成12),不允许相邻的两个○都不填符号.如果对S有多种填法,必须全部填出,如果找不到填法,则打印\'NO!\'.
1○2○3○4○5○6○7○8○9=S
73. 有如图方阵: R A D A R 试从其中任意R出发,找出产生RADAR
A D A R A 的路线.打印每一种方案.
D A R A D
A R A D A
R A D A R
74. 求1到500之间本身和它二进制全是回文数的数.
75. 计算s除以1992后的商及余数(利用了字符串).
76. 高精度加法.
77. 高精度乘法.
78．对于任意输入的字符串判定其数据类型.
79. 对于任意N个数,经过处理,要求奇数在前,偶数在后,找所有排法.
80.有一个火车调度如图:
出口 -----\\ /------ 入口 有5列火车分别编号1,2,3,4,5
-----\\ \\/ /------ 1,2,3,4,5 依次排列于入口处,调度员可以
\\ / 在任意时刻将入口处的头一列
| | 火车拉入车站.也可将最后进入
| | 车站的那列火车拉至出口处.
车站
编程要求: 1.模拟调度员的工作,使所有入口处的火车在出口处重新排列;
2.打印出所有的火车在出口处的可能次序;
3.若入口处的火车进一步增加到 N 列呢?
81. 设 X 为一个一维整数数组,其元素由1--N之间的所有整数随机排列,数组下标上限N由键盘输入. 设计程序对数组X 的元素按如下定义的打印规则P打印:
(1) 如果 X 为空数组,打印"EMPTY";
(2) 如果 X 的长度是 1,打印出 X 的这个元素值;
(3) 如果 X 的长度大于1,设a是X的最小元素,B和C分别是a的左边元素和右边元素组成的子数组;
(4) 对B,C的所有元素按(1)(2)(3)规则处理,直至数组长度为1 为止.
打印规则 P 将 X 数组的所有元素按上述处理原则打印,格式如下:
a
L:B(L 表示 a 的左边)
R:C(R 表示 a 的右边)
例如: X=(4,3,5,1,2),则打印成:
1
L: 3
L: 4
R: 5
R: 2
上述结果表示,数组X的最小元素为 1,1的左边元素组成的子数组B=(4,3,5) 而B的最小元素为 3, 3的左边元素为 4,右边元素为 5; 1的右边元素组成的数组为C=(2),只有一个元素.
82. 要求设计一个程序,在每行的字间插入适当空白,使得所有行都在同一列结束.例如:
OPEN TOP COVER
TRACTOR FIXING RELEASE
在插入空白后变成:
OPEN TOP COVER
TRACTOR FIXING RELEASE
在每行字间插入空白时除了右端需对齐外,还需满足:
(1) 在不同的相临字间的空格最多相差 1;
(2) 对偶数(奇数)行, 所必须出现的空格出现在右端(左端).
83. 对键盘输入的任意字符串,比较其相临的每两个字符,相同则输出+,不同输出-,再对新生成的+,-串作同样处理,直至剩一个字符为止.
例如: 输入: 101101
则输出: --+--
+--+
-+-
--
+
84. 有 N*M (N列M行)张邮票连在一起,但其中第T张被挖掉了.
举例:下面是4*5的邮票情况,其中第 13 张被挖掉了,
┌—┬—┬—┬—┐ 现在要求从这些邮票中撕出4张连在一起的邮
│ 1│ 6│11│16│ 票如1,2,3,4或1,2,6,7或 1,2,6,11等,
├—┼—┼—┼—┤ 问符合条件的4张相连的邮票有多少种撕法?
│ 2│ 7│12│17│ (注:1,2,3,4 与2,3,4,5看作不同撕法)
├—┼—┼—┼—┤ 要求编写一个通用程序,并按如下格式打印:
│ 3│ 8│ │18│ 输入: 撕几连张?
├—┼—┼—┼—┤ 邮票形状 N,M=?
│ 4│ 9│14│19│ 被挖掉的邮票位置 N1,N2=?
├—┼—┼—┼—┤ 输出: 打印所有撕法及总方案数.
│ 5│10│15│20│
└—┴—┴—┴—┘
85. 高精度乘方.
86. 有一个 N*N (N为偶数)的图形,请你用 N*N/2 个长为 2,宽为1 的长方块,将它全部覆盖,编程找出所有盖法.要求每一种盖法不能重复,这里的重复是指经过旋转一个角度,或反过来时相同,输出最好用图形,也可用别的方式.
87. M*N 矩阵的各顶点随机填 0 和 1, 找出第一个四顶点值相同且面积最小的矩形.
88. 输入任一单词,统计其中元音和辅音字母出现的次数.
89. 设有一集合类型为set of 1..n,n是主程序中用const说明的整数,试编一过程求出集合元素的个数.
90. 编一函数,决定一给定字符是字母,数字,空格,标点符号或其它符号.
91. 编一函数,若传递给它的整数仅包含数字1,3,5,7,9,则返回true,否则返回 false.
92．用筛法求素数.(255以内)
93. 将十进制数N转化为二进制,并将1的所在位数存于集合.
94．城市路线问题(如图) ,寻找最短路线.图中括号内为里程数.
⑽
┏━━━━━━━━━━┓
┃ ⑺ ┃
⑺┏━━━━B━━━━━━┓ ┃
┃ ┃ ┃ ┃
┃ ┏━━╋━━C━━━┻━┓ ┃
┃⑹┃ ┃ ┃ ┃ ┃
┃ ┃ ┃ ⑼┃ ⑸┃ ┃
A ━┫ ┃ ┃ ┃ ┃
┃ ┗━━╋━━╋━━━━━━D┫
┃ ⑽ ┃ ┃ ┃
┃ ┃ ┃ ┃
┃ ┗━━┻━━━━━┓ ┃⑹
┃ ⑽ ┃ ┃
┗━━━━━━━━━━━━━E━┛
(13)
95. 一笔画问题. 找出一笔画遍全图的所有方法.
96. 数码管问题.找每两个位数字的数码笔画相差一的五位数. 1
┌—┐
2│ │3
├ 4┤
5│ │6
└—┘
7
97. 四色原理问题.
98. 表达式求值.( 包括+,-,*,/,^,(,) ).
99. 有一种绝对回文数,其十,二进制均为回文,请打印出1--500之间的绝对回文数(二进制最前面的0不能算).例如99(1100011)即是。
100. 一人带狼,羊,白菜过河,狼吃羊,羊吃白菜,河中只有一条船,此人一次只能带一物过河.用最少步全部过河.
100道题``练习是够了 答案的话可以问你孩子的老师``
这些题有些比较基础的可以做 觉的难的可以放弃``因为许多东西你的孩子还没学到``
天空爱上了诺言
2024-10-23 10:51:05
小明发现了一个有趣的现象，有些数字（例如：2333）是个质数，将末尾数去掉后发现他仍然是质数，依此类推，一直到第一位仍是质数。现在给定n和m的值，求在这个范围内这所有的种数字。
示例：输入：2332 2334
输出：2333
答案：
var n,m:integer;
b,c,q,i,j,k,o:integer;
label 10;
begin
readln(n,m);
for i:=n to m do
begin
b:=1;
for j:=2 to (i-1) do
if (i mod j) = 0 then b:=0;
if b<>0 then
begin
o:=i;
while o<>0 do
begin
o:=o div 10;
for k:=2 to (o-1) do
if (o mod k)=0 then begin c:=0;goto 10; end
else c:=1;
end;
if c=1 then begin writeln(i);q:=q+1; end;
10:
end;
end;
write(q);
end.
（程序没做调试，应该没问题）
小猪喜欢吃苹果。猪妈妈想考考小猪，让小猪一次性的把最大的苹果选主来。你能帮帮小猪么？
说明：输入苹果数n和每个苹果的质量，打印最大的苹果质量和第一次出现的位置。使用文件输入输出
示例：输入：
5
1 3 2 5 4
输出：
4
5
答案：
var a:array[1..10000] of integer;
n:integer;
i,j:integer;
max:integer;
label 10;
begin
assign(input,'pig.in');
reset(input);
assign(output,'pig.out');
rewrite(output);
readln(n);
max:=0;
for i:=1 to n do
begin
read(a[i]);
if (max<a[i]) then max:=a[i];
end;
for i:=1 to n do
if a[i]=max then begin j:=i; goto 10; end;
10:
writeln(j);
write(max);
close(input);
close(output);
end.
热门标签
