郑启华pascal程序设计的答案

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/07/27 17:43:14

郑启华pascal程序设计的答案
7.13输入矩阵a（ 5行5列），完成下列要求：（1）输出a（2）将a的第2行和第5行元素对调后，形成新的矩阵a并输出（3）用对角线（指矩阵的左上角到右下角的对角线）上的元素分别去除相应的个元素，又形成一个新的矩阵a并输出。7.14输入矩阵a（ 6行6列），完成下列要求：（1）输出a（2）将对角线至外地行三角形的每个元素加1，下三角形的每个元素减1，形成新的矩阵a并输出（3）找出新矩阵a中绝对值最大的元素及其行、列位置并输出（ 4）用绝对值最大的元素去除新矩阵a的各元素。又形成一个新的矩阵a并输出。9.2输入20个数A1，A2，A3，~A20，将他们从小到大排序后输出，并给出每个输出值所对应的原来输入次序（用纪录作）。

7.13 (3) 7.14(4)不太明白什么意思7.13:var a:array[1..5,1..5] of longint;var l1,l2,l3,l4:integer;beginfor l1:=1 to 5 dofor l2:=1 to 5 do read(a[l1,l2]); for l1:=1 to 5 dobeginwriteln;for l2:=1 to 5 do write(a[l1,l2],' ');end; for l1:=1 to 5 dobeginl2:=a[2,l1];a[2,l1]:=a[5,l1];a[5,l1]:=l2;end;for l1:=1 to 5 dobeginwriteln;for l2:=1 to 5 do write(a[l1,l2],' ');end;end. 7.14:var a:array[1..6,1..6] of longint;var l1,l2,l3,l4,absmax,x,y:longint;beginfor l1:=1 to 6 dofor l2:=1 to 6 do read(a[l1,l2]); for l1:=1 to 6 dobeginwriteln;for l2:=1 to 6 do write(a[l1,l2],' ');end; for l1:=1 to 6 dofor l2:=(l1+1) to 6 do a[l1,l2]:=a[l1,l2]+1;for l1:=1 to 6 dofor l2:=1 to (l1-1) do a[l1,l2]:=a[l1,l2]-1;for l1:=1 to 6 dobeginwriteln;for l2:=1 to 6 do write(a[l1,l2],' ');end; absmax:=abs(a[1,1]);x:=1;y:=1;for l1:=1 to 6 dofor l2:=1 to 6 do if a[l1,l2]>absmax then beginabsmax:=a[l1,l2];x:=l1;y:=l2;end;write(absmax,' ',x,' ',y); end. 9.2var a,b:array[1..20] of longint;var l1,l2,l3:longint;beginfor l1:=1 to 20 dobeginread(a[l1]);b[l1]:=l1;end; for l1:=1 to 20 dofor l2:=19 downto l1 dobeginif (a[l2+1])

谁知道郑启华的PASCAL程序设计第五章习题答案电脑程序设计:PASCAL语言 free pascal程序设计,尽量用简单语言,难的看不懂 pascal程序设计输入一个整数n,n 急需VFP程序设计试题的答案 program 【pascal 程序设计】问题：begin 1.试打印出1-20的自然数.（用while do 语言）求一个pascal语言的选择题答案! 求救!期末作业,MATLAB程序设计的题目~~求答案~ "程序设计"的英语怎么说? 【程序设计】------------------------------------------------------ Pascal 也分 Turbo Pascal 和 Free Pascal 的第三版VB程序设计教程课后习题答案龚沛曾主编的