Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Категории
Алгоритмы [95]
API [111]
Pascal [153]
Базы Данных [173]
BDE [0]
Интернет [0]
Мультимедия [0]
Аппаратное обеспечение [0]
Операционная система [0]
Компоненты [0]
Классы [0]
OLE+ [0]
Миграция [0]
Ошибки [0]
DLL [0]
Продукты третьих фирм [0]
Разное [0]
События [0]
Главная » Статьи » Не стандартные примеры на Delphi » Pascal
Создание многомерного массива
   
type
PRow = ^TRow;
TRow = array[0..16379] of Single;

PMat = ^TMat;
TMat = array[0..16379] of PRow;

var
Mat: PMat;
X, Y, Xmax, Ymax: Integer;

begin
Write('Задайте размер массива: ');
ReadLn(Xmax, Ymax);
if (Xmax <= 0) or (Xmax > 16380) or (Ymax <= 0) or (Ymax > 16380) then
begin
WriteLn('Неверный диапазон. Не могу продолжить.');
Exit;
end;
GetMem(Mat, Xmax * SizeOf(PRow));
for X := 0 to Xmax - 1 do
begin
GetMem(Mat[X], Ymax * SizeOf(Single));
for Y := 0 to Ymax - 1
do  Mat^[X]^[Y] := 0.0;
end;
WriteLn('Масси инициализирован и готов к работе.');
WriteLn('Но эта программа закончила свою работу.');
end.

- Steve Schafer 

Категория: Pascal | Добавил: DelphiAiX (09.05.2012)
Просмотров: 418 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
  тИЦ и PR сайта www.aix.ucoz.ru Protected by Copyscape Web Copyright Protection Software Счетчик цитирования
Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума