pascal数组.ppt

第五章 数组 第一节 一维数组 为什么要使用数组 一维数组 一维数组的定义 一维数组元素的赋值操作 一维数组的引用 【上机练习5.1】 第二节 二维数组 二维数组的定义 二维数组元素的引用 二维数组程序设计 【上机练习5.2】 第三节 字符数组和字符串类型 字符类型 字符串类型 字符串的操作 字符串的函数和过程 请维护编者版权，请勿将课件在网络上传播。 福建省长乐一中 董永建 浙江省温州中学 舒春平 2009年9月 例5.11 大部分元素是0的矩阵称为稀疏矩阵，假设有k个非元素，则可把稀疏矩阵用K*3的矩阵简记之，其中第一列是行号，第二列是列号，第三列是该行、该列下的非元素的值。如： 0 0 0 5 写简记成： 1 4 5 //第1行第4列有个数是5 0 2 0 0 2 2 2 //第2行第2列有个数是2 0 1 0 0 3 2 1 //第3行第2列有个数是1 试编程读入一稀疏矩阵，转换成简记形式，并输出。 【分析】 本题中需要解决的主要问题是查找非零元素并记忆位置。将原始矩阵存于数组a。转换后的矩阵存于数组b，当然b数组的行数可以控制在一个小范围内。 program ex5_11; const n=3; m=5; var a:array[1..n,1..m] of integer; b:array[1..100,1..3] of integer; i,j,k:integer; begin for i:=1 to n do //矩阵初始 for j:=1 to m do read(a[i,j]); k:=0; for i:=1 to n do for j:=1 to m do if a[i,j]0 then //找到非零值，存储 begin k:=k+1; b[k,1]:=i; b[k,2]:=j; b[k,3]:=a[i,j]; end; for i:=1 to k do //输出 begin for j:=1 to 3 do write(b[i,j]:3); writeln; end; end. 例5.12 打印杨辉三角形的前10行。杨辉三角形如下图： 1 1 1 1 1 1 1 2 1 1 2 1 1 3 3 1 1 3 3 1 1 4 6 4 1 1 4 6 4 1 ???????? [图6-3]?????????????????????????? [图6-4] 【分析】 观察图6-3，大家不容易找到规律，但是如果将它转化为图6-4，不难发现杨辉三角形其实就是一个二维表的小三角形部分，假设通过二维数组yh存储，每行首尾元素为1，且其中任意一个非首位元素yh[i,j]的值其实就是yh[i-1,j-1]与yh[i-1,j]的和，另外每一行的元素个数刚好等于行数。有了数组元素的值，要打印杨辉三角形，只需要控制好输出其始位置就行了。 程序如下： program ex5_12; var a : array[1..10,1..10] of integer; i,j : integer; begin a[1,1] := 1; //设定第一行的值 for i := 2 to 10 do //从第二行开始推 begin a[i,1] := 1; a[i,i] := 1; //设定每一行的首尾值为1 for j := 2 to i-1 do //当前行非首尾的数 a[i,j] := a[i-1,j-1] + a[i-1,j]; //每个数等于上一行的二个数之和 end; for i := 1 to 10 do begin if i10 then write( :30-3*i); //控制每行的起始位置，即空格