массивы и желательно не очень размерные, ищу ответ на вопрос Опции

[Airon]

Люди, люди, человеки!!! расскожите как задовать массив [1..k].
тоесть с неопределённым верхним пределом??!

[volvo]

Так что именно?

как задовать массив [1..k]

или все-таки с

неопределённым верхним пределом?

Это совершенно разные вещи. Массив [1 .. k] задается элементарно:

Код

const k = 10;
Var
 a: array[1 .. k] of integer;

А вот динамические массивы встроенными средствами Турбо Паскаля не создать... Хотя можно воспользоваться тем, что написано в ФАКе: FAQ: Динамические массивы

[hiv]

Есть два способа:
1. TList - список;
2. M: array of integer; массив неопределенного размера
setlength(M,128) - установить (выделить памяти для массива) размер массива 128 элементов.

[volvo]

hiv
Во избежании откликов типа "у меня не работает", все-таки надо бы уточнять, что

2. M: array of integer; массив неопределенного размера
setlength(M,128) - установить (выделить памяти для массива) размер массива 128 элементов.

имеет место только в Delphi...

[hiv]

Приношу свои извенения volvo!
Тогда остается только список.

[Altair]

списков тоже нет в турбо паскале ...

[Romtek]

Нет в стандартных средствах, но реализовать просто.

Смотрите FAQ

[Altair]

Динамические массивы тоже не сложно реализовать ;) смотрите FAQ.
Дело именно в наличии их как стандартных..

[Digitalator]

Если длина массива изменяется относительно редко(или вообще не изменяется) и ненакладно при каждом изминении копировать весь массив, то целесообразно использовать такую конструкцию

Код

var i,size:byte;
type TMyArray=array [0..0] of ArrayType;
var  MyArray:^TMyArray;
begin
size:=5;
getmem(MyArray, size*sizeof(integer));

MyArray^[0]:=1;
MyArray^[size-1]:=2;
for i:=0 to size-1 do writeln(MyArray^[i]);
freemem(MyArray, size*sizeof(ArrayType) );
end.

недостаток - воизбежание ошибок неообходимо в качестве индекса массива брать только переменные.

Сообщение отредактировано: Digitalator - 19.02.2005 0:08

[volvo]

Ну хорошо, может еще кто-нибудь предложит этот же алгоритм? Я ссылки для красоты по-Вашему даю? Ходить по ним не пробовали никогда? Иногда это бывает полезно...

[Digitalator]

Вы сцылку на фак имеете ввиду? право признюсь - дествительно фак никогда не читал за ненадобностью. Однако сейчас посмотрел, вот только кроме списков и афигенных модулей ничего там не заметил... я слепой?

[Altair]

кроме списков и афигенных модулей ничего там не заметил... я слепой?

да.

[Digitalator]

да.

Если не трудно ткните носом не вижу (наверно все-таки слепой) там ни одной конструкции хоть издали похожей на это:

Код

var i,size:byte;
type TMyArray=array [0..0] of ArrayType;
var  MyArray:^TMyArray;
begin
size:=5;
getmem(MyArray, size*sizeof(integer));

MyArray^[0]:=1;
MyArray^[size-1]:=2;
for i:=0 to size-1 do writeln(MyArray^[i]);
freemem(MyArray, size*sizeof(ArrayType) );
end.