Процедура для ввода массива. Необъяснимо но факт!

[felix800]

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

const
   count_massive=3;
type
   mass_masive=array[1..count_massive] of real;

var
   m: mass_masive;
   kol_el, i: integer;


procedure entmas (var kol_elem: integer;  m: mass_masive);
   var
      i: integer;
   begin
      write ('Введите количество элементов массива: ');
      readln(kol_elem);
      writeln ('Ввод массива');
      for i:=1 to kol_elem do
         begin
            write ('Элемент №',i,' -> ');
            readln (m[i]);
         end;
   end;
   
begin
   entmas(kol_el,m);
   writeln ('Введенный массив');
   for i:=1 to kol_el do
      write (m[i],' ');
end.

Результат работы программы:
------------------------------------------
Введите количество элементов массива: 3
Ввод массива
Элемент №1 -> 1
Элемент №2 -> 2
Элемент №3 -> 3
Введенный массив
0 0 0
------------------------------------------
В общем выводит пустой массив, и все тут...



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Прик]

Массив в процедуру в этом случае надо передавать по ссылке:

procedure entmas (var kol_elem: integer; var m: mass_masive);

[felix800]

Прик-у РЕСПЕКТ!
Однако хотелось бы узнать, в чем фишка токого подхода к передачи массива в процедуру. Зачем повторно указывать раздел VAR, может и для каждого типа необходмо прописывать отдельное VAR (например procedure prim (var a: integer; var b: real; var c: byte и т.д.)???

[Прик]

var в нашем случае указание компилятору, что массив передается в виде указателя на него. Без этого служебного слова массив передается целиком - все его значения (собственно, копия массива). При этом изменения в массиве происходят только в локальной его копии и при выходе из процедуры эти значения естественным образом теряются. Нам же надо чтобы изменения были в том массиве, который объявлен "глобально", в модуле. Это можно сделать только если передать ссылку на эту переменную массива, как раз используя слово var.

VAR в параметрах указывается только тогда, когда нужно получить измененное значение этого параметра в вызывающей процедуре. Как, например, значение переменной kol_elem.
Если использование измененного значения параметра в вызывающем процедуру коде не предполагается, то и передавать параметр по ссылке нет никакой необходимости.

[eoln]

Сообщение от Прик

...чтобы изменения были в том массиве, который объявлен "глобально", в модуле. Это можно сделать только если передать ссылку на эту переменную массива, как раз используя слово var...

Немного добавлю. Если массив в области видимости процедуры (как в данном случае), то можно вообще обойтись без передачи параметра.

2felix800, кстати, при использовании глобальных переменных надо внимательно следить за их областью видимости, иначе можно незаметно ошибиться.

[Serge_Bliznykov]

eoln, не надо учить плохому... Учите хорошему - плохому они сами научаться.

Это я про использование глобальных переменных.