Массив

  • Автор темы NemoI3
  • Дата начала
N

NemoI3

Гость
#1
У меня есть две матрицы A[1..3, 1..3], B[1..4, 1..4]. Есть исходные данные для матриц. Я их ввожу как константу, но в процедуре они не воспринимаются!
Подскажите, пожалуйста, как можно по другому задать данные в массивы, и как описать массив в процедуре, чтобы он работал под разные размерности матриц??? Мучаюсь 3 день...никак не могу решить задачу...помогите пожалуйста!

Код:
Type mass1=array[1..3,1..3]of real;
Type mass2=array[1..4,1..4]of real;
Type mass3=array of array of real;

procedure vozr(n:integer; var x:mass3);
var ...
begin
...
end;

var i,j,m,l:integer; v:mass1; c:mass2; 
const a1:mass1=((1.8, 3.4, -1.5), (3.1, 0, 2.1), (0.25, 4, 1.1));
b1:mass2=((1,0.8,2.5,-1),(2.1,0.3,3.1,1.5),(2.5,0.33,2.1,5),(6.4,1.3,0.25,1));
begin
...
vozr(m,a1);
vozr(l,b1);
...
end.
 

vital

Больной Компом Детектед
29.01.2006
2 432
42
#2
подойдите к тому, кто сказал, что константу можно сделать массивом - и стукните по рукам.