Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Передача массива в процедуру   Найти похожие ветки 

 
leonidus ©   (2006-05-23 08:40) [0]

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

Делаю так:

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.

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


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

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.


 
balepa ©   (2006-05-23 09:27) [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;


 
leonidus ©   (2006-05-23 11:05) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
15-1147670358
Ega23
2006-05-15 09:19
2006.06.11
С Днём рождения!


11-1127915292
dvk
2005-09-28 17:48
2006.06.11
Особенности OpenSaveDialog_Extended


2-1148583505
Benjamin
2006-05-25 22:58
2006.06.11
pleace help ME!!!!


2-1148185325
Мурзилка
2006-05-21 08:22
2006.06.11
ещё раз про копирование строки


2-1148390088
rra
2006-05-23 17:14
2006.06.11
Заполнение DBLookupComboBox a из поля таблицы...