pascal教案 数组[下学期]

(共8张PPT)
PASCAL 程序设计
中山市第一中学
万杰
电话:13326968001 ,8817686
邮箱：wanjie@
第五章：数组
（1）数组存在的价值 已知五个变量中存了五个数。 问题1：找出五个数中的最大数。
问题2：将这五个数由小到大排序。
（2）数组的概念 六一班（1）号 六一班（2）号 six1class[1] six1class[2]
概念：数组就是把有限个类型相同的变量用同一个名字命名，
然后用编号区分他们的变量的集合。
完成任务
第五章：数组
建立一种数组类型
定义变量a为该种数组类型
给数组的元素赋值的一种形式
（3）数组类型定义的格式 type <类型标识符>=array[下标类型] of <基类型>;
Program wj; const nummax=10; type number=array[1..nummax] of integer; var i:integer; a:number; begin for i:=1 to 10 do a[i]:=i; end.
规定了数组元素个数
game1
（4）表示数组元素时注意事项
1.下标紧跟在数组名后,用且只能用中括号括起来 。a[1]
2.下标可以是常量、变量或表达式，但其值必须是整数。
a[1] a[2] a[3] a[4] a[5] a[6] a[7] a[8] a[9] a[10]
1 2 3 4 5 6 7 8 9 10
write(a[7]);
i:=a[2]+a[7]; write(a[i]);
i:=1; while i<=9 do
begin write(a[i]); i:=i+2; end;
i:=2; j:=3; write(a[i*j]);
3.下标必须为一段有序类型的数据 例如：name=array[1..10] of string
第五章：数组
练习：完成例5.1 目的:1.掌握如何简便的给数组元素赋值. 2.掌握如何简便的输出数组元素值. 3.掌握如何累加数组元素的值.
第五章：数组
program rzy5_1;
const
nummax=5;
type
report=array[1..nummax]of integer;
var
i,s:integer;
maths:report;
begin
for i:=1 to nummax do
begin
write('no:',i,'result=');
readln(maths[i]);
end;
writeln('input date:');
s:=0;
for i:=1 to nummax do
begin
write(maths[i]:4);
s:=s+maths[i];
end;
writeln;
writeln('average:',s/nummax:6:1);
end.
完成任务
game2
（5）数组的维数和定义
一维数组的理解和定义
Type name=array[1..5] of string;
1 2 3 4 5
Tom Adam Andy Bill David
第五章：数组
（5）数组的维数和定义
二维数组的理解和定义
Type name=array[1..5,1..7] of string;
1 2 3 4 5 6 7
1
2
3
4
5
第五章：数组
练习：完成例5.2 目的:1.理解二维数组的作用. 2.提高阅读程序的能力. 3.掌握复杂程序的调试方法.
课后练习:完成本章练习1、练习2
第五章：数组
game3