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

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

Этапы решения задачи. 1. Для вычисления значения y по одной из формул необходимо сначала вычислить значение переменной x

1. Для вычисления значения y по одной из формул необходимо сначала вычислить значение переменной x.

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

3. Детализируем блок " Определяем, к какому промежутку относится Х. "

4. Добавим блоки вычисления функции на каждом из промежутков:

5. Окончательная блок-схема алгоритма выглядит следующим образом:

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

program ZADANIE1;

var a, b, c, x, y: real; nf: integer;

begin

write('a = '); readln(a);

write('b= '); readln(b);

write('c= '); readln(c);

x: =3.5*b/(a+exp(3*ln(c));

if (x< 1) then begin

y: =a+b*x; nf: =1;

end

else if (x=1) then

begin

y: =sqrt(abs(a+b*x)); nf: =2;

end

else begin

y: =sqr(a*c+b*x); nf: =3;

end;

writeln('При a =', a: 4: 2, ‘ b=’, b: 4: 2, ‘ c=’, c: 4: 2, ‘x=’, x: 4: 2);

writeln('y =', y: 4: 2, ‘ номер формулы=’, nf: 2);

end.

7. Выполним программу в среде PascalABC.NET (см. п.3.1.4).