作业帮 > 综合 > 作业

pascal 已知一个6*6的矩阵,把矩阵两条对角线上的元素加上10,然后输出这个新矩阵.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 16:09:44
pascal 已知一个6*6的矩阵,把矩阵两条对角线上的元素加上10,然后输出这个新矩阵.
program juzheng;
var a:array[1..6,1..6]of integer;x:string;f:text;
b,c:integer;
begin
writeln('shurudizhi,eg."a.txt"');
readln(x);
assign(f,x);
reset(f);
for b:=1 to 6 do
for c:=1 to 6 do
read(f,a[b,c]);
close(f);
writeln('shurudizhi,eg."a.txt"');
readln(x);
assign(f,x);
rewrite(f);
for b:=1 to 6 do
begin
a[b,b]:=a[b,b]+10;
c:=7-b;
a[b,c]:=a[b,c]+10;
end;
for b:=1 to 6 do
begin
for c:=1 to 6 do
write(f,a[b,c]);
writeln(f);
end;
close(f);
end.