Как передать массив в процедуру?

Question

[dmitri_001]

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

Program1.pas(33) : Нельзя преобразовать тип array [0..3] of integer к array of integer

Код выглядит следующим образом:
procedure test(a,b: array of integer);
собственно сами массивы, которые я передаю вызываю как
a: array [0..3] of integer;
Как действовать?

Answer 1

[Антон Федорян]

Установил Pascal ABC.net (версия 3.1, сборка 1179 от 29.02.2016)

Как пишет справка:

Передача статического массива в подпрограмму

При передаче статического массива в подпрограмму по значению также производится копирование содержимого массива - фактического параметра в массив - формальный параметр:

procedure p(a: Arr); // передавать статический массив по значению - плохо!
...
p(a1);

Это крайне расточительно, поэтому статические массивы рекомендуется передавать по ссылке. Если массив не меняется внутри подпрограммы, то его следует передавать как ссылку на константу (const), если меняется - как ссылку на переменную:

type Arr = array [2..10] of integer;

procedure Squares(var a: Arr);
begin
  for var i:= Low(a) to High(a) do
    a[i] := Sqr(a[i]);
end;

procedure PrintArray(const a: Arr);
begin
  for var i:= Low(a) to High(a) do
    Print(a[i])
end;

var a: Arr := (1,3,5,7,9,2,4,6,8); 

begin
  Squares(a);
  PrintArray(a);
end.

Для доступа к нижней и верхней границам размерности одномерного массива используются функции Low и High.

Вот рабочий код:

Program arrays;
type
  tArray = array [0..3] of integer;

var
  a, b: tArray;
  i: integer;

procedure FirstProcedure(a, b: tArray); 
begin
  writeLn(a);
end;

begin
  for i := Low(a) to High(a) do
    begin
      writeLn('WHAT IS A' + i + '?');
      readLn(a[i]);
    end;
    
  for i := Low(b) to High(b) do
    begin
      writeLn('WHAT IS B' + i + '?');
      readLn(b[i]);
    end;

  FirstProcedure(a,b);
end.

Comments

[dmitri_001]

А не подскажите, что делать с такой ошибкой? Program1.pas(33) : Нельзя преобразовать тип array [0..3] of integer к array of integer

[Антон Федорян]

dmitri_001: свой полный код дайте для начала

[dmitri_001]

Антон Федорян: Program arrays;

var a : array [0..3] of integer;
var b : array [0..3] of integer;

i: integer;
j: integer;

/// Херак и в продакшн
procedure FirstProcedure(a,b: array of integer);
begin
writeLn(a);
end;

begin


for i:=0 to 3 do
begin
writeLn('WHAT IS A' + i + '?');
readLn(a[i]);
end;

for j:=0 to 3 do
begin
writeLn('WHAT IS B' + j + '?');
readLn(b[j]);
end;

writeLn(i);
writeLn(j);
FirstProcedure(a,b);
end.

[Антон Федорян]

var a : array [0..3] of integer;
var b : array [0..3] of integer;

procedure FirstProcedure(a,b: array of integer); // Здесь надо придумать другие имена массивам, либо поместить выше объявления одноименных массивов

И почитайте про область видимости переменных.

[dmitri_001]

Антон Федорян: имена для переменных тоже менял, не помогло. Ругается именно на преобразование array [0..3] of integer к обычному array of integer

[Антон Федорян]

Все компилируется и работает во Free Pascal

Program arrays;

var a : array [0..3] of integer;
var b : array [0..3] of integer;

i: integer;
j: integer;


procedure FirstProcedure(a,b: array of integer);
begin
writeLn(a[1] + b[2]);
end;

begin


for i:=0 to 3 do
begin
writeLn('WHAT IS A', i, '?');
readLn(a[i]);
end;

for j:=0 to 3 do
begin
writeLn('WHAT IS B', j, '?');
readLn(b[j]);
end;

writeLn(i);
writeLn(j);
FirstProcedure(a,b);
readln();
end.

[dmitri_001]

Антон Федорян: Спасибо, но к сожалению в PascalABC не завелось, а задание нужно делать в нем. Эх, буду пытаться решить эту хрень.

[Антон Федорян]

dmitri_001: изменил ответ, теперь работает на ABC