arrays - 创建二维数组 (nxn) *Pascal

Question

有谁知道如何在 Pascal 中使用数组函数创建矩阵？

输出将是这样的：

00100
01110
11111
01110
00100

谢谢。

编辑：

到目前为止，这是我的代码：

program borlpasc;
var a:array[1..100,1..100] of integer;
    i,j,n:integer;
begin write('Enter the Number N='); {Example: 5}
   readln(n);
   for i:=1 to n do
       for j:=1 to n do
           begin a[i,j]:=0;
           if n mod 2 = 1 then begin
           a[n div 2 + 1, j] := 1;
           a[i, n div 2 + 1] := 1;
           end;
           end;
    for i:=1 to n do
        begin for j:=1 to n do write(a[i,j]:2);
            writeln
        end;
     readln
end.

但只能得到这个：

00100
00100
11111
00100
00100

Answer 1

你不需要数组，只需要两个嵌套的 FOR 循环。这是一个编写 1 网格的示例 - 看看您是否可以修改它以提供您需要的输出（提示：您需要添加一个 IF 语句）。

program Grid;

  procedure DrawGrid(nx: integer; ny: integer);

    var
      x, y: integer;

    begin
      for y := 1 to ny do
        begin
          for x := 1 to nx do
            begin
              write('1');
            end;
          writeln;
        end;
    end;

begin
  DrawGrid(5, 5);
end.