> -- Александр К писал(а):
> В старом Паскале были записи с вариантами (использовался оператор CASE):В КП есть ли что-то подобное записи с вариантами?
Что-то подобное заключается в расширении записей. Наличие этого механизма сделало избыточными менее естественные записи с вариантами.
## Код:
```
TYPE
  entry = EXTENSIBLE RECORD
    author, title: ARRAY 16 OF CHAR;
    year: INTEGER
  END;
  book = RECORD(entry)
    publisher, cyty: ARRAY 16 OF CHAR;
  END;
  magazine = RECORD(entry)
    magName: ARRAY 16 OF CHAR;
    volume, issue: INTEGER
  END;

VAR
  reflist: POINTER TO entry;
  ebook: POINTER TO book;
  emag: POINTER TO magazine;

BEGIN
  NEW(ebook);
  ebook.cyty := 'NEWYORK'; 
  reflist := ebook;

  NEW(emag);
  emag.volume:= 5;
  reflist := emag
```
