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

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

Лабораторна робота № 16 (18)

Тема: Створення та реалізація програм, що використовують програми функції.

Мета: Уміти створювати та опрацьовувати програми, що використовують підпрограми функції.

Теоретичні відомості

У структурному програмуванні поряд із процедурами широко застосовуються функції. Відмінність від процедур полягає в тому, що результатом функції є єдине значення. Це обчислювальне значення надається ідентифікатору функції. Структура опису функції аналогічна опису процедури, і докладно ми на ній не зупинятимемося.

Наведемо приклад опису і використання функції для обчислення виразу.

Обчислення модуля оформимо як функцію користувача Modul.

proqram SumMod;

vax

X, Y: real;

function Modul (X: real);

beqin

if X< 0 then X: =-X;

Modul: =X

end;

beqin

Writeln (‘Введите Х‘);

Readln (X);

Y: =Modul (X+1)+Modul (X+2);

Writeln (Y: 6: 3);

end.

У наступному прикладі показане обчислення цілого степеня числа, тобто степеневої функції Y=X^N. Цієї функції немає серед вбудованих функцій Паскаля, тому для її обчислення вводимо функцію користувача Deq. Піднесення числа до цілого степеня виконуємо за допомогою оператора циклу while:

Proqram Deqree;

Var

Z, F: real;

M: inteqer;

Function Deq (N: inteqer; X real): real;

var

I: inteder; Y real;

beqin

I: =1; Y=1;

while I< =N do

beqin

Y: =Y*X; I: =I+1

end;

Deq: =Y

end;

beqin

Writeln (‘Введите Z, M‘);

Readln (Z, M);

F: =Deq (M, Z);

Writeln (F: 8: 3);

end.

Хід роботи

1. Створіть функції, яка рахує значення тангенса і інші для гіперболічних функцій і включіть їх у програму, яка малює графіки sh(x), сh(x), th(x), сth(x). Вибираючи їх зі списку.

2. Створіть програму знаходження коренів квадратного рівняння з довільним значенням коефіцієнтів використовуючи функцію для знаходження дискримінанта і коренів.

3. Створити програму, яка в довільному тексті заміняє всі літери А на О, а одиниці на 0.

Контрольні запитання

1. Які підпрограми використовуються в Турбо Паскаль?
2. Що таке функція, і для чого вона використовується?
3. Як оформляється процедура в Паскаль?
4. Що таке вхідні і вихідні параметри?
5. На які етапи можна розбити виконання процедури?