💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Ввод-вывод для перечислимых типов.

Не существует стандартного способа чтения/записи значений перечислимых типов с помощью операторов 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}