Сложная задача с файлами( Опции

[DAn9I]

Сформировать файл "К",который содержит информацию о кубиках:
размер каждого кубика (длинна ребра в см), цвет (красный, желтый, зелений или синий), материал (дерево, металл, картон).
Переписать в файл “КІ” данные:
- количество кубиков каждого из цветов и их суммарный объем;
- количество деревянных кубиков с ребром 3 см.

[APAL]

Работа с файлами

Перечислимые типы (Показать/Скрыть)

Перечислимые типы
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Перечислимые типы определяют упорядоченные наборы значений, перечисляя
идентификаторы, которые обозначают эти значения. Их порядок следует из
последовательности, в которой они были перечислены.

Синтаксис:
Type имя = (идентификатор, идентификатор,..., идентификатор);

Замечания:
Идентификаторы в определении типа становятся константами перечислимого типа.

Первая константа имеет порядковый номер 0, вторая - 1, и так далее.

Перечислимые типы являются подклассом порядковых типов.

Пример:
Type Suit = (Club, Diamond, Heart, Spade);

При таком объявлении, Heart является констанотой типа Suit.

Стандартная функция Ord возвращает порядковый номер перечислимой константы.
В этом примере,

Ord(Club) = 0
Ord(Diamond) = 1
Ord(Heart) = 2

И так далее.

Типы записей (Показать/Скрыть)

Record (зарезервированное слово)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Запись содержит несколько компонентов, или полей, которые могут иметь
различные типы.

Синтаксис:
Record
Поля;
Поля;
...
Поля
End;

или

Record
Поля;
...
Case переключатель : тип Of
Вариант : (поля);
...
Вариант : (поля)
End;

Замечания:
Каждый список полей - список идентификаторов, разделенных запятыми
сопровождаемых двоеточием и указанием типа.

Пример:
{ Определения записей }

  Type Class = (Num, Dat, Str);
        Date = Record
       D, M, Y : Integer;
               End;
       Facts = Record
          Name : String[10];
      Case Kind : Class Of
            Num : (N : Real);
            Dat : (D : Date);
            Str : (S : String);
       End;