发布时间 : 星期一 文章For语句习题更新完毕开始阅读dcdca8ee856a561253d36f07
For 语句习题
１、出１到１００之间所有偶数之和。文件名为：for-1.pas。
２、输入一个自然数，输出这个自然数所有因子的和。文件名为：for-２.pas。
３、有６４个方格的棋盘，第一格放一粒米，第二格放两粒米，第三格放四粒米，……。直到所有格子都有米。求一共放了多少粒米。文件名为：for-４.pas。
４、已知数列１，１，２，３，５，８，…….，N。输出前N项的和。文件名为：for-５.pas。
５、已知pi / 4 ＝ 1 – 1/3 + 1 /5 – 1 /7 +1 / 9 – 1 / 11 +……+1 / (2 * I – 1)，求pi。文件名为：for-６.pas。
６、输入N个自然数，输出最大数，最小数及平均数。文件名为：for-10.pas。
７、输入十个自然数（0<=N<=Integer）输出其最小值及这个最小值原来的位置。文件名为：EX５-1-1.pas。
８、计算１＋２＋２＋３＋３＋３＋４＋４＋４＋４＋……的值。文件名为：EX５-5-2.pas。
９、计算１＋（１＋２）＋（１＋２＋３）＋（１＋２＋３＋４＋……＋N）的值。 文件名为：EX５-5-３.pas
１０、输出１到９９９的数中能被３整除，且至少有一位数字是５的所有整数。 文件名为：EX５-5-4.pas
１１、有１米，２米，３米，……１９米，２０米的木条各一根，任取其中的三根，有可能组成一个三角形，输出每三根能组成三角形的长度。
提示：３，４，５和４，３，５都组成三角形，但它们是同一个三角形。 文件名为：EX５-３-1.pas。
１２、键盘输入１０个正整数，输出从小到大排列，同时输出１０个数原来的位置。 文件名为：EX５-６-３.pas。
１３、求出１０００以内的所有完数(也叫丑陋数)。
完数：N（除N以外）的所有约数之和等于N。 例如：６是完数。６＝１＋２＋３ 文件名为：EX５-７-１.pas。
１４、打印１０００以内的所有质数。文件名为：EX５-６-１.pas。
１５、圆盘找数：如图。找出４个连续数（紧挨着的四个数），他们相加的和最大; 再找出他们相加的和最小的４个连续数。试编一个程序求出。文件名为：EX５-６-２.pas。
１６、下图：将１到６分别填在下图的６个格子内，要求：每行中左边的数小于右边的数，每列中上边的数小于下边的数。 １ ４ 2 ５ 3 ６
试编一程序，输出有多少种符合上图的排列。文件名为：forfor-２.pas。
１７、下图：将１到６分别填在下图的６个圆圈内，要求：每边的三个圈内的数之和相等，试编一程序，打印输出每一种。forfor-4.pas。 例如：下图是一种。
１
６ ４
3 2 ５
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 奇数个数 １ ２ ３ ４
当n= k =4时，最小奇数之前已有 (１＋（k-1）)*(k-1) /2=6个奇数，
最小奇数：６×２＋１＝１３。
当n= k时，第k个奇数
k*(k?1)*2?1=k*(k-1)+ 1x=
2由此得出 : x=n*（n-1）+1
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.
１9、填数游戏： * = * 文件名为：forfor-5.pas
有这样两个两位数，满足AB*CD=BA*DC。将1-9中的四个且各不相同的数分别填入。编一程序，输出所有等式。
20、窗框设计：（提交文件名： A1.PAS ）
用总长为600厘米的木条，作成如下图所示的矩形窗框（包括中间两根档条），问窗框的长宽尺寸如何设计，才能使窗户的采光面积最大。编程打印输出采光面积最大的长和宽。长和宽都为整数厘米，第一行打印输出长，第二行打印输出宽。
21、字三角形：（提交文件名：forfor12.PAS ） 由键盘输入正整数N（1≤ N ≤9），输出对应的数字三角形。 输入输出格式示例： N ：3
N ：5
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、甲、乙两队各选三人参加乒乓球对抗赛，竞赛规则规定：甲队１号不与乙队１号比，甲队３号不与乙队１号比，甲队３号不与乙队３号比。试编一程序，输出两队对抗赛中每对选手的名单（号码）。（文件名为：4-spl-12.pas） 分析：
甲队： A B C
乙队： X Y Z
由图可以看出，C只能和Y比。A只能和X比。也可双和Y比。
24、求１００到９９９中所有既是完全平方数，又是回文数。
25、格里高利公式就是数学中求圆面积或圆的周长的圆周率（PI）。公式是这样的：
PI / 4 = 1 – 1 / 3 + 1 / 5 – 1 / 7 + 1 / 9 – 1 / 11 + 1 /13 、、、、、、。 求：当等号右边为１百万项时，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都是平台。请写一程序，接受一个数组，把这个数组中最长平台找出来。