百度作业网[free pascal]矩阵
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/11 20:36:27
[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
![[free pascal]矩阵](/uploads/image/z/20106409-49-9.jpg?t=%5Bfree+pascal%5D%E7%9F%A9%E9%98%B5)
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.