在Delphi中编程拉丁方？_Delphi_Pascal

在Delphi中编程拉丁方？

delphi pascal

在Delphi中编程拉丁方？,delphi,pascal,Delphi,Pascal,我正在尝试制作一个拉丁方程序，该程序接受用户输入的正方形大小（例如，输入5将生成一个拉丁方5x5），然后将格式化后的正方形输出给用户如果你不知道什么是拉丁方，或者想看看我设定的实际任务我已经稍微编写了一些代码，但我在第一关就失败了。老师们没有提供帮助，你们是我唯一的希望 uses System.SysUtils; var // Variables // 2D array, size defined in main code Square: array of array o

我正在尝试制作一个拉丁方程序，该程序接受用户输入的正方形大小（例如，输入5将生成一个拉丁方5x5），然后将格式化后的正方形输出给用户

如果你不知道什么是拉丁方，或者想看看我设定的实际任务

我已经稍微编写了一些代码，但我在第一关就失败了。老师们没有提供帮助，你们是我唯一的希望

uses
  System.SysUtils;

var
  // Variables

  // 2D array, size defined in main code
  Square: array of array of integer;
  // Integer holding the square size
  SquareSize: integer;

begin
  // Introduction
  writeln('This program will generate a Latin Squar of a size designated by you.');
  // Ask for user input, receive and store in a variable
  write('Enter the size of the Latin Square (1 value): ');
  readln(SquareSize);
  // More user friendly garbage
  writeln('Latin Square size: ', SquareSize, ' x ', SquareSize, '.');

  // Calculations

  // Set size of the 2D array to user designated dimensions
  setlength(Square, SquareSize, SquareSize);

end.

在最后一行代码（setlength）之后，我想将新2D数组中的所有值设置为用户输入的数字。我想

除此之外，我不知道自己在做什么。

如果你想帮助我，请你尽量简单，让我能理解它

很抱歉，这是第一次在堆栈溢出上出错。

您给出的答案也给出了答案，请参见下面的代码

program LatinSquare;

{$APPTYPE CONSOLE}

type 
  TSquare = array of array of Integer;

procedure WriteLatinSquare(var Square: TSquare; N: Integer);
var
  X, Y: Integer;
begin
  { Allocate and fill the square array. }
  SetLength(Square, N, N);
  for Y := 0 to High(Square) do
    for X := 0 to High(Square[Y]) do
      Square[X, Y] := (Y + X) mod N + 1;

  { Display the Square array. }
  for Y := 0 to High(Square) do
  begin
    for X := 0 to High(Square[Y]) do
      Write(Square[X, Y]:3);
    Writeln;
  end;
  Writeln;
end;

var
  Square: TSquare;
  SquareSize: Integer;

begin
  SquareSize := 6;
  WriteLatinSquare(Square, SquareSize);
  Readln;
end.

正如链接所说：从

开始，然后下一行按1移位，这样就变成

，以此类推。。。这就是第一部分（使用

，

循环）所做的：它填充正方形

当然，

Y+X

可以超过

0..5

的限制（稍后我添加了

），因此您使用

mod

来包装值，因此

变成

，

变成

，等等。实际上：

1st line: 0+0=0 -> 0, 0+1=1 -> 1, 0+2=2 -> 2, 0+3=3 -> 3, 0+4=4 -> 4, 0+5=5 -> 5
2nd line: 1+0=1 -> 1, 1+1=2 -> 2, 1+2=3 -> 3, 1+3=4 -> 4, 1+4=5 -> 5, 1+5=6 -> 0
3rd line: 2+0=2 -> 2, 2+1=3 -> 3, 2+2=4 -> 4, 2+3=5 -> 5, 2+4=6 -> 0, 2+5=7 -> 1
etc...

然后您添加1，因此得到的不是

，而是

例程的第二部分只是打印

正方形

数组

如果不需要保存正方形，可以通过一个部分完成：

procedure WriteMagicSquare2(N: Integer);
var
  X, Y: Integer;
begin
  for Y := 0 to N - 1 do
  begin
    for X := 0 to N - 1 do
      Write((Y + X) mod N + 1, ' ');
    Writeln;
  end;
  Writeln;
end;

输出（对于N=6）：