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

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

Оператори уводу-виводу

Оператори уводу-виводу мають вид:

- read (список уводу);

- readln (список уводу);

- write (список виводу);

- writeln (список виводу).

Оператори readln і writeln здійснюють після уводу і виводу перехід до нового рядка. У списках уводу - виводу перелічуються через кому імена змінних. Наприклад:

read(k, ab); writeln(y1, zk).

На друк можна виводити довільний набір символів, який взято в апострофи, наприклад:

writeln(’ x1=’, x1).

Для перемінних, які виводяться, можна явно вказати число позицій, наприклад, для цілої перемінної:

write(’k=’, k: 6),

а для дійсної:

write(’k=’, k: 10: 4),

де 10 - загальне число позицій, з них 4 - під дробну частину.

Приклади виконання завдання лабораторної роботи

Приклад 1. Обчислити y = 2cos²x, де x=2lna; a=6, 7.

Блок-схема

Порядок роботи:

Крок 1. Уводимо a.

Крок 2. Обчислюємо x = 2lna.

Крок 3. Обчислюємо y = 2cos²x.

Крок 4. Друкуємо x, y.

Крок 5. Останов.

Приклад 2. Скласти програму для обчислення функції

,

де b = x(arctgy + e^-x+3); x = 4, 2; y = 1, 7.

Паскаль - програма для даного прикладу має вид

program pr2;

var x, y, a, b, c, d: real;

begin

x: =4.2; y: =1.7;

b: =x*(arctan(y)+exp(-x+3));

c: =sqrt(abs(x-1))-exp(ln(abs(b))/3);

d: =1+sqr(x)/2+sqr(sqr(y))/5;

a: =c/d;

writeln(‘ b=‘, b, ’ a=‘, a)

End.

Приклад 3. Трикутник заданий довжинами сторін. Знайти радіуси вписаного й описаного кола.

Якщо сторони трикутника позначити через а, b, c, напівпериметр через р, а площу через s, то можемо записати:

.

Паскаль-програма для даного прикладу має вид

program pr3;

uses crt;

var a, b, c, p, s, rb, rm: real;

z: char;

begin clrscr;

WRITE('УВЕДИ СТОРОНИ ТРИКУТНИКА: ');

readln(a, b, c);

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

rm: =s/p;

rb: =a*b*c/(4*s);

writeln(‘ a= ‘, a, ‘ b= ‘, b, ’ c= ‘, c);

writeln(‘ rm= ‘, rm, ‘ rb= ‘, rb);

z: =readkey

end.