第一章　初识Pascal语言
【上机练习】
1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。
2. 输入圆的半径R，求圆的面积和周长。
3. 加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。
4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。
5. 已知图圆柱体的高为12，底面圆的半r径为7，求圆柱体表面积。
6. 进入Fp，调试以下程序：
program ex1_6;
var
s : string;
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．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。pascal语言难学吗
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    (x<0)
x    (0≤x<10)
y=      10      (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 – 1/3 +1/5 – 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 – 1/3 +1/5 – 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  b
                a    b  c
                .            .
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个格子可放多少粒米：2i–1
2、输出斐波列契数列的前N项（5个1行）
    0 1  1  2  3  5  8  13  21  ．．．．．．．．．．
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、矩阵的转置：
      A:                                          B:
  1  2  3                转置为          1  4  7 10
  4  5  6                                2  5  8 11
  7  8  9                                3  6  9 12
10 11 12
5、给一维数组输入M个整数，假设M=6，数组元素分别为 7  4  8  9  1  5 ，
      要求建立一个如下数组（矩阵）：  7  4  8  9  1  5
                                      4  8  9  1  5  7
                                      8  9  1  5  7  4
                                      9  1  5  7  4  8
                                      1  5  7  4  8  9
                                      5  7  4  8  9  1
6、建立如下矩阵：  2 3 4 5
                    3 4 5 6
                    4 5 6 7
                    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 – e –x)/2。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。