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

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

END DEF

В строке FN< имя функции> =записывается выражение, значение которого функция возвращает.

Пример1. Отрезки заданы координатами концов. Сравнить эти отрезки.

DEF FNL(x1, x2, y1, y2)=SQR((x1-x2)^2+(y1-y2)^2) ‘функция нахождения длины отрезка

INPUT “введите координаты первого отрезка”, x1, x2, y1, y2

L1=FNL(x1, x2, y1, y2)

INPUT “введите координаты второго отрезка”, x1, x2, y1, y2

L2=FNL(x1, x2, y1, y2)

IF L1> L2 THEN

? “длина первого отрезка больше”

ELSEIF L2> L1 THEN

? “длина второго отрезка больше

ELSE

? “отрезки равны”

END IF

Пример 2. Вычислить сложное выражение, используя определяемую функцию для вычисления повторяющейся в нем части.

K=½ (1+m^2)/cos(1-m)½ –5*Ö ½ (c+d^2)/cos(c-d)½ +tg½ (x+y^2)/cos(x-y)½

DEF FNT(a, b)=abs((a+b^2)/cos(a-b))

INPUT “Введите 5 значений”, m, c, d, x, y

K=FNT(1, m)-5*sqr(FNT(c, d))+tan(FNT(x, y))

? “K=”; K

Пример 3. Вычислить сумму N членов ряда. Факториал вычислять с помощью функции пользователя.

S=1! /4! +4! /5! +9! /6! +16! /7! +…+(n^2)! /(n+3)!

DEF FNFACT(M)

P=1

FOR I=1 TO M

P=P*I

NEXT I

FNFACT=P

END DEF

INPUT “Введите n”; N

S=0

FOR J=1 TO N

S=S+FNFACT(J^2)/FNFACT(J+3)

NEXT J

? “S=”; S

Задание:

1. Вычислить сложное выражение, используя определяемую функцию для вычисления повторяющейся в нем части.

C=Ö (d+½ e½)/tg(de)+(x+½ y½)/tg(xy)-(z+½ t½)/tg(zt)

2. Вычислить функцию: C = m! n! /(m-n)!. Для вычисления факториала использовать определяемую функцию.

Практическое занятие с использованием подпрограмм и функций пользователя

1 вариант

1. Дан массив с оценками учащихся. Найти средний балл учащихся. Подсчитать количество 5 и 4. Заполнение массива, подсчет среднего балла и подсчет количества оценок оформить отдельными подпрограммами.
2. Задана матрица W(5, 6). Отрицательные элементы матрицы заменить на 0. измененный массив вывести на экран. Обработку элементов массива оформить в подпрограмме.

2 вариант

1. Дан одномерный массив со значениями веса кур на птицефабрике. Найти средний вес кур. Найти вес самой тяжелой курицы. Заполнение массива, подсчет среднего веса и нахождение веса самой тяжелой курицы оформить отдельными подпрограммами.

1. Найти произведение элементов массива R(7, 5) в строках с четными номерами. Обработку элементов массива оформить в подпрограмме.