Не существует стандартного способа чтения/записи значений перечислимых типов с помощью операторов READ/WRITE, такого как для типа CHAR. Для того, чтобы проиллюстрировать как организуется ввод-вывод, будет разработан модуль чтения-записи для перечислимого типа Month, представляющего месяцы года. Этот модуль будет содержать две процедуры ReadMonth и WriteMonth, но не будет содержать объявлений данных. То есть это чисто вычислительный модуль.
ReadMonth преобразует три символа в файле открытом для чтения в значение типа Month, если это возможно. Например, если следующие три символа ‘J’, ‘A’, ‘N’, тогда ReadMonth вернет значение Jan типа Month. Однако если для трех считанных символов нет соответствующего значения типа Month, будет сообщено об ошибке. Простой и полезный способ сообщения об ошибке – расширить тип Month значением NoMonth. Тогда, если три считанных символа не являются сокращенным названием месяца, ReadMonth возвращает значение NoMonth.
Объявление типа будет следующим:
TYPE
Month = (NoMonth, Jan, Feb, Mar, Apr, May, Jun,
Jul, Aug, Sep, Oct, Nov, Dec);
|
|
Процедуры модуля будут в основном использоваться для чтения из INPUT и записи в OUTPUT, но дисциплина проектирования модулей требует чтобы в процедуры передавались как параметры файловые переменные, иначе придется работать с данными за пределами модуля.
PROCEDURE ReadMonth(VAR FIn: TEXT; VAR Mo: Month)
{Fin.3 = R и length(Fin.2) >= 3 ->
читать три символа из Fin.2, затем присвоить Mo
соответствующее значение типа Month, если это возможно,
иначе присвоить Mo значение NoMonth}
VAR
Ch1,Ch2,Ch3: CHAR;
BEGIN{ReadMonth}
READ(FIn,Ch1,Ch2,Ch3);
IF (Ch1='J')AND (Ch2='A')AND (Ch3='N') THEN Mo:=JAN ELSE
IF (Ch1='F')AND (Ch2='E')AND (Ch3='B') THEN Mo:=FEB ELSE
IF (Ch1='M')AND (Ch2='A')AND (Ch3='R') THEN Mo:=MAR ELSE
IF (Ch1='A')AND (Ch2='P')AND (Ch3='R') THEN Mo:=APR ELSE
IF (Ch1='M')AND (Ch2='A')AND (Ch3='Y') THEN Mo:=MAY ELSE
IF (Ch1='J')AND (Ch2='U')AND (Ch3='N') THEN Mo:=JUN ELSE
IF (Ch1='J')AND (Ch2='U')AND (Ch3='L') THEN Mo:=JUL ELSE
IF (Ch1='A')AND (Ch2='U')AND (Ch3='G') THEN Mo:=AUG ELSE
IF (Ch1='S')AND (Ch2='E')AND (Ch3='P') THEN Mo:=SEP ELSE
IF (Ch1='O')AND (Ch2='C')AND (Ch3='T') THEN Mo:=OCT ELSE
IF (Ch1='N')AND (Ch2='O')AND (Ch3='V') THEN Mo:=NOV ELSE
IF (Ch1='D')AND (Ch2='E')AND (Ch3='C') THEN Mo:=DEC
ELSE Mo:=NoMonth
END; {ReadMonth}
PROCEDURE WriteMonth(VAR FOut: TEXT; VAR Mo: Month);
{Fin.3 = Ц и Mo <> NoMonth ->
вывести три символа соответствующие значению Mo, в Fout.1}
VAR
Ch1,Ch2,Ch3: CHAR;
BEGIN {WriteMonth}
IF Mo=JAN THEN WRITE('Jan') ELSE
IF Mo=FEB THEN WRITE('Feb') ELSE
IF Mo=MAR THEN WRITE('Mar') ELSE
IF Mo=APR THEN WRITE('Apr') ELSE
IF Mo=MAY THEN WRITE('May') ELSE
IF Mo=JUN THEN WRITE('Jun') ELSE
IF Mo=JUL THEN WRITE('Jul') ELSE
IF Mo=AUG THEN WRITE('Aug') ELSE
IF Mo=SEP THEN WRITE('Sep') ELSE
IF Mo=OCT THEN WRITE('Oct') ELSE
IF Mo=NOV THEN WRITE('Nov') ELSE
IF Mo=DEC THEN WRITE('Dec')
END; {WriteMonth}