3

我必须在 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

你能帮助我吗？

4

2 回答 2

4

您的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.
于 2013-03-20T13:07:49.117 回答
2

您已将行、列和矩阵声明为字符串数组。

将其更改为整数数组。

您需要在运行时定义行和列数组。

var
  row : array[1..4] of Integer;
  column : array[1..4] of Integer;
  matrix : array[1..4,1..4] of Integer;

  x:integer;
  y:integer;

begin
  Randomize; // Init random generator
  for x := 1 to 4 do
  begin
    row[x] := Random(51);
    column[x] := Random(51);
  end;

  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
  begin
    for y := 1 to 4 do
    begin
      write(IntToStr(matrix[x,y]), ' ');
    end;
    WriteLn;
  end;
  ReadLn;

end.
于 2013-03-20T12:59:44.923 回答