Динамические массивы

[Kazik]

Ребят..помогите написать задачу. Язык программирования - Pascal. Нужно создать два одномерных массива А и В (фиксированного размера...например 5 элементов), и сравнить их. Если массивы не равны, то сформировать новый массив где Сi =Аi + Вi. Если массивы равны, то переписать массив А в массив С. Просто это сделать могу...но дело в том, что нужно сделать используя указатели на элементы массива (^) и функции GetMem и FreeMem.

[TinMan]

Сообщение от Kazik

Ребят..помогите написать задачу. Язык программирования - Pascal. Нужно создать два одномерных массива А и В (фиксированного размера...например 5 элементов), и сравнить их. Если массивы не равны, то сформировать новый массив где Сi =Аi + Вi. Если массивы равны, то переписать массив А в массив С. Просто это сделать могу...но дело в том, что нужно сделать используя указатели на элементы массива (^) и функции GetMem и FreeMem.

Полагаю, ты запутался в терминах.
Динамические массивы - это концепция, которая как раз позволяет избежать явного использования таких функций, как Getmem и FreeMem. А если тебе нужно использовать именно эти функции, то речь идет об организации массивов в динамической памяти.

Как-то вот так.. Пишу прямо тут, ошибки могут быть ))

const
  n = 5;

type
  tA = array[1..n] of integer;

var
  a,b,c: ^tA;
  i: integer;
  yes: boolean;

begin
  GetMem(a,SizeOf(a));  // можно так
  GetMem(b,SizeOf(tA));   // и можно так
  GetMem(c,n*SizeOf(integer));  // или даже так
  for i:=1 to n do begin
    a^[i]:= Random(n);
    b^[i]:= Random(n)
  end;
  yes:= true;
  for i:=1 to n do yes:= yes and (a^[i]=b^[i]);
  for i:=1 to n do
    if yes then c^[i]:= a^[i] else c^[i]:= a^[i]+b^[i];
  ...  // тут вывод массива c^
  FreeMem(a);
  FreeMem(b);
  FreeMem(c);
end.

[Serge_Bliznykov]

  GetMem(a,SizeOf(a));  // можно так

Нет! Категорически нет!!

переменная a - указатель (pointer), её размер 4 байта:

const  n = 5;
type
  tA = array[1..n] of integer;

var
  a,b,c: ^tA;
  i: integer;
  yes: boolean;

begin
  WriteLn('sizeof a = ',SizeOf(a)); 
  WriteLn('size of tA = ',SizeOf(tA));
  readln;
end.

[TinMan]

Извиняюсь, бес попутал (все же надо отлаживать код)).
Спаибо за исправление, +1 (когда смогу))