IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> массивы и желательно не очень размерные, ищу ответ на вопрос
Airon
сообщение 16.02.2005 16:28
Сообщение #1


Гость






Люди, люди, человеки!!! расскожите как задовать массив [1..k].
тоесть с неопределённым верхним пределом??!
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Altair
сообщение 18.02.2005 20:56
Сообщение #2


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

да.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Digitalator
сообщение 19.02.2005 17:04
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 247
Пол: Мужской

Репутация: -  1  +


Цитата(Oleg_Z @ 19.02.05 4:56)
да.


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

Код

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.


--------------------
In byte we trust
ICQ World.ru
mail[dog]digitalator[dot]com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 26.07.2025 21:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"