| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача массива в процедуру

leonidus ©   (2006-05-23 08:40:00) 

Подскажите пожалуйста, уже информатику забыл, а попросили сделать курсовую. Нужно вызвать процедуру и передать ей массив в качестве параметров, а после опработке в процедуре вернуть этот массив.

Делаю так:

var
x:array [1..10,1..15] of integer; {N - kol-vo strok, M - kol-vo stolbzov}
m,n:integer;

procedure vvod(x,y:integer; var a:array of integer);
 begin
  {vvod massiva}
 end;

begin
writeln('vvedite N<=10');
readln(n);
writeln('vvedite M<=15');
readln(m);
vvod(n,m,x); <-- компилятор показывает ошибку здесь

end.

Я и сам чувствую что лажа, но не врубаюсь где. Подскажите пожалуйста.

---

leonidus   (2006-05-23 11:05:00) [1]

Спасибо, понял.

---

balepa   (2006-05-23 09:27:00) [2]

Type
TDDArray = Array of Array of Integer;
var
 x:TDDArray;
 m,n:integer

procedure vvod(x,y:integer; var a:TDDArray);
begin
{vvod massiva}
end;

begin
 SetLength(x,2,2);
 X[1,1]:= 2;
 X[0,0]:= 1;
 vvod(n,m,x);
 x:= nil;
end;

---

Сергей М.   (2006-05-23 09:11:00) [3]

type
TMyArray = array [1..10,1..15] of integer;

var
x:TMyArray;
m,n:integer;

procedure vvod(x,y:integer; var a:TMyArray);
begin
 {vvod massiva}
end;

begin
writeln('vvedite N<=10');
readln(n);
writeln('vvedite M<=15');
readln(m);
vvod(n,m,x);

end.

---

Наверх