Что нового

Заполнение двухмерного массива.

akoulev

Новичок
Сообщения
166
Репутация
2
Заполняю двухмерный массив я так:
Код:
EnvUpdate ( )
$i=0; НОМЕР ПРОХОДА ЦИКЛА
$j=0; НОМЕР ЭЛЕМЕНТА МАССИВА
$Lim=7; КОЛИЧЕСТВО ПРОХОДОВ ЦИКЛОВ
$Exp=1; ПРОПУСК 1-Й ЧАСТИ, ЕСЛИ 1 -- И НЕ ПРОПУСК, ЕСЛИ 0
;MsgBox(0+4096, "Start", "Поехали!",0.5)
Dim $array[7] = [0,1,2,3,4,5]
Dim $array1[7] = [0.5,11,22,33,44,55]
Dim $arrMAIN [8][8]
    While $j<=6
        ;MsgBox( 48+4096, "Start", "$J=" & $j,0.3)
    $arrMAIN [0][$j]=$array[$j]
    $arrMAIN [1][$j]=$array1[$j]
    $j=$j+1
    WEnd
If $Exp=0 Then
    ; 1-Я ЧАСТЬ=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
    While $i<$Lim
        MsgBox( 48+4096, "Start", "$array[26]=" & $array[$i] & @CR & @CR & "$array1[26]=" & $array1[$i],0.3)
        $i=$i+1
    WEnd
Else
    ;НИХРЕНА 
EndIf
    ; 2-Я ЧАСТЬ=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
    MsgBox(0+4096, "Start", "Поехали-поехали-поехали-и-и-и-!!!",0.3)
    MsgBox(0+4096, "Start", "Поехали-               -и-и-и-!!!",0.3)
    MsgBox(0+4096, "Start", "       -поехали-       -и-и-и-!!!",0.3)
    MsgBox(0+4096, "Start", "               -поехали-и-и-и-!!!",0.3)
    MsgBox(0+4096, "Start", "Поехали-поехали-поехали-и-и-и-!!!",0.3)
    $i=0
        While $i<$Lim-0;5
        MsgBox( 48+4096, "Start", "$arrMAIN[0]["& $i &"]=" & $arrMAIN[0][$i] & @CR & @CR & "$arrMAIN[1]["& $i &"]=" & $arrMAIN[1][$i],0.3)
        $i=$i+1
        WEnd

, т.е., задаю 2 одномерных массива и, считывая их в цикле, начиняю по-элементно двухмерный массив. Но нет ли менее безумного способа? :shok: Pls. В документации - 'белое безмолвие', есть только:
Код:
$Array[1][1] = "Upper-Left"
$Array[2][1] = "Lower-Left"
$Array[1][2] = "Upper-Right"
$Array[2][2] = "Lower-Right"
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 711
Код:
Dim $arMAIN[6][2] = [[0, 0.5], [1, 11], [2, 22], [3, 33], [4, 44], [5, 55]]


или

Код:
Dim $arMAIN[2][6] = [[0, 1, 2, 3, 4, 5], [0.5, 11, 22, 33, 44, 55]]
 
Автор
A

akoulev

Новичок
Сообщения
166
Репутация
2
Спасибо; что-то тему закрыть не могу: кликаю, экран вздрагивает/обновляется - а тема остаётся открытой. О!, закрылось.
 
Верх