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.
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.
pascal 已知一个6*6的矩阵,把矩阵两条对角线上的元素加上10,然后输出这个新矩阵.
c++ 已知一个6*6的矩阵(方阵),把矩阵二条对角线上的元素值加上10,然后输出这个新矩阵.
编写程序,建立并输出一个10*10的矩阵,是该矩阵两条对角线上的元素都是1,其余元素为0
c语言问题.编程求一个4*4矩阵两条对角线上所有元素的和
用二维数组怎么输出矩阵的两条对角元素
由键盘输入n阶的方阵,请输出该矩阵各列元素的和,以及两条对角线上各个元素之和
一个n阶矩阵,主对角线上都为-1,其余元素全部为1,求这个矩阵的秩?
对角矩阵 特征值就是对角线上的各个元素么?
编写VB程序,建立并输出一个n×n的矩阵,该矩阵对角线上的元素为4,其余元素均为-1
为什么上三角矩阵和下三角矩阵的特征值就是矩阵对角线上的元素?
求一个3*3矩阵两条 元素之和,并输出矩阵元素最大值和最小值的下标.纠错
C语言函数 编程输入一个n*n矩阵中各元素的值,找出两条对角线上的元素之和