Массивы.Процедуры

[Волк]

Помогите, кто может!!проблема состоит в том, что нужно создать программу с неизвестным количеством элементов в массиве.Я пробывал сделать через процедуру, но не получается!! код удалил поэтому прошу помогите,Без предоставления кода!!Прошу не считать лентяем!

[tsar_]

Дык динамические массивы никто не отменял...
При работе с ними можно программно менять число элементов.

[Serge_Bliznykov]

1) непонятно, что у Вас подразумевается под "неизвестное количество элементов в массиве"? Динамические массивы?

2)
тут всё зависит от того, для какого Паскаля нужен код.

если для TurboPascal - то там настоящих динамических массивов НЕ БЫЛО.
значит нужно или использовать обычные статические заведомо бОльшего размера, чем может быть задан пользователем, либо использовать хакерские штучки по выделению и доступу к памяти через указатели, либо использовать динамические связанные списки...

если же FPC/Delphi, то да. тут всё просто - есть нормальные динамические массивы
var Имя : array of ТипЭлемента;

3) зря Вы стесняетесь код свой выкладывать. Хоть было бы понятно, что именно Вы хотите сделать и что не получается..

[Волк]

требуется сделать в обычном турбо паскале=>нет динамических массивов.Создание массива заведомо большего размера это трата большого количества памяти,что в данном случае не желательно.Я хочу получить границы массива в процедуре или в самой программе а после использовать в программе или процедуре соответственно.Код я не выложил потому что я не сохранил его и мне придется его восстанавливать по памяти и я подумал что может кто-нибудь делал так как я предлагаюю

[Serge_Bliznykov]

по поводу траты памяти Вы не совсем правы.
сегмент данных в программе EXE под MS DOS выделяется 64 кб. Даже если Вы опишете одну переменную типа byte..
в этом способе хуже другое. По той же причине все переменные не могут занимать БОЛЕЕ 64 кб.
т.е.
var X[1..50000] of Integer;
уже не может быть скомпилировано - будет ошибка, что структура слишком велика...

попробуйте "хакерский" вариант.
он заключается в следующем трюке:

program DynMass;
{$N+}{$R-}

{пример создания динамического массива через указатели
 "хакерский" вариант
}

type
  TypeElem = extended;
  TMas = array[1..1] of TypeElem;
  TDymMas = ^TMas;

var
  i, N : integer;
  MyDMas : TDymMas; 

begin
  WriteLn('Введите размер массива: ');
  Readln(N);

  if N<1 then begin WriteLn('Неверное число!'); Readln; Halt(1); end;

  {выделить память под массив}
  GetMem(MyDMas, N * SizeOf(TMas));

  {для примера введём значения с клавиатуры}
  WriteLn('Ввод данных.');
  for i:=1 to N do begin
    Write('Введите A[',i,'] : '); Readln(MyDMas^[i]);
  end;
  WriteLn;

  {выведем значения в обратном порядке - тоже просто для примера}
  for i:=N downto 1 do 
    Write(MyDMas^[i]:1:3,' ');
  WriteLn;

  {освободить занятую память}
  FreeMem(MyDMas, N * SizeOf(TMas));

  WriteLn('Example Done.');
  Readln;
end.

[Волк]

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

[Hacker19_90]

(т.к. этот вариант "хакерский" в лабе его использовать не рекомендуется

Это почему это?
Он читает зарезервированные операционкой отделы памяти и меняет их чтоль?
Почему под словом хакер и хакерский, у некоторых людей ассоциации прямо скажем не приятные(мягко скажем)?

[Волк]

Смысл не в том хакерский или нет у меня нет никаких ассоциаций я просто говорю что такой вариант в лабе не желателен

[Hacker19_90]

Ладно извините, но я не про вас конкретно говорил! )
и так если вам не желательно использовать статик массив заранее большего размера
и способ описанный Serge_Bliznykov тоже вам не походит,
Может быть вы опишите задание?
И тогда уже что-то думать!

[Волк]

я все сделал используя статический массив большого размера.но все равно спасибо