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

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

Этапы решения задачи. 1. Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) вычисляется по формуле

1. Математическая модель: расстояние на плоскости между двумя точками M 1(x 1, y 1) и M 2(x 2, y 2) вычисляется по формуле

.

2. Для вычисления расстояния d между точками M 1(x 1, y 1) и M 2(x 2, y 2) определим в качестве входных данных значения координат .

3. Составляем блок-схему алгоритма.

4. Прежде чем приступить к программированию, выражение правой части уравнения представим в виде последовательности вычислительных операций, ограниченных скобками, с использованием формул преобразований и стандартных функций языка Pascal: .

5. Переводим блок-схему на язык Pascal.

program primer1;

var x1, x2, y1, y2: integer;

d: real;

begin

write('Введите координату x1= '); readln(x1);

write('Введите координату y1= '); readln(y1);

write('Введите координату x2= '); readln(x2);

write('Введите координату y2= '); readln(y2);

d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln('Расстояние между точками =', d);

end.