arrays - 创建随机二维数组 (4x4) FreePascal

Question

我必须在 FreePascal 中制作随机二维数组 (4x4)。每个元素必须介于 0 和 100 之间。

例如:

12 99 1 85
43 75 5 11
0  100 77 31
64 15 9 74

我试过了，还是不行:

var
  row:array[1..4] of string = (random(100));
  column:array[1..4] of string = (random(100));
  matrix:array[1..4,1..4] of string;

  x:integer;
  y:integer;

begin

  for x := 1 to 4 do
    for y := 1 to 4 do
      matrix[x,y] := row[x] + column[y];

  for x := 1 to 4 do
    for y := 1 to 4 do
      write(matrix[x,y], ' ');

end.

它给出了错误:

Illegal expression
Expected another 3 array elements
Illegal expression
Expected another 3 array elements

你能帮帮我吗？

Answer 1

您的 row 和 column 变量是错误的，因为您不能通过函数调用来初始化数组。这些变量甚至不是必需的，因为您已经定义了 matrix。我已将 matrix 变量类型更改为多维整数数组。此代码生成0-100范围内的随机数； 0 和 100，包括在内。

program Project1;

uses
  SysUtils;

var
  X: Integer;
  Y: Integer;
  Matrix: array[1..4, 1..4] of Integer;
begin
  Randomize;

  for X := 1 to 4 do
    for Y := 1 to 4 do
      Matrix[X, Y] := Random(101);

  for X := 1 to 4 do
  begin
    for Y := 1 to 4 do
      Write(IntToStr(Matrix[X, Y]), ' ');
    WriteLn;
  end;

  ReadLn;
end.