早教吧作业答案频道 -->其他-->
[freepascal]矩阵问题描述输入一个矩阵的行数,输出对应的图形(对角线数据为0,其余为1)。输入格式输入数据只有一个整数n,表示矩阵有n行n列。输出格式输出n行,每行n个
题目详情
[free pascal]矩阵
问题描述
输入一个矩阵的行数,输出对应的图形(对角线数据为0,其余为1)。
输入格式
输入数据只有一个整数n,表示矩阵有n行n列。
输出格式
输出n行,每行n个数据,每个数之间有一个空格。
样例输入
5
样例输出
0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0
问题描述
输入一个矩阵的行数,输出对应的图形(对角线数据为0,其余为1)。
输入格式
输入数据只有一个整数n,表示矩阵有n行n列。
输出格式
输出n行,每行n个数据,每个数之间有一个空格。
样例输入
5
样例输出
0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0
▼优质解答
答案和解析
program Matrix;
var
n, head, tail, i, j: Integer;
begin
Readln(n);
head := 1;
tail := n;
for i := 1 to n do
begin
for j := 1 to n do
if (j <> head) and (j <> tail) then
Write('1 ')
else Write('0 ');
Writeln;
Inc(head);
Dec(tail);
end;
Readln;
end.
var
n, head, tail, i, j: Integer;
begin
Readln(n);
head := 1;
tail := n;
for i := 1 to n do
begin
for j := 1 to n do
if (j <> head) and (j <> tail) then
Write('1 ')
else Write('0 ');
Writeln;
Inc(head);
Dec(tail);
end;
Readln;
end.
看了[freepascal]矩阵问...的网友还看了以下:
设A为n阶矩阵,正整数k>=2,那么:(1)若A为对称矩阵,问A∧k是否为对称矩阵?为什么?(2) 2020-05-14 …
矩阵高手进,矩阵方面的超级难题!任何一个实对称正定矩阵都可以表示成一个实对称正定矩阵的平方,即若A 2020-05-22 …
麻烦帮忙翻译成日文谢谢啊日本人的生死观日本的文学作品很多赞美“死亡”的。日本作家为何对表现“死亡” 2020-06-11 …
矩阵a称为反称的.如果a'=-a,证明:任一n×n矩阵都可表为一对矩阵与一反称矩 2020-06-12 …
(1)文段记述了患上耳疾的贝多芬“一度绝望”、“想到了死”甚至“写下了遗书”的情节。有人认为这对表 2020-06-26 …
向量a=(111)^Tb=(10k)^T若矩阵ab^T相似于一个主对角线为300的对角矩阵那么k= 2020-07-11 …
对任意n阶方阵A,证明:A+AT为对称矩阵,A-AT为反对称矩阵,且A可以表示成一个对称矩阵与一个 2020-07-27 …
三元组表示的矩阵的操作实现给定关系R(用矩阵表示),求R的自反闭包、对称闭包和可传递闭包.要求:( 2020-08-02 …
请你去游乐场玩英语翻译1为了对表示对你的感谢,我想周六请你去游乐场玩2今天晚上他会请那个女孩看电影3 2020-11-26 …
一对表示山谷一对表示山鸡的等高线地形为一对表示山谷一对表示山鸡的等高线地形为这是一题一个空 2020-12-27 …