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

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

Пример выполнения задания

Программа LW4 иллюстрирует выполнение основных операций над ориентированным графом. Предполагается, что описание класса – графа и реализация его методов содержатся в модуле Graphs. tpu.

Файл с исходными данными LW4Dat.txt содержит информацию о следующем графе:

Множество узлов – {A, B, C, D, E, F}, множество дуг – {(A, B), (A, D), (B, C), (C, A), (C, D), (D, E), (E, C), (E, F), (F, C)}.

После построения в граф включаются узел X и дуга между узлами F и X, затем исключается узел E. После каждого изменения графа выполняются его обход и вывод.

// Лабораторная работа 4. Ориентированные графы.

// Выполнил Сергеев Андрей, группа 500.

// Исходные данные - узлы и дуги графа - в файле LW4Dat.txt

// Результаты работы помещаются в файл LW4Res.txt

program LW4;

{$APPTYPE CONSOLE}

Uses

SysUtils,

Graphs in 'Graphs.pas';

Var

Graph: tOrGraph; // экземпляр ориентированного графа

fDat, fRes: Text; // файлы исходных данных и результатов

Node1, Node2: pNode; // вспомогательные указатели на узлы графа

v1, v2: tValue; // значения элементов графа

Begin

Try

Assign(fDat, ‘LW4Dat.txt'); Reset(fDat);

Assign(fRes, 'LW4Res.txt'); Rewrite(fRes);

WriteLn(fRes, 'Работа с графом');

Graph: = tOrGraph.Create; // создание экземпляра графа

Graph.Build(fDat); // построение графа

Graph.Revision(fRes); // просмотр графа и вывод элементов в файл fRes

WriteLn(fRes, 'Число узлов графа: ', Graph.NodesNumber);

WriteLn(fRes, 'Число дуг графа: ', Graph.ArcsNumber);

// Включение узла со значением 'X'

v1: ='X'; WriteLn(fRes, 'Значение включаемого элемента = ', v1);

Graph.AddNode(v1);

Graph.Revision(fRes);

// Включение дуги между узлами 'F' и 'X'

v1: ='F'; v2: ='X';

WriteLn(fRes, 'Включается дуга между узлами ', v1, ' и ', v2);

Node1: =Graph.NodeAddr(v1);

Node2: =Graph.NodeAddr(v2);

if (Node1< > nil) and (Node2< > nil) then Graph.AddArc(Node1, Node2);

Graph.Revision(fRes); // просмотр графа

// Исключение узла 'E' с инцидентными ему дугами

v1: ='E';

WriteLn(fRes, 'Исключается узел ', v1);

Node1: =Graph.NodeAddr(v1);

if Node1< > nil then Graph.DeleteNode(Node1); Graph.Revision(fRes);

Graph.Free;