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

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

Задание 1.2. Ветвящиеся алгоритмы

1) Вариант №7

На плоскости задана фигура. Вводится точка с координатами X, Y. Определить, принадлежит введенная точка фигуре или нет. В результате анализа должно выводиться: «Введенная точка принадлежит фигуре» или «Введенная точка фигуре не принадлежит». Считать, что точка на границе фигуре принадлежит.

2) Блок-схемы алгоритмов для двух вариантов программ

Блок-схема 1

Блок-схема 2

3) Тексты программ

Текст программы 1

uses crt, math;

const x0=4;

y0=3.5;

a=4;

b=1.5;

var x, y: real;

Begin

clrscr;

writeln('Введите координату Х');

readln(x);

writeln('Введите координату Y');

readln(y);

if ((sqr(x-x0)/sqr(a)+sqr(y-y0)/sqr(b))< =1) AND ((x< 3.0) OR (x> 5.0) OR ((x> 3.0) AND (x< 5.0) AND (y< 4.0))) then

writeln('Точка принадлежит области')

else

writeln('Точка не принадлежит области');

readln;

End.

Текст программы 2

uses crt, math;

const x0=4;

y0=3.5;

a=4;

b=1.5;

var x, y: real;

Begin

clrscr;

writeln('Введите координату Х');

readln(x);

writeln('Введите координату Y');

readln(y);

if ((sqr(x-x0)/sqr(a)+sqr(y-y0)/sqr(b))> 1) OR ((x> 3.0) AND (x< 5.0) AND (y> 4.0)) then

writeln('Точка не принадлежит области')

else

writeln('Точка принадлежит области');

readln;

End.

4) Результат вычислений