For语句习题

For 语句习题

1、出1到100之间所有偶数之和。文件名为:for-1.pas。

2、输入一个自然数,输出这个自然数所有因子的和。文件名为:for-2.pas。

3、有64个方格的棋盘,第一格放一粒米,第二格放两粒米,第三格放四粒米,……。直到所有格子都有米。求一共放了多少粒米。文件名为:for-4.pas。

4、已知数列1,1,2,3,5,8,…….,N。输出前N项的和。文件名为:for-5.pas。

5、已知pi / 4 = 1 – 1/3 + 1 /5 – 1 /7 +1 / 9 – 1 / 11 +……+1 / (2 * I – 1),求pi。文件名为:for-6.pas。

6、输入N个自然数,输出最大数,最小数及平均数。文件名为:for-10.pas。

7、输入十个自然数(0<=N<=Integer)输出其最小值及这个最小值原来的位置。文件名为:EX5-1-1.pas。

8、计算1+2+2+3+3+3+4+4+4+4+……的值。文件名为:EX5-5-2.pas。

9、计算1+(1+2)+(1+2+3)+(1+2+3+4+……+N)的值。

文件名为:EX5-5-3.pas

10、输出1到999的数中能被3整除,且至少有一位数字是5的所有整数。

文件名为:EX5-5-4.pas

11、有1米,2米,3米,……19米,20米的木条各一根,任取其中的三根,有可能组成一个三角形,输出每三根能组成三角形的长度。

提示:3,4,5和4,3,5都组成三角形,但它们是同一个三角形。

文件名为:EX5-3-1.pas。

12、键盘输入10个正整数,输出从小到大排列,同时输出10个数原来的位置。

文件名为:EX5-6-3.pas。

13、求出1000以内的所有完数(也叫丑陋数)。

完数:N(除N以外)的所有约数之和等于N。

例如:6是完数。6=1+2+3

文件名为:EX5-7-1.pas。

14、打印1000以内的所有质数。文件名为:EX5-6-1.pas。

15、圆盘找数:如图。找出4个连续数(紧挨着的四个数),他们相加的和最大; 再找出他们相加的和最小的4个连续数。试编一个程序求出。文件名为:EX 5-6-2.pas 。

16、下图:将1到6分别填在下图的6个格子内,要求:每行中左边的数小于右边的数,

For语句习题

试编一程序,输出有多少种符合上图的排列。文件名为:forfor-2.pas 。

17、下图:将1到6分别填在下图的6个圆圈内,要求:每边的三个圈内的数之和相等,试编一程序,打印输出每一种。forfor-4.pas 。

例如:下图是一种。

1 6 4

3 2 5

18、任何一个n3一定可以表示成n 个连续的奇数和。输入n(n ≤100),输出n3对应的表达式。

文件名为:forfor-9.pas 。

题解

设表达式中的最小奇数为x 。

当n=1时,最小奇数x=1,1个奇数;n=2时,最小奇数x=3,2个奇数;

n=3时,最小奇数x=7,3个奇数;…;

当n=k 时,最小奇数x 前已有1+2+…+k-1个奇数,

即: n=1 n=2 n=3 n=4

奇数个数 1 2 3 4

当n= k =4时,最小奇数之前已有 (1+(k-1))*(k-1) /2=6个奇数,

最小奇数:6×2+1=13。

当n= k 时,第k 个奇数

x= =k*(k-1)+ 1 由此得出 : x=n*(n-1)+1

12*2

)1(*+-k k

var i,n,a:longint;{循环变量,连续的奇数个数,当前项,类型为长整型} begin

readln(n);{输入连续的奇数个数} a:=(n*(n-1))+1;{ 计算最小奇数}

for i:=1 to n-1 do {输出表达式的前n-1项} begin

write(a,’+’);

a:=a+2;

end;

writeln(a);{输出第n项} readln;

end.

For语句习题

For语句习题

For语句习题

For语句习题

19、填数游戏:* = * 文件名为:forfor-5.pas 有这样两个两位数,满足AB*CD=BA*DC。将1-9中的四个且各不相同的数分别填入。编一程序,输出所有等式。

20、窗框设计:(提交文件名:A1.PAS )

用总长为600厘米的木条,作成如下图所示的矩形窗框(包括中间两根档条),问窗框的长宽尺寸如何设计,才能使窗户的采光面积最大。编程打印输出采光面积最大的长和宽。长和宽都为整数厘米,第一行打印输出长,第二行打印输出宽。

For语句习题

21、字三角形:(提交文件名:forfor12.PAS )

由键盘输入正整数N(1≤N≤9),输出对应的数字三角形。

输入输出格式示例:

N :3

For语句习题

N :5

For语句习题

22、睡眠时间:(slept.PAS)

假若一个人在下午到午夜之间去睡觉,而从午夜到第二天上午之间起床。写一个程序,以秒为单位计算一个人晚间的睡眠时间。计算机要求输入你开始睡觉时间和醒来起床时间的时、分、秒(H为小时,1至12;M为分,0至59;S为秒,0至59),打印输出你的睡眠时间。

输入输出格式示例:

What time did you go to bed ? (你什么时间开始睡觉?)

H1 :10

M1 :45

S1 :32

What time did you get up ? (你什么时间醒来起床?)

H2 :7

M2 :34

S2 :47

You slept for 31755 seconds. (你的睡眠时间为31755秒。)

23、甲、乙两队各选三人参加乒乓球对抗赛,竞赛规则规定:甲队1号不与乙队1号比,甲队3号不与乙队1号比,甲队3号不与乙队3号比。试编一程序,输出两队对抗赛中每对选手的名单(号码)。(文件名为:4-spl-12.pas)

分析:

甲队:A B C

For语句习题

乙队:X Y Z

由图可以看出,C只能和Y比。A只能和X比。也可双和Y比。

24、求100到999中所有既是完全平方数,又是回文数。

25、格里高利公式就是数学中求圆面积或圆的周长的圆周率(PI)。公式是这样的:

PI / 4 = 1 – 1 / 3 + 1 / 5 – 1 / 7 + 1 / 9 – 1 / 11 + 1 /13 、、、、、、。

求:当等号右边为1百万项时,PI的值是多少。(文件名为:PI.pas)

26、输出如图的倒字母金字塔(文件名为:dsj.pas)qyc.pas

abcd……xyzyx……cba

abc……xyx……cba

………………

……………

…………

abcdcba

abcba

aba

a

27、输入一系列正整数,找出其中最大的。

28、计算最长平台。

提交文件名:ex5_8_1.PAS

在一个数字序列中,我们把相同数字所构成的子序列称为平台。已知数组中已经有若干个数,我们说这个数组中的一个平台,就是连续的一串值相同的数,并且这一串数不能再延伸。举例说,1223334556中,1,22,333,4,55,6都是平台。请写一程序,接受一个数组,把这个数组中最长平台找出来。

相关推荐
相关主题
热门推荐