91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

delphi二維數組怎么定義和賦值

小億
249
2023-12-01 18:28:34
欄目: 編程語言

在Delphi中,可以使用類似于其他語言的二維數組的概念來定義和賦值二維數組。以下是一個示例:

  1. 定義二維數組:
var
  myArray: array of array of Integer;
  1. 分配二維數組的大小:
SetLength(myArray, rowCount, colCount);

其中,rowCountcolCount分別表示二維數組的行數和列數。

  1. 賦值二維數組的元素:
myArray[rowIndex, colIndex] := value;

其中,rowIndexcolIndex表示要賦值的元素的行索引和列索引,value表示要賦給該元素的值。

完整的示例代碼如下所示:

program TwoDimensionalArray;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

var
  myArray: array of array of Integer;
  rowCount, colCount: Integer;
  rowIndex, colIndex: Integer;

begin
  rowCount := 3;
  colCount := 4;
  
  SetLength(myArray, rowCount, colCount);
  
  for rowIndex := 0 to rowCount - 1 do
  begin
    for colIndex := 0 to colCount - 1 do
    begin
      myArray[rowIndex, colIndex] := rowIndex * colCount + colIndex;
    end;
  end;
  
  for rowIndex := 0 to rowCount - 1 do
  begin
    for colIndex := 0 to colCount - 1 do
    begin
      Write(myArray[rowIndex, colIndex], ' ');
    end;
    Writeln;
  end;
  
  Readln;
end.

上述的示例代碼定義了一個3行4列的二維數組,并使用嵌套循環對其進行賦值,并最后輸出二維數組的內容。輸出結果為:

0 1 2 3
4 5 6 7
8 9 10 11

0
寻乌县| 长春市| 同仁县| 上蔡县| 昭通市| 海阳市| 田林县| 那曲县| 江门市| 沂源县| 吉首市| 辉县市| 楚雄市| 新巴尔虎右旗| 深水埗区| 类乌齐县| 安平县| 盐城市| 寻乌县| 郎溪县| 永定县| 黄浦区| 枣庄市| 张北县| 铜川市| 北海市| 松原市| 鹤岗市| 托克逊县| 博乐市| 长垣县| 马鞍山市| 西盟| 平顶山市| 乌鲁木齐县| 岗巴县| 来安县| 富宁县| 邯郸县| 九江市| 南康市|