早教吧 育儿知识 作业答案 考试题库 百科 知识分享

[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

▼优质解答
答案和解析
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.
看了[freepascal]矩阵问...的网友还看了以下: