free pascal. Заполнить массив array of pointer

[Решетова Алена]

Как заполнить массив type TDynArray=array of pointer; случайными числами в порядке неубывания?? И вывести его.
Например: 2 3 3 5 7 7 7 8 9 9
За размер можно взять N=10.
Просто for i:=0 to 9 do

[DiemonStar]

для каждого следующего значение берёте случайное значение не меньшее текущего. т.е. примерно так:

A[i+1] := A[i] + C*Random;

[Решетова Алена]

var a:TDynArray;
      i:integer;
      x:^integer;
begin 
setLength(a,10);
 randomize;
 new(x);
 x^:=3;
 a[0]:=x;
 for i:=0 to 8 do begin
  new(x);
  x^:=random(4);
  a[i+1]:=a[i] + x;
  write(a[i],' ');
 end;
end;

Вот тут a[i+1]:=a[i] + x; (16) Error: Operation "+" not supported for types "Pointer" and "^LongInt"
Я по-разному пробовала. И integer(a[i]^) и с х. И вывод разный. И dispose(x) ставила. Всё равно не корректно работает. Без dispose память забивает. А с ним невозможно потом дальше с массивом работать, будто затирается. Мне просто нужен одномерный динамический массив указателей в порядке неубывания.
Я все варианты написания перебрала с приведением типов и с ^



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

[DiemonStar]

Вопрос: А зачем Вам вообще динамическая переменная x? в её использовании нет абсолютно никакого смысла.

var a:TDynArray;
  i:integer;
begin 
  setLength(a,10);
  randomize;
  a[0]:=3;
  for i:=0 to 8 do begin
    a[i+1]:=a[i] + random(4);
    write(a[i],' ');
  end;
end.

проверьте - должно работать.

[Serge_Bliznykov]

Алёна,

так пробовали?

type TDynArray=array of pointer;

var a:TDynArray;
      i, n :integer;
      x:^integer;
begin
 WriteLn; Write('How many numbers do you want generate? ');
 ReadLn(n);

 setLength(a,n);
 randomize;
 new(x);
 x^:=3;
 a[Low(a)]:=x;
 for i:=Low(a)+1 to High(a) do begin
  new(x);
  x^:=random(4) + Integer(a[i-1]^);
  a[i]:=x;
 end;

 // вывод содержимого массива на экран
 WriteLn('Nubers are : ');
 for i:=Low(a) to High(a) do
   Write(Integer(a[i]^),' ');
 WriteLn;

 // освободить занимаемую память
    // сначала освободим память, занятую под числа
 for i:=Low(a) to High(a) do
   Dispose(a[i]);

    // а теперь освободим и память, выделенную под массив указателей
 setLength(a,0);

 WriteLn('Done.');
 Readln
end.

p.s. кстати, без X вполне можно обойтись

[Решетова Алена]

Спасибо большое))