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

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

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

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

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

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

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

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

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

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

Практические работы по программированию ветвлений

Приемы программирования основных алгоритмических структур на языке Паскаль

Программирование ветвящихся алгоритмов

Алгоритмическая структура ветвления программируется в Паскале с помощью условного оператора, имеющего вид

If < Условие> Then < Оператор 1> Else < Оператор 2>;

Кроме того, возможно использование неполной формы условного оператора:

If < Условие> Then < Оператор >;

Строгое описание условного оператора в форме синтаксической диаграммы показано на рис. 1

Условием в условном операторе является логическое выражение, которое вычисляется в первую очередь. Если его значение равно True, то будет выполняться < Оператор 1> (после Then), если же его значение равно False, будет выполняться < Оператор 2> (после False) для полной формы или сразу оператор, следующий после условного, для неполной формы (без False).

^{< Условный оператор>} If < Логическое выражение>

Then < Оператор>

Else < Оператор>

Рис. 1. Синтаксическая диаграмма условного оператора

+ -

+ -

+ -

+ -

Рис. 2 Блок-схема алгоритма перевода пятибалльной оценки в ее наименование

Структуру вложенных ветвлений можно запрограммировать с помощью одного оператора выбора, имеющегося в языке Паскаль.

Program Marks;

Var N: Integer;

Begin

Writeln (‘Введите оценку: ’)

Readln (N);

Case N Of

5: Writeln (‘Отлично’)

4: Writeln (‘ Хорошо’)

3: Writeln (‘Удовлетворительно’);

2: Writeln (‘Неудовлетворительно’);

Else Writeln (‘Нет такой оценки’)

End.

Формат оператора выбора описывается синтаксической диаграммой показано на рис. 3, где < Селектор> - это выражение любого порядкового типа, < Константа> - постоянная величина того же типа, что и селектор, а < Оператор> - любой простой или составной оператор.

Выполнение оператора выбора происходит следующим образом: вычисляется выражение – селектор, в списках констант находится значение, совпадающее с полученным значением селектора, а далее исполняется оператор, помеченный данной константой. Если такой константы не найдено, происходит переход к выполнению оператора, следующего после Else.

Покажем на примере использование списка констант в операторе выбора. Следующая программа сообщает, сдал студент экзамен или не сдал, т.е если он получил оценку 3, 4 или 5, то экзамен сдан, а если – 2, то экзамен не сдан:

< Оператор выбора>

Case < Селектор> Of

< Константа>: < Оператор> Else < Оператор> End

;

Рис. 3 Синтаксическая диаграмма оператора выбора.

Case N Of

3, 4, 5: Writeln (‘Экзамен сдан’)

2: (‘Экзамен не сдан’)

Else Writeln (‘Нет такой оценки’);

Так же, как условный оператор, оператор выбора может использоваться в форме, т.е без ветви Else.

Практические работы по программированию ветвлений

Пример: Требуется составить программу вычисления площади треугольника по длинам трех сторон a, b, c.

Для решения задачи используется формула Герона

где p=(a+b+c)/2 – полупериметр треугольника.

Исходные данные должны удовлетворять основному соотношению для сторон треугольника: длина каждой стороны должна быть меньше суммы длин двух других сторон.

Имея возможность в одном условном операторе записывать достаточно сложные логические выражения, можно сразу «отфильтровать» все варианты неверных исходных данных:

Program Geron;

Var A, B, C, P, S: Real;

Begin

Writeln (‘Проверка программы’);

A: = 3;

B: = 4;

C: = 5;

Writeln (‘Для а=’, A: 4: 2);

Writeln (' b=', B: 4: 2);

Writeln (' c=', C: 4: 2);

If (A> 0) And (B> 0) And (C> 0) And (A+B> C) And (B+C> A) And (A+C> B)