есть следующие три модуля:
1-ый
Код:
МОДУЛЬ ПримерЖивность;
ТИП
Описание* = УКАЗАТЕЛЬ ДО МАССИВ ИЗ ЛИТЕР;
Живность* = УКАЗАТЕЛЬ ДО АБСТРАКТНАЯ ЗАПИСЬ
имя*: Описание; (*Описание;*)
описание*: Описание;
КОНЕЦ;
ПЕРЕМЕННЫЕ
НАЧАЛО
КОНЕЦ ПримерЖивность.
2-ой
Код:
МОДУЛЬ ПримерПтица;
ПОДКЛЮЧИТЬ ПримерЖивность;
ТИП
Птица* = УКАЗАТЕЛЬ ДО ЗАПИСЬ (ПримерЖивность.Живность)
КОНЕЦ;
ПРОЦЕДУРА новая_птица*( наименование: ПримерЖивность.Описание): Птица;
ПЕРЕМЕННЫЕ
эта_птица: Птица;
НАЧАЛО
НОВАЯ (эта_птица);
(*НОВАЯ (эта_птица.описание, 20);*)
эта_птица.описание^:= "летает";
эта_птица.имя := наименование;
ВЕРНУТЬ эта_птица;
КОНЕЦ новая_птица;
НАЧАЛО
КОНЕЦ ПримерПтица.
и модуль в котором возникает ошибка:
МОДУЛЬ Пример;
ПОДКЛЮЧИТЬ Вывод := i21eduВывод, Ввод := i21eduВвод,
ПримерЖивность, ПримерПтица;
КОНСТАНТЫ
количество_живности = 4; (*пусть будут ворона, собака, лиса, ястреб*)
ПЕРЕМЕННЫЕ
список_живности : УКАЗАТЕЛЬ ДО МАССИВ ИЗ ПримерЖивность.Живность;
(*некая_живность : ПримерЖивность.Живность;*)
НАЧАЛО
НОВЫЙ (список_живности, количество_живности + 1);
список_живности [0]:= ПримерПтица.новая_птица("Ворона");
несовместимое присваиваниеКОНЕЦ Пример.
Как тогда правильно передать в процедуру строку?