高级程序设计语言 (Pascal 语言)

2.找出下列程序的所有错误并改正。
Program exer(input,output); Var a: array[1..10] of real; b:array[1..10] of real; i: integer; mu:real;
procedure mul (c,d: array[1..10] of real; m: real); for i:=1 to 10 m:=m+c[i]*d[i]; begin for i:= 1 to 10 read(a[i]); b:=a; mul(a,b,mu); writeln(‘mu=’,mu); end.
4.输入矩阵a和矩阵b，计算他们的乘积. 实验要求：进行数组类型程序设计。理解掌握数组的语法结构。 理解掌握紧缩数组的语法结构。 基本点和重点：一维数组的语法结构。基于数组的几种基本排序算 法。紧缩数组的语法结构。数组和紧缩数组的区别。
第六次上机实验： 实验名称：数组类型程序设计。 实验内容：1.将集合a赋值成【1，2，3，4，5，7，9】，集合b赋 值成【4，5，6，7，8，10】。计算c=a+b,d=a-b,e=a*b,以及a>=b 的值。输出a,b,c,d,e及a>=b的值。
4 − x2
dx
s4
3 e x − e− x ∫1 dx 2
实验要求：进行循环结构程序设计。理解掌握函数的语法结构及 其在程序中的地位和作用。理解掌握过程的语法结构及其在程序 中的地位和作用。理解嵌套与递归。
基本点和重点：函数的语法结构。函数的调用方式。实参与形参的对应关 系。过程的语法结构。过程的调用方式。实参与形参的对应关系。标识符 的作用域。
第三次上机实验： 实验名称：循环结构程序设计。 实验内容：1.计算并输出1!,2!,3!...35!
2.利用下列公式计算并输出
π
π
的值
1 1 1 1 1 = 1 − + − + ... + − 4 3 5 7 4n − 3 4n − 1
n=10000.
知道最后一项的绝对值小于
10
−6
时为止。 ,则称abc是水仙花数）。
3.求100－999中的水仙花数（若三位数 abc,
4.输入x的值按下列公式计算cos(x)
x x x cos( x) = 1 − + − + ... 2! 4! 6!
5. 求1－100之间的所有素数。 实验要求：进行循环结构程序设计。理解掌握三种循环语句的语法结 构和各自的特点。 基本点和重点：for 语句的语法结构及其特点。while语句的语法结构 及其特点。repeat语句的语法结构及其特点
第一次上机实验： 实验名称：顺序结构程序设计。 实验内容：1.读入三角形的三个边a,b,c,计算并打印三角形的面积s. 可利用下面的公式： S= p*(p-a)*(p-b)*(p-c) 其中p=(a+b+c)/2. 2.按下列公式计算y的值 X= 1+tan 52.15
π
2 x
y=e
+ ln sin 2 x + sin x 2
2
4
6
第四次上机实验： 实验名称：函数与过程结构程序设计。 实验内容：1.定义一函数digit(n,k),它回送整数n的从右边开 始数第k个数字的值。例如：digit(15327,4)=5,digit(289,5)=0. 2.用随机函数产生数据，设计二位整数的加，减，乘算式各 一题。让学生回答，由计算机给出正确与否的判断，并最后 给出总得分。得分按如下计算：算对加减各得30分，算对乘 法得40分，算错得0分。然后由计算机输出询问信息，学生选 择回答以决定是否继续一次新的测验。 3.输入a,b,c,计算m。已知： max(a,b,c) /(max(a+b,b,c)*max(a,b,b+c) 4.求菲波拉契数列的第10项和第20项的值。已知：
高级程序设计语言(Pascal语言) 上机实验方案
高级语言程序设计（Pascal言语）上机实践
Pascal 是世界上弟一个结构化程序设计语言。由于其具有良好结构化程序 设计特性，所以它特别适合于教学。适合于培养学生掌握自顶向下逐步求精 的结构化程序设计思想和方法，并养成良好的程序设计风格和习惯，因此， 国内外许多大学都将Pascal作为弟一门程序设计教学语言。 上机实践对高级程序设计语言的理解掌握，培养良好的编程有必要进行有计划，有步骤的 上机实践。这篇文档就是pascal上机实践基本方案。
实验要求：进行集合类型程序设计。理解掌握集合的语法结构。 基本点和重点：集合的语法结构。集合元素与集合之间的运算。集合 之间的比较及运算。类型的同一，相容和赋值相容的条件以及在不同 类型条件下可进行的比较，运算及参数传递。
第七次上机实验： 实验名称：记录类型程序设计。 实验内容：1.输入10个学生的记录（每个记录包括学号，姓名，性 别，年龄，成绩）。组成记录数组。统计男，女生人数，计算平均年 龄，平均成绩，并将低于平均成绩的学生记录输出。 2.输入20个数。将它们从大到小排序并输出。并给出每个输出值所对 应的原来输入次序（用记录做）。 实验要求：进行记录类型程序设计。理解掌握记录的语法结构。 理解掌握层次记录的语法结构。 基本点和重点：记录和层次记录的语法结构。记录数组的语法意义。 With 语句。
实验要求：进行文件类型程序设计。主要理解文件的读和写。 基本点和重点：文件类型的说明。文件分量类型的说明。正文文件与普通文 件在说明上的区别，在结构上的区别，以及可以使用的函数的不同。编程时 保持正文文件的结构。文件缓冲器变量的使用。
第九次上机实验： 实验名称：指针和动态数据结构程序设计。 实验内容：读入一批数，以负数结束，将正数组成排序的链表并输出， 然后读入一数，从链表中删除该数并输出。再读入一数，将它插入链表 中并输出。 实验要求：进行指针类型程序设计。理解掌握怎样通过指针实现动态链 表。 基本点和重点：指针类型变量的说明。指针变量的引用。链表的建立。 链表节点的插入和删除。
第五次上机实验： 实验名称：数组类型程序设计。 实验内容：1.输入一串字符，以‘？’号结束，分别统计其中每 个数字0，1，2，…9出现的次数。
2.输入
a1 , a2 , a3 ...a20
, 将他们从小到大的排序后输出，并
给出现在每个元素所对应的原来次序。 3.插入排序（在输入过程完成排序）。以任意次序读入20个数，将第 1个数放入数组的第1个元素。以后读入的数应该与已存入数组的数进 行比较，确定它在从小到大的排列中应处的位置。将该位置及其后面 的元素向后推一个位置，将新读入的数据填入空出的位置。
(
)
2.输入二次方程的三个悉数a,b,c,计算二次方程的根。程序应考 虑实根与复根两种情形。二次方程如下：
ax +bx+c=0
3.输入班号输出该班学生数。应用case语句编程序。 班号 91 人数 30 92 32 93 30 94 30 95 32 96 25
2
实验要求：进行选择结构程序设计。理解掌握if语句和case 语 句。 基本点和重点：if 语句的两种基本结构及各自的适用环境。 Case 语句的基本结构和适用环境。
这只是一个大致的上机实验方案，具体的情况还要根据上 机的实际情况而进行相应的调整。争取学生通过这一编程 语言的学习和上机实验，达到从整体上理解高级程序设计 语言的结构化思想。一些基本的编程思想和方法。培养称 良好的编程风格和习惯，培养学生的编程兴趣。
a 0
=
0 ,
a 1 = 1 , a 2 a 3 ...
5.用函数作为参数，利用辛卜生公式计算下列各函数的积 分值。
= a 0
+ a 1 ,
= a 1 + a 2
s1
=
2 ∫1
10 − x3 dx
1 5 .2 s 2 = ∫2 ln (x 1 .5 s 3 = ∫0 .5 = s in
)
dx
(x )
第二次上机实验： 实验名称：选择结构程序设计。 实验内容：1.根据输入的x的值，计算y与z的值并输出。
⎧ x 2 + 1 ( x ≤ 2 .5 ) ⎪ y = ⎨ 2 ⎪ x − 1 ( x f 2 .5 ) ⎩
⎧ π ⎪− x + 3( x < 0 ) ⎪ 2 z = ⎨0 x =0 ⎪π ⎪ x −5( x > 0 ) ⎩2
3.输入一个三位整数，将它反向输出。例如输入127，输出应为721。 实验要求：熟悉pascal编程环境，主要是turbo pascal 7.0 的编译运 行环境。在所提供的编译运行环境中进行顺序结构编程设计。理解顺 序结构的思想意义。掌握pascal程序的大致结构。
基本点和重点：pascal 的标识符语法，程序结构，实数的表示方法。 运算符的运算对象类型和结果类型，标准函数表，read 语句和readln 语句，write语句 writeln语句。
第八次上机实验： 实验名称：文件类型程序设计。 实验内容：1.建立存放建立存放y值的实数文件。已知: x
y = e ( x = 1.0,1.1,1.2,...3.9)
2. 输入10个学生的记录（每个记录包括学号，姓名，性别，年龄， 成绩）。组成记录文件，然后从文件中读记录输出。 3.统计上题学生记录文件中男，女生人数，平均年龄，平均成绩， 90分以上人数，60－90分人数，不及格人数。 4.将学生记录按成绩排序后写入一文件，按年龄排序后写入另一文 件，并输出两文件的内容。 5.读学生记录文件，将年龄加1，然后按性别分成两个文件，并输 出两文件的内容。