2.求s=1+1/2+1/3+…+1/100va；fori:=1to100dor:=r+(1/i)；3.计算100之内所有的奇数之和；i,T:beginT:=0;；fori:=1to100doifodd(i)th；4.计算n！，其中n由键盘输入；fac:n,i:beg；fori:=2tondofac:=fac*i;；
2.求s=1+1/2+1/3+…+1/100varr:i:beginr:=0;fori:=1to100dor:=r+(1/i);writeln(r);end.3.计算100之内所有的奇数之和。Programex3;vari,T:beginT:=0;fori:=1to100doifodd(i)thenT:=T+i;writeln(T);end.4.计算n！，其中n由键盘输入。programex4;varfac:n,i:beginread(n);fac:=1;fori:=2tondofac:=fac*i;writeln(n,'!=',fac)end.或programxumin4；varm，n:integer；jc:longint；beginwrite('n=')；readln(n)；jc:=1；（注意阶乘变量必须初始化为１，为什么？）form:=1tondojc:=jc*m；writeln(n，'!='，jc)；readln；end.5.求10个数中的最大值和最小值。vars:array[1..10]i,max,min:beginfori:=1to10doread(s[i]);max:=s[1];//初始化第一个元素为最大值min:=s[1];//初始化第一个元素为最大值fori:=2to10do//从第二个元素开始比较beginifmax<s[i]thenmax:=s[i];//发现比max大就改变min值ifmin>s[i]thenmin:=s[i];//发现比min小就改变min值writeln('max=',max,'min=',min);end.6.按字母表的顺序，从字母A到Z顺序打印输出。PROGRAMxumin6；VARm:integer；zf:char；BEGINFORm:=65to90dobeginzf:=chr(m)；write(zf)；end；readln；END.7.求菲波拉契数列a0,a1,a2,……a20。a0=0,a1=1,a2=a1+a0,a3=a2+a1,……,an=an-1+an-2;如0,1,1,2,3,5,8,13,21,……P501、用WHILE循环完成如下3题：①求s=1+2+3+4+…+10②求s=1+1/2+1/3+…+1/100③计算n！，其中n由键盘输入。2、输入任一的自然数A,B,求A,B的最小公倍数。3、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时,小球共通过多少路程?4、Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和。求前30项,并以每行5个数的格式输出。vari,j,k:begini:=0;j:=1;write(i:8,j:8);k:=2;whilek<30dobegini:=i+j;inc(k);write(i:8);ifkmod5=0j:=i+j;inc(k);write(j:8);ifkmod5=0end.5、鸡兔同笼,头30,脚90,求鸡兔各几只？P521.用REPEAT循环完成如下3题：①求s=1+2+3+4+…+10；②求s=1+1/2+1/3+…+1/100；③计算n！，其中n由键盘输入。2.读一组实数,遇零终止,打印其中正、负数的个数及各自的总和。3辗转相除法求两个自然数的最大公约数。4.找出被2、3、5除时余数为1的最小的十个数。5.将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下,如何截才能余料最少。P571、求s=1!+2!+3!+…+10!2、求s=1+1/2!+1/3!+…+1/10!3、输入一个整数，若是素数，输出“YES”，否则输出“NO”4、任给一个自然数n，求出这个自然数不同因数的个数。如：n=6时，因为1，2，3，6这四个数均是6的因数，故输出为total=4。5、输入一列图形（字母金字塔）aaba.abc……yzbc.6、把一张一元钞票换成一分，二分和五分的硬币，每种至少一枚。问有哪几种换法？7、百鸡问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只？8、某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子。要求换正好40张，且每种票子至少一张。问：有几种换法？应适当考虑减少重复次数。9、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？10、编写一程序，验证角谷猜想。所谓的角谷猜想是：“对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。”11、输入二个正整数，求出它们的最大公约数和最小公倍数。12、1-100之间的所有素数（素数是大于1，且除1和它本身外，不能被任何其它整数所整除的整数）。(4.28)13、哥德巴赫猜想（任何充分大的偶数都可由两个素数之和表示）。将4-100中的所有偶数分别用两个素数之和表示。输出为：4=2+26=3+3….100=3+97P681、输入十个正整数，然后把这十个数按由小到大的顺序输出。（选择排序）2、输入十个正整数，然后把这十个数按由小到大的顺序输出。（冒泡排序）三亿文库包含各类专业文献、生活休闲娱乐、中学教育、幼儿教育、小学教育、外语学习资料、91NOIPl经典例题答案24页等内容。　
　答案代码(A/B/C/D,填入每题的括号内(每题 1.5...绝对经典搞笑照片 81份文档
笑话大全集 笑话大全爆笑...NOIP2002提高组初赛试题... 7页 3下载券 第八届... 　电路分析典型习题与解答 24页 5财富值 电路分析基础习题及答案 16页 5财富值 ...j 0.92 )S , G =1.39S,L=0.543H 【题3】:L=1.2H 【题4】:I=1A... 　.(09 福建卷?24)从铝土矿(主要成分是 Al2O3,...+ (3)在 0.1mol?L?1NH4Al(SO4)2 溶液...离子共存经典题型 8页 免费 离子共存习题及解答 2页... 　3 y =2 6xy =24, ∴l=4x+6y=2(2x+3y)≥48,当且仅当 2x=3y 时,...10页 1下载券
基本不等式经典例题(含知... 6页 5下载券
1份――不等式... 　NOIP(pascal)典型算法题集_学科竞赛_初中教育_教育专区...处理对象:m(自然数)、l(两数的最小公倍数)、g...各城市间旅费如下表: ∞ 17 13 24 10 ∞ 20 ... 　21页 1财富值如要投诉违规内容,请到百度文库投诉中心...noip初赛试题答案 隐藏&& 全国青少年信息学奥林匹克联赛...(每题 8 分,共 32 分) 1.program P ... 　雅礼NOIP试题1 8页 1财富值 Pascal历届NOIP复赛试题...2 L=?5 3)INPUT p,n,q j=21 DO while n&...选择一个正确答案代码(A/B/C/D),填入每题的括号... 　noip竞赛试题1995题目 noip竞赛试题1998答案 noip竞赛...B) 32 c) 24 D) 8 14) 算式(2047)10 一(...L0,L1,LK:I a :array [0..20] of ...第一章初识Pascal语言【上机练习】；1.输入三个数，计算并输出它们的平均值以及三个数；3.加法计算器：编程由键盘输入两个整数a和b，将；s:begin；write(‘Pleaseinputyourna；writeln(s,’isthebest.’);；第二章顺序结构【上机练习2.4】；1.已知某梯形的上底A=13，下底B=18，高H；4.读
第一章 初识Pascal语言 【上机练习】 1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 2. 输入圆的半径R，求圆的面积和周长。 3. 加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。 4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。 5. 已知图圆柱体的高为12，底面圆的半r径为7，求圆柱体表面积。 6. 进入Fp，调试以下程序： program ex1_6; var s : begin write(‘Please input your name’); readln(s); writeln(s,’ is the best.’); end. 第二章 顺序结构 【上机练习2.4】 1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 2.已知某圆的半径R=139，求该圆的周长C与面积S？ 3.输入长方形的边长a,b，计算它的面积和周长，输出。 4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f=9c/5+32 5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD函数)
6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。 【上机练习2.7】 1.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？ 2.交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。 3.编写程序把一个三位整数反转，例如358反转成853。 4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？ 5.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少? 6.从键盘输入a、b、c求一元二次方程ax2+bx+c=0的两个实数根(不考虑无解的情况)。 第三章 选择结构 【上机练习3.2】 1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边) 3、输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。 4、输入一个整数，打印出它是奇数还是偶数。 5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。 6、从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”。 7、判断两个数a，b，输出较大数的平方值。 8、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？ 【上机练习3.3】 1．输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90分以上，输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。 2．输入三角形的三边，判断它是否是直角三角形。
3．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。 4．对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。 5．输入三角形的三个边，判断它是何类型的三角形（等边DB？等腰DY？一般YB？）。 6．输入三个数，按由大到小顺序打印出来。 7．将字母A、B、C 、D或a、b、c、d对应输出1、2、3、4，其余的字符输出5。 8．输入三个数a，b，c，打印出最大者． 【上机练习3.5】 1．从键盘读入两个数，比较其大小，把大数置于x，小数置于y，请设计该程序。 2．函数的表达式如下： 0
(0≤x<10) y=
(10≤x<20) -0.5x+20
(20≤x<40) -2x+40
(40≤x) 编写程序，当输入x后输出y的值。 第四章 循环结构 【上机练习4.1】 1.计算n！，其中n由键盘输入。
2.计算100之内所有的奇数之和。 3.求菲波拉契数列a0,a1,a2,??a20。 a0=0,a1=1,a2=a1+a0,a3=a2+a1,??, an=an-1+an-2; 如0,1,1,2,3,5,8,13,21,?? 4.求20个数中的最大值和最小值。 5.求s=1+2+3+4+?+10 6.求s=1+1/2+1/3+?+1/100 7.按字母表的顺序，从字母A到Z顺序打印输出。 8.输入10个数，打印出最大和最小的数。 【上机练习4.2】 1、用WHILE循环完成如下3题： ①求s=1+2+3+4+?+10 ②求s=1+1/2+1/3+?+1/100 ③求π的值。 已知π/4=1 C 1/3 +1/5 C 1/7 + 1/9 - ??，要求最后一项小于10-6为止。 2、输入任一的自然数A, B, 求A , B的最小公倍数。 3、Faibonacci数列前几项为: 0,1,1,2,3,5,8,?,其规律是从第三项起, 每项均等于前两项之和。求前 30项,并以每行5个数的格式输出。 4、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程? 5、鸡兔同笼,头30,脚90, 求鸡兔各几只？ 【上机练习4.3】 1.用REPEAT循环完成如下3题： ①求s=1+2+3+4+?+10 ②求s=1+1/2+1/3+?+1/100 ③求π的值。 已知π/4=1 C 1/3 +1/5 C 1/7 + 1/9 - ??，要求最后一项小于10-6为止。 2.读一组实数,遇零终止,打印其中正、负数的个数及各自的总和。 3.计算sin（x）=X-X3/3！+X5/5！-X7/7！+??直到最后一项绝对值小于10-7时停止计算，x由键盘输入 。 4.用辗转相除法求两个自然数的最大公约数。 5.找出被2、3、5除时余数为1的最小的十个数。 6.将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下, 如何截才能余料最少。 【上机练习4.4】 1、求s=1!+2!+3!+?+10! 2、求s=1+1/2!+1/3!+?+1/10! 3、求s=11+22+33+..+NN 4、把一张一元钞票换成一分，二分和五分的硬币，每种至少一枚。问有哪几种换法？
5、输入一个整数，若是素数，输出“YES”，否则输出“NO” 6、任给一个自然数n，求出这个自然数不同因数的个数。 如：n=6时，因为1，2，3，6这四个数均是6的因数，故输出为total=4。 7、输入二个正整数，求出它们的最大公约数和最小公倍数。 8、输入一列图形（字母金字塔） a a
. a b c ?? y z 9、1-100之间的所有素数（素数是大于1，且除1和它本身外，不能被任何其它整数所整除的整数）。(4.28) 10、哥德巴赫猜想（任何充分大的偶数都可由两个素数之和表示）。将4-100中的所有偶数分别用两个素数之和表示。输出为： 4=2+2 6=3+3 ?. 100=3+97 11、某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子。要求换正好40张，且每种票子至少一张。问：有几种换法？应适当考虑减少重复次数。 12、百鸡问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只？ 13、编写一程序，验证角谷猜想。所谓的角谷猜想是：“对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。” 14、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
第五章 数组数型 【上机练习5.1】 1、国际象棋盘中，第1格放1粒米，第2格放2粒米，第3格放4粒米，第4格放8粒米，第5格放16粒米，．．．．．．问：16个格子总共可以放多少粒米？ 【分析】第i个格子可放多少粒米：2iC1 2、输出斐波列契数列的前N项（5个1行）
．．．．．．．．．． 3、输入N个整数，找出最大数所在位置，并将它与第一个数对调位置。 4、将一个数组中的所有元素倒序存放 。 【分析】A[1]←→A[N]
A[2] ←→A[N-1]?? A[I] ←→A[J]
I 从1开始，每交换1次，I 加1；直到 I = N DIV 2 5、读入n个数，打印其中的最大数及其位置号。 6、有52张朴克牌，使它们全部正面朝上。从第2张牌开始，把凡是2的倍数位置上的牌翻成正面朝下；接着从第3张牌开始，把凡是3的倍数位置上的牌正面朝上的翻成正面朝下，正面朝下的翻成正面朝上；接着从第4张牌开始，把凡是4的倍数位置上的牌按比规律翻转；依此类推，直到第1张要翻的牌是第52张为止。统计最后有几张牌正面朝上，并打印出它们的位置。 7、N只猴子选大王，选举办法如下：从头到尾1、2、3报数，凡报3的退出，余下的从尾到头1、2、3报数，凡报3退出；余下的又从头到尾报数，还是报3的退出；依此类推，当剩下的两只猴子时，取这时报数报1的为王。若想当猴王，请问当初应占据什么位置？ 8、围绕着山顶有10个洞，一只狐狸和一只兔子各住一个洞。狐狸总想吃掉兔子。一天兔子对狐狸说：“你想吃我有一个条件，先把洞从1～10编上号，你从10号洞出发，先到1号洞找我；第二次隔1个洞找我，第三次隔2个洞找我，以后依此类推，次数不限。若能找到我，你就可以饱餐一顿。不过在没有找到我以前不能停下来。”狐狸满口答应就开始找了，它从早到晚找了1000次洞，累得昏了过去也没有找到兔子。请问，免子躲在几号洞里？【答案】2，4，7，9 【上机练习5.2】 1、输入一个二维数组，找出其中最小的数，输出它的值以及所在行号和列号。 2、输入M行N列数组，将第I行与第J行元素对调（I，J < M）。 3、输入4×4方阵，分别求两条对角线上元素之和。 4、矩阵的转置：
9 12 10 11 12 5、给一维数组输入M个整数，假设M=6，数组元素分别为 7
要求建立一个如下数组（矩阵）：
6、建立如下矩阵：
5 6 7 8 注意：一般情况下，给二维数组赋初值，都是找A [ I,J ]与I和J的函数关系，对于任意的A [ I ,J ] =I+J。
FOR I:=1 TO N DO
FOR J:= 1 TO N DO
A [I,J] =I+J； 7、设数组a是有n个元素的整数数组，从中找出最大和子序列。 8、打印杨辉三角形的前10行。 第六章 函数与过程 函数课堂练习 1.编程找出由键盘任意输入二个整数中的最大数。 2.编程找出由键盘任意输入三个整数中的最大数。 3.求从键盘任意输入两个自然数的最大约数。 4.求从键盘任意输入三个自然数的最大约数。 5.求从键盘任意输入两个自然数的最小公倍数。 6.用函数求1+2+3??+n的和（n<=100）。 【上机练习6.1】 1.编程求C RK = K！/（R！（K-R）！）（K > R > 0） 2.求正整数2和100之间的完全数。 完全数：因子之和等于它本身的自然数，如6=1+2+3 ； 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数 4.编程求5！+7！+9！+11！的值。 5.哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和。编程将6～100所有偶数表示成两个素数之和。 6.编写程序计算表达式：Y = x2 + SH(x)，SH(x)是双曲正弦函数 【提示】在Fp中没有SH()函数，需要由用户自已定义，由数学知识知：SH(x)=( e x C e Cx)/2。 过程课堂练习 1.编程找出由键盘任意输入三个整数中的最大数的过程。 2.输入三个不同的整数，按由小到大排列，用过程编程。 3.用不带参数的过程和带参数的过程分别编写一个程序，实现变量x和y的值相互交换。 4.设计一个过程(数组参数),将数组中的元素从小到大排列。 5.编一过程完成二分查找（假设已有一按升序排列的数组）。 【上机练习6.2】 1.输入自然数n，求前n个合数（非素数），其素因子仅有2，3，或5。 2.自然数a的因子是指能整除a的所有自然数，但不含a本身。例如12的因子为：1,2,3,4,6。若自然数a的因子之和为b，而且b的因子之和又等于a，则称a,b为一对“亲和数” 。求最小的一对亲和数(ab)。 3.求前n个自然数的平方和，要求不用乘法。例如：3的平方不用3*3，可用3+3+3。 4.如果一个数从左边读和从右边读都是同一个数，就称为回文数。例如6886就是一个回文数，求出所有的既是回文数又是素数的三位数。 5.任何大于2的自然数都可以写成不超过四个平方数之和。如：8=22＋22；14=12＋22＋32
由键盘输入自然数N（2 < N < 2000） ，输出其不超过四个平方数之和的表示式。 6.哥德巴赫猜想的扩展：任何一个大于7的奇数总可以分解为三个素数之和。编写程序求7―2000以内所有奇数的分解形式（只需一种分解）。例如：7=2+2+3 ，11=3+3+5， 19=3+3+13 等。 【上机练习6.4】 1、用递归的方法求1+2+3+??+N的值。 2、用递归函数输出斐波那契数列第n项。0,1，1，2，3，5，8，13?? 3、输入一个非负整数，输出这个数的倒序数。例如输入123，输出321。 4、用递归算法将数组A中的N个数倒序输出。 5、用递归方法求N个数中的最大数及其位置。 6、用递归算法将一个十进制数X转换成任意进制数M（M<=16）。 7、用递归算法实现二分查找即：有20个已经从小到大排序好的数据，从键盘输入一个数X，用对半查找方法，判断它是否在这20个数中。
三亿文库包含各类专业文献、专业论文、外语学习资料、应用写作文书、53Pascal上机习题等内容。　
　Pascal练习题及答案_计算机软件及应用_IT/计算机_专业资料。Pascal初级练习题及答案一、熟悉 Pascal 的集成环境,了解主菜单的各项功能 二、完成下面程序的输入、编译... 　pascal上机题目_学科竞赛_小学教育_教育专区。Pascal 经典 100 题 1 题目:有 1、2、3、4 个数字,能组 成多少个互不相同且无重复数字的三 位数?都是多少? ... 　p&#8203;a&#8203;s&#8203;c&#8203;a&#8203;l&#8203;语&#8203;言&#8203;习&#8203;题&#8203;,&#8203;参&#8203;加&#8203;奥&#8203;赛&#8203;的&#8203;可&#8203;以&#8203;用&#8203;到东风一中信息技术程序设计上机题 PASCAL 循环结... 　free Pascal上机练习1_学科竞赛_初中教育_教育专区。2016 暑期上机练习(一) 1.数字统计 (two.pas/c/cpp) 【问题描述】 请统计某个给定范围[L, R]的所有整数... 　pascal最佳旅游线路题解 暂无评价 2页 2下载券 PASCAL上机练习题题解_第... ...下&#8203;面&#8203;题&#8203;目&#8203;的&#8203;题&#8203;解1. var i,j,n,m,r,dx,dy,k:inte... 　2015.2小学PASCAL寒假班上机试题_学科竞赛_小学教育_教育专区。2015 年 2 月慈溪...【样例输入】 12 【样例输出】 5 -2- 第三题:一万天纪念日(t3.pas) 【... 　pascal 习题 完善程序 27页 免费 PASCAL竞赛辅导习题二 19页 1财富值 Pascal上机习题 6页 免费 Pascal练习题 4页 免费 Pascal语法基础习题 57页 2财富值喜欢... 　pascal历届试题选择题(附答案)――计算机基础_IT认证_资格考试/认证_教育专区。适用于初学者哦历届试题选择题(普及组)――计算机基础 第四届 1998 一、选择填空(...第一章初识Pascal语言；【上机练习】；1.输入三个数，计算并输出它们的平均值以及三个数；3.加法计算器：编程由键盘输入两个整数a和b，将；(梯形面积公式为S=）；5.已知图圆柱体的高为12，底面圆的半径为7，求；programex1_6;var；s:begin；write(‘Pleaseinputyourna；writeln(s,’isth
第一章 初识Pascal语言 【上机练习】 1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 2. 输入圆的半径R，求圆的面积和周长。 3. 加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。 4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。
( 梯形面积公式为 S=
5. 已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。 6. 进入Fp，调试以下程序： program ex1_6; var s : begin write(‘Please input your name’); readln(s); writeln(s,’ is the best.’); end. 第二章 顺序结构 【上机练习2.4】 1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 2.已知某圆的半径R=139，求该圆的周长C与面积S？ 3.输入长方形的边长a,b，计算它的面积和周长，输出。 4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f=9c/5+32 5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD函数)
6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。 【上机练习2.7】 1.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？ 2.交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。 3.编写程序把一个三位整数反转，例如358反转成853。 4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？ 5.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少? 6.从键盘输入a、b、c求一元二次方程ax+bx+c=0的两个实数根(不考虑无解的情况)。 2 第三章
选择结构 【上机练习3.2】 1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边) 3、输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。 4、输入一个整数，打印出它是奇数还是偶数。 5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。 6、从键盘读入一个数，判断它的正负。是正数，则输出?+?，是负数，则输出?-?。 7、判断两个数a，b，输出较大数的平方值。 8、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？
【上机练习3.3】 1．输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90分以上，输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。 2．输入三角形的三边，判断它是否是直角三角形。
3．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。 4．对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。 5．输入三角形的三个边，判断它是何类型的三角形（等边DB？等腰DY？一般YB？）。 6．输入三个数，按由大到小顺序打印出来。 7．将字母A、B、C 、D或a、b、c、d对应输出1、2、3、4，其余的字符输出5。 8．输入三个数a，b，c，打印出最大者．
【上机练习3.5】 1．从键盘读入两个数，比较其大小，把大数置于x，小数置于y，请设计该程序。 2．函数的表达式如下： 0
(10≤x<20)
(20≤x<40) -0.5x+20
编写程序，当输入x后输出y的值。
循环结构 【上机练习4.1】 1.计算n！，其中n由键盘输入。
2.计算100之内所有的奇数之和。 3.求菲波拉契数列a0,a1,a2,……a20。 a0=0,a1=1,a2=a1+a0,a3=a2+a1,……, an=an-1+an-2; 如0,1,1,2,3,5,8,13,21,…… 4.求20个数中的最大值和最小值。 5.求s=1+2+3+4+…+10 6.求s=1+1/2+1/3+…+1/100 7.按字母表的顺序，从字母A到Z顺序打印输出。 8.输入10个数，打印出最大和最小的数。
【上机练习4.2】 1、用WHILE循环完成如下3题： ①求s=1+2+3+4+…+10 ②求s=1+1/2+1/3+…+1/100 ③求π的值。 已知π/4=1 C 1/3 +1/5 C 1/7 + 1/9 - ……，要求最后一项小于10为止。 2、输入任一的自然数A, B, 求A , B的最小公倍数。 3、Faibonacci数列前几项为: 0,1,1,2,3,5,8,…,其规律是从第三项起, 每项均等于前两项之和。求前 30项,并以每行5个数的格式输出。 4、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程? 5、鸡兔同笼,头30,脚90, 求鸡兔各几只？
-6【上机练习4.3】 1.用REPEAT循环完成如下3题： ①求s=1+2+3+4+…+10 ②求s=1+1/2+1/3+…+1/100 ③求π的值。 已知π/4=1 C 1/3 +1/5 C 1/7 + 1/9 - ……，要求最后一项小于10为止。 2.读一组实数,遇零终止,打印其中正、负数的个数及各自的总和。 3.计算sin（x）=X-X/3！+X/5！-X/7！+……直到最后一项绝对值小于10时停止计算，x由键盘输入 。 4.用辗转相除法求两个自然数的最大公约数。 5.找出被2、3、5除时余数为1的最小的十个数。 6.将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下, 如何截才能余料最少。 357-7-6
【上机练习4.4】 1、求s=1!+2!+3!+…+10! 2、求s=1+1/2!+1/3!+…+1/10! 3、求s=1+2+3+..+N123N 4、把一张一元钞票换成一分，二分和五分的硬币，每种至少一枚。问有哪几种换法？
5、输入一个整数，若是素数，输出?YES?，否则输出?NO? 6、任给一个自然数n，求出这个自然数不同因数的个数。
如：n=6时，因为1，2，3，6这四个数均是6的因数，故输出为total=4。 7、输入二个正整数，求出它们的最大公约数和最小公倍数。 8、输入一列图形（字母金字塔） a a
z 9、1-100之间的所有素数（素数是大于1，且除1和它本身外，不能被任何其它整数所整除的整数）。(4.28) 10、哥德巴赫猜想（任何充分大的偶数都可由两个素数之和表示）。将4-100中的所有偶数分别用两个素数之和表示。输出为： 4=2+2 6=3+3 …. 100=3+97 11、某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子。要求换正好40张，且每种票子至少一张。问：有几种换法？应适当考虑减少重复次数。 12、百鸡问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只？ 13、编写一程序，验证角谷猜想。所谓的角谷猜想是：?对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。? 14、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
数组数型 【上机练习5.1】 1、国际象棋盘中，第1格放1粒米，第2格放2粒米，第3格放4粒米，第4格放8粒米，第5格放16粒米，．．．．．．问：16个格子总共可以放多少粒米？ 【分析】第i个格子可放多少粒米：2iC1 2、输出斐波列契数列的前N项（5个1行）
．．．．．．．．．． 3、输入N个整数，找出最大数所在位置，并将它与第一个数对调位置。 4、将一个数组中的所有元素倒序存放 。 【分析】A[1]←→A[N]
A[2] ←→A[N-1]…… A[I] ←→A[J]
I 从1开始，每交换1次，I 加1；直到 I = N
DIV 2 5、读入n个数，打印其中的最大数及其位置号。 6、有52张朴克牌，使它们全部正面朝上。从第2张牌开始，把凡是2的倍数位置上的牌翻成正面朝下；接着从第3张牌开始，把凡是3的倍数位置上的牌正面朝上的翻成正面朝下，正面朝下的翻成正面朝上；接着从第4张牌开始，把凡是4的倍数位置上的牌按比规律翻转；依此类推，直到第1张要翻的牌是第52张为止。统计最后有几张牌正面朝上，并打印出它们的位置。 7、N只猴子选大王，选举办法如下：从头到尾1、2、3报数，凡报3的退出，余下的从尾到头1、2、3报数，凡报3退出；余下的又从头到尾报数，还是报3的退出；依此类推，当剩下的两只猴子时，取这时报数报1的为王。若想当猴王，请问当初应占据什么位置？ 8、围绕着山顶有10个洞，一只狐狸和一只兔子各住一个洞。狐狸总想吃掉兔子。一天兔子对狐狸说：?你想吃我有一个条件，先把洞从1～10编上号，你从10号洞出发，先到1号洞找我；第二次隔1个洞找我，第三次隔2个洞找我，以后依此类推，次数不限。若能找到我，你就可以饱餐一顿。不过在没有找到我以前不能停下来。?狐狸满口答应就开始找了，它从早到晚找了1000次洞，累得昏了过去也没有找到兔子。请问，免子躲在几号洞里？【答案】2，4，7，9
【上机练习5.2】 1、输入一个二维数组，找出其中最小的数，输出它的值以及所在行号和列号。 2、输入M行N列数组，将第I行与第J行元素对调（I，J < M）。 3、输入4×4方阵，分别求两条对角线上元素之和。 4、矩阵的转置：
12 5、给一维数组输入M个整数，假设M=6，数组元素分别为 7
要求建立一个如下数组（矩阵）：
6、建立如下矩阵：
8 注意：一般情况下，给二维数组赋初值，都是找A [ I,J ]与I和J的函数关系，对于任意的A [ I ,J ] =I+J。
A [I,J] =I+J； 7、设数组a是有n个元素的整数数组，从中找出最大和子序列。 8、打印杨辉三角形的前10行。 第六章
函数与过程 函数课堂练习 1.编程找出由键盘任意输入二个整数中的最大数。 2.编程找出由键盘任意输入三个整数中的最大数。 3.求从键盘任意输入两个自然数的最大约数。 4.求从键盘任意输入三个自然数的最大约数。 5.求从键盘任意输入两个自然数的最小公倍数。 6.用函数求1+2+3……+n的和（n<=100）。 【上机练习6.1】 1.编程求C K = K！/（R！（K-R）！）（K > R > 0） 2.求正整数2和100之间的完全数。 完全数：因子之和等于它本身的自然数，如6=1+2+3 ； 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数 4.编程求5！+7！+9！+11！的值。 5.哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和。编程将6～100所有偶数表示成两个素数之和。 26.编写程序计算表达式：Y = x + SH(x)，SH(x)是双曲正弦函数 x Cx【提示】在Fp中没有SH()函数，需要由用户自已定义，由数学知识知：SH(x)=( e C e )/2。 R 过程课堂练习 1.编程找出由键盘任意输入三个整数中的最大数的过程。 2.输入三个不同的整数，按由小到大排列，用过程编程。 3.用不带参数的过程和带参数的过程分别编写一个程序，实现变量x和y的值相互交换。 4.设计一个过程(数组参数),将数组中的元素从小到大排列。 5.编一过程完成二分查找（假设已有一按升序排列的数组）。 【上机练习6.2】 1.输入自然数n，求前n个合数（非素数），其素因子仅有2，3，或5。 2.自然数a的因子是指能整除a的所有自然数，但不含a本身。例如12的因子为：1,2,3,4,6。若自然数a的因子之和为b，而且b的因子之和又等于a，则称a,b为一对?亲和数? 。求最小的一对亲和数(ab)。 3.求前n个自然数的平方和，要求不用乘法。例如：3的平方不用3*3，可用3+3+3。 4.如果一个数从左边读和从右边读都是同一个数，就称为回文数。例如6886就是一个回文数，求出所有的既是回文数又是素数的三位数。 222225.任何大于2的自然数都可以写成不超过四个平方数之和。如：8=2＋2；14=1＋2＋3
由键盘输入自然数N（2 < N < 2000） ，输出其不超过四个平方数之和的表示式。 6.哥德巴赫猜想的扩展：任何一个大于7的奇数总可以分解为三个素数之和。编写程序求7―2000以内所有奇数的分解形式（只需一种分解）。例如：7=2+2+3 ，11=3+3+5， 19=3+3+13
【上机练习6.4】 1、用递归的方法求1+2+3+……+N的值。 2、用递归函数输出斐波那契数列第n项。0,1，1，2，3，5，8，13…… 3、输入一个非负整数，输出这个数的倒序数。例如输入123，输出321。 4、用递归算法将数组A中的N个数倒序输出。 5、用递归方法求N个数中的最大数及其位置。 6、用递归算法将一个十进制数X转换成任意进制数M（M<=16）。 7、用递归算法实现二分查找即：有20个已经从小到大排序好的数据，从键盘输入一个数X，用对半查找方法，判断它是否在这20个数中。 三亿文库包含各类专业文献、各类资格考试、专业论文、幼儿教育、小学教育、应用写作文书、外语学习资料、文学作品欣赏、Pascal语言配套练习38等内容。　
　七、 练习 在集成环境中输入以下程序,程序的作用是计算圆的面积,圆的半径由...以 VAR 为开始的部分是说明程序中要用到 3 PASCAL 语言基础及基础训练 第 4... 　mod 10 a div 10 a+b&100 k mod 6 2. max:=0 b&0 a*b y:=b readln(a,b) 或 read(a,b) 55 小学组 Pascal 语言试题(二) ( 一、单项选择。... 　Pascal语言配套练习_学科竞赛_小学教育_教育专区 暂无评价|0人阅读|0次下载|举报文档Pascal语言配套练习_学科竞赛_小学教育_教育专区。第一章 初识 Pascal 语言【... 　Pascal语言配套练习_理学_高等教育_教育专区。第一章 初识 Pascal 语言【上机练习】 上机练习】 1. 输入三个数,计算并输出它们的平均值以及三个数的乘积,写出程序... 　PASCAL语言_复习题_从业资格考试_资格考试/认证_教育专区 暂无评价|0人阅读|0次下载|举报文档 PASCAL语言_复习题_从业资格考试_资格考试/认证_教育专区。Pascal ... 　Pascal语言基础练习(选择题)_学科竞赛_高中教育_教育专区。适用于想要参加NOIP的中学阶段学生,NOIP,Pascal语言,语言基础练习 1、分析下面的程序,找出 A,B,C,D ... 　pascal语言笔试试题答案_从业资格考试_资格考试/认证_教育专区。girl873 pascal ...PASCAL语言的回顾与复习 45页 免费
03-PASCAL语言程序设计 33页 1下载券
... 　pascal语言部分几个 难题练习》》无代码》_计算机软件及应用_IT/计算机_专业资料。pascal 难题1.“数学黑洞 6174” 已知:一个任意的四位正整数。将数字重新组合成...}