Про массивы.

[Cliffe Snake]

Вот у меня вопрос. Можно ли так?

Type
  masint = array[1..10,1..10] of integer;
  objint = array[1..10] of masint;
Var 
  i,j,k : integer;
  object : objint;
begin
//..... Как правильно обратиться к элементу Object?
end. 


[beZ_probleM]

object[i].[j,k]:= не пробывал?))
как на меня то бред=))

[ViNT]

Вот так компилится, но работу мидлета не проверял:

type
 objint=array[1..10,1..10,1..10] of integer;
var
 object:objint;
begin
  object[1,2,3]:=12;
end; 


[beZ_probleM]

вообщето да... какой смысл создавать "подмасивы" если фсё можно запхнуть в один масив с тремя переменными и работать с objint как с первой переменной в примере создателя темы а с masint как с остальными двумя

[Cliffe Snake]

Дело в том, что МП не держит больше двух размерностей. Компилится, то он нормально, но вот мидлет не запускается. Выдает ошибку класса, не помню какого.

[beZ_probleM]

Type 
     Tobjint = array[1..10,1..10] of integer; 

Var  
  i,j,k : integer; 
  object : array[1..10] of Tobjint; 
begin 
//.....
Object[i].masint[j,k] := 100;
end. 


[ViNT]

Этот код даже не скомпилится.
Вообще похоже, что в MP можно создать максимум двумерный массив.

[Frank]

Сейчас попробовал сделать трехмерный массив, все нормально скомпилировалось и запустилось (эмулятор -Sjboy)

Program Array3D;

var object:array[1..10,1..10,1..10] of integer;
Begin
	object[5,7,3]:=7;
	object[1,4,9]:=8;
	object[7,3,6]:=object[5,7,3]*object[1,4,9];
	DrawText(IntegerToString(object[7,3,6]), 5, 5);
	Repaint;	
	Delay(5000);
End.

[Cliffe Snake]

Всё решил проблему, вспомнив слова Odd о реализации неквадратных массивов.
Принцип таков:

Program Massivy;
var
  i,j,k     : integer;
  object : array [1..1000] of integer;
begin
//.....
i:=1;j:=1;k:=1;
//Обращаюсь к элементу
Object[(i-1)*100+(j-1)*10+k]:=34;
//....
end. 


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

[Cliffe Snake]

GetObj:=obj[((y div 10)+x)*z];

Сомневаюсь, что индекс будет правильным. y div 10 будет всегда давать 0 при (y>=0) and (y<10).
Наверно, там должно быть y mod 10?
Имхо, описанный мной способ нагляднее.
Всё-равно спасибо за участие

[Frank]

Ой блин! ступил я немного! действительно правильно делать как ты и написал, но я все равно лучше бы закатал обращение к массиву через функцию, чтобы каждый раз эту формулу не выписывать...