原创力文档- 1、本文档共29页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
二维数组 输入10名学生某门课程的成绩（语文） 二维数组赋值 for i:=1 to 10 do for j:=1 to 4 do read(a[i,j]); 二维数组输出 for i:=1 to 10 do for j:=1 to 4 do write(a[i,j]); 二维数组输出范例 program ex1; var i,j:integer; a:array[1..100,1..100] of integer; begin for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]); for i:=1 to 3 do for j:=1 to 3 do write(a[i,j]:5); end. 二维数组输出范例 输出修改后 for i:=1 to 3 do begin for j:=1 to 3 do write(a[i,j]:5); writeln; end; {通过一个两重循环输出一个二维数组合} end. 输入n名学生数学、语文、英语、物理、化学五门课的考试成绩，求出每名学生的总分，打印出表格。 var a:array[1..100,1..6] of integer; n,i,j,t,f:integer; begin readln(n); for i:=1 to n do a[i,6]:=0; for i:=1 to n do for j:=1 to 5 do begin read(a[i,j]); a[i,6]:=a[i,6]+a[i,j]; end; for i:=1 to n do begin for j:=1 to 5 do write(a[i,j], ); writeln(a[i,6]); end; end. 例1 矩阵行交换 有下列数据组成1个数据区 4 6 7 2 9 3 5 1 6 要求输出以下格式 4 6 7 5 1 6 2 9 3 for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]); for j:=1 to 3 do begin k:=a[2,j]; a[2,j]:=a[3,j]; a[3,j]:=k; end; for i:=1 to 3 do begin for j:=1 to 3 do write(a[i,j],’ ’); writeln; end; 例2 矩阵转换 有下列数据组成1个数据区 4 6 7 2 9 3 5 1 6 要求输出以下格式 4 2 5 6 9 1 7 3 6 for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]); for j:=1 to 3 do begin for i:=1 to 3 do write(a[j,i],’ ’); writeln; end; 例3 输入一个4*4方阵，分别求出两条对角线上元素之和 Sample Input 1 2 3 4 3 2 2 3 4 4 1 4 5 2 2 1 Sample Output 5 15 for i:=1 to 4 do for j:=1 to 4 do begin read(a[i,j]); if （i=j）then inc(s,a[i,j]); if (i+j=5) then inc(t,a[i,j]); end; write(s,’ ’,t); 例4 稀疏矩阵 大部分元素是0的矩阵称为稀疏矩阵，假设有k个非0元素，则可以把稀疏矩阵用k*3的矩阵简记之，其中第一列是行号，第二列是列号，第三列是该行，该列的非零元素 例如 0 0 0 5 0 2 0 0 0 1 0 0 简写为 1 4 5
文档评论（0）