for语句习题-上外附中信息科技过程性评价平台.docVIP

Function和procedure习题 编写查找１到１００中偶数并输出的程序。文件名为pro-1.pas。 ２、古希腊人称因子的和等于数本身的数完全数（自身因子除外），编写一程序求2到10000内所有完全数。文件名为：fun-２.pas。 ３、有６４个方格的棋盘，第一格放一粒米，第二格放两粒米，第三格放四粒米，……。直到所有格子都有米。求一共放了多少粒米。文件名为：pro-3.pas。 ４、已知数列１，１，２，３，５，８，…….，N。输出前N项的和。文件名为：pro-4.pas。 5、小球从100厘米高处落下，着地后又弹回高度的一半霌落下。求(1) 第20次着地时，小球共通过多少路程。（2）当小球停下时，小球共着地几次。Pro-5.pas 6、将一根长为39厘米的钢管截成长为69厘米和39厘米两种规格的短料。在这两种规格的短料至少各截一根的前题下，如何截才能余料最少。pro-6.pas 7、用函数求1！+ 2! + 3! + …… + N! pro-7.pas 8、读入正整数N，求2到N之间所有的素数。 Pro-8 9、编写一个函数，根据参数指定的N，计算出函数X，计算公式如下： X=1 + 1/3 +1/5 +1/7 + …… + 1/(2*n-1) 并在主程序中调用此函数，计算N=20时的函数值（保留六位小数）。 Pro-9.pas 10、设计一个过程，计算圆的面积，在主程序中输入一个半径值，然后调用该过程，并输出圆面积。 Pro-10.pas 11、有１米，２米，３米，……１９米，２０米的木条各一根，任取其中的三根，有可能组成一个三角形，输出每三根能组成三角形的长度。 提示：３，４，５和４，３，５都组成三角形，但它们是同一个三角形。 文件名为：pro-11.pas。 12、长青学校五年级一班的学生为了保护环境，利用星期日去上山植树，需要组织一部分男学生去山下水库抬水浇树（两人一组），先将这些学生排成两列纵队，可以有多少种不同组合方法。（根据个子高低，每位同学只能同同一排或前后同学组合）。Pro-12.pas 13把一个两位素数写在另一个两位素数后面，得到一个四位数，他能被这两个素数之和一半整除，求出所有这样的素数对。Pro-13.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 １１、有１米，２米，３米，……１９米，２０米的木条各一根，任取其中的三根，有可能组成一个三角形，输出每三根能组成三角形的长度。 提示：３，４，５和４，３，５都组成三角形，但它们是同一个三角形。 文件名为：pro-11.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=