Question

有没有人知道如何使用Pascal中的数组函数创建Matrix？

输出将是这样的：

感谢。

修改

这是我的代码软件：

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.

但只能得到这个：

Answer 1

你不需要数组，只需要两个嵌套的FOR循环。下面是一个写1s网格的例子 - 看看你是否可以修改它以得到你需要的输出（提示：你需要添加一个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.

创建二维数组（nxn）* Pascal

1 个答案: