Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Как продвинуть сайт на первые места?

Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

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

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

- 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.