Наполнить массив 2d буквами

[anton2887]

Всем привет, подскажите пожалуйста как наполнить массив данными (буквами), чтобы было пять столбиков и две строки, чтобы вторая строка была продолжением первой.

#include <Array.au3>

Local $Array[2][5]

Local $Array2[5] =['а','б','в','г','д','е','ж','з','и','й']

For $i=0 to UBound($Array2) -1

    $Array[0][$i]=$Array2[$i]

Next

    _ArrayDisplay($Array, "Наполненный массив")

 

[InnI]

Укажите количество колонок и массив. Количество строк рассчитается автоматически

$c = 5 ; число колонок (больше нуля)

Global $a[] =['а','б','в','г','д','е','ж','з','и','й']
;~ Global $a[] = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22]

$l = Ceiling(UBound($a) / $c)
ReDim $a[$l * $c]
Global $ar[$l][$c]
For $i = 0 To $l - 1
  For $j = 0 To $c - 1
    $ar[$i][$j] = $a[$i * $c + $j]
  Next
Next

#include <Array.au3>
_ArrayDisplay($ar, "Наполненный массив")

 

[anton2887]

Укажите количество колонок и массив. Количество строк рассчитается автоматически

$c = 5 ; число колонок (больше нуля)

Global $a[] =['а','б','в','г','д','е','ж','з','и','й']
;~ Global $a[] = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22]

$l = Ceiling(UBound($a) / $c)
ReDim $a[$l * $c]
Global $ar[$l][$c]
For $i = 0 To $l - 1
  For $j = 0 To $c - 1
    $ar[$i][$j] = $a[$i * $c + $j]
  Next
Next

#include <Array.au3>
_ArrayDisplay($ar, "Наполненный массив")

InnI, спасибо все работает, а вы можете закомментировать данный код, так сказать, для лучшего усвоения данного материала?

 

[InnI]

Там нечего комментировать. Кликайте по функциям - читайте справку.