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

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

Процедуры обработки файлов

Работа с файлами производится посредством следующих стандартных процедур:

1 ASSIGN(F, ST) – присвоение имени файлу. Имя файла, которое является значением строкового выражения ST, присваивается переменной файлового типа F.

2 REWRITE(F) – подготовка к записи информации в начало файла F; создание нового файла.

3 WRITE(F, A) – запись значения переменной A в файл F.

4 RESET(F) – подготовка к чтению информации с начала файла F.

5 READ(F, A) – чтение компонентов файла в переменную A.

6 CLOSE(F) – закрытие файла, назначенного переменной F. Если файл был открыт, никогда не следует выходить из программы, предварительно не закрыв его.

7 SEEK(F, N) – перемещение указателя файла на N компонентов файла (N=0 – начальное значение).

8 SEEK(F, FILESIZE(F)) – помещение указателя файла в самый конец файла.

9 ERASE(F) – стирание файла.

10 RENAME(F, 'имя') – переименование файла.

11 FILEPOS(F) – определение номера компонента, на котором установлен указатель файла.

12 FILESIZE(F) – определение длины файла.

Для того, чтобы определить готовность файла к чтению либо к записи информации, существует стандартная функция EOF(F). Если указатель файла продвинулся за конец файла (готовность к записи), то эта функция принимает значение TRUE, в остальных случаях – FALSE. В частности, процедура REWRITE очищает файл и устанавливает указатель на признак конца файла. Функции EOF(F) присваивается значение TRUE. Напротив, процедура RESET устанавливает указатель файла на первый компонент, а функции EOF(F) присваивается значение FALSE.

Функцию EOF(F) можно использовать в условном операторе после IF или в операторе цикла WHILE. Если нужно после IF или после WHILE поместить не условие конца, а условие того, что файл не закончен, то применяется следующая конструкция:

WHILE NOT EOF(F) DO READ(F, A);

Множества

Общий вид описания множества – TYPE T=SET OF TK;

Здесь Т – идентификатор типа; ТК – тип множества (любой, кроме типа SET). Каждую переменную-множество надо описать в разделе VAR. Множество может быть описано и непосредственно при описании переменной.

Операции над множествами:

1 Объединение:

[ 'B', 'F' ] + [ 'B'...'D' ] = [ 'B', 'C', 'D', 'F' ].

2 Пересечение (принадлежность двум множествам):

[ 0..4 ] * [ 5, 6 ] = [];

[ 4, 5 ] * [ 5, 6 ] = [ 5 ].

3 Вычитание (элементы первого множества, которые не являются элементами второго множества):

[ 1, 5, 9 ] - [ 2, 4, 8, 9 ] = [ 1, 5 ].

4 Принадлежность множеству:

5 IN [ 3..7 ] TRUE.

5 Тождественность:

[ весна ] = [] FALSE.

6 Нетождественность:

[ осень, зима ] < > [ осень, весна ] TRUE.

7 Содержится в (< =):

[ зима ] < = [ весна, осень, зима ] TRUE.

8 Содержит (> =):

[ лето, осень ] > = [ весна ] FALSE.