Константу-массив использовать в другой константе-массиве

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Ответить
resident
энтузиаст
Сообщения: 605
Зарегистрирован: 13.03.2013 16:58:51

Константу-массив использовать в другой константе-массиве

Сообщение resident »

Здрасть )
Подскажите, плз, возможно ли константу-массив использовать в другой константе-массиве?
У меня не хочет компилироваться.

Код: Выделить всё

const
  AAA: array [1..5] of real = (1, 2, 3, 4, 5);
  BBB: array [1..5] of real = (6, 7, 8, 9, 10);
  CCC: array [1..2, 1..5] of real =
    (
    (AAA),
    (BBB)
    );


Добавлено спустя 17 минут 18 секунд:
И так не хочет:

Код: Выделить всё

type
  aType = array [1..5] of real;
const
  AAA: aType = (1, 2, 3, 4, 5);
  BBB: aType = (6, 7, 8, 9, 10);
  CCC: array [1..2] of aType =
    (
    (AAA),
    (BBB)
    ); 
Аватара пользователя
Sergei I. Gorelkin
энтузиаст
Сообщения: 1409
Зарегистрирован: 24.07.2005 14:40:41
Откуда: Зеленоград

Сообщение Sergei I. Gorelkin »

Невозможно.
SAK
постоялец
Сообщения: 158
Зарегистрирован: 17.02.2006 23:45:14
Откуда: Тим
Контактная информация:

Сообщение SAK »

Более того типизованная константа совсем не константа, а статическая инициализированная переменная.

Код: Выделить всё

procedure test;
const a: integer  = 0;
begin
   a:=a+1;
   writeln(a)
end;

begin
   test;
   test;
   test
end.

Результат:
1
2
3
Ответить