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

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

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

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

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

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

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

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

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

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

Оператор цикла с параметром For – Next

Оператор цикла For – Next используется, когда заранее известно, сколько раз должно повториться тело цикла.

Общий вид оператора цикла с параметром выглядит следующим образом:

For Счетчик = Начальное значение To Конечное значение Step Шаг

Блок операторов

Next Счетчик

Цикл For – Next обеспечивает выполнение блока операторов (тела цикла) n раз при последовательном изменении счетчика от начального до конечного значения с указанным шагом изменения.

.

Если Step Шаг в конструкции отсутствует, то по умолчанию считается, что шаг равен 1.

Пример 1

Задано натуральное число n. Вычислить n! (факториал n).

Напомним, что n! = 1× 2× 3× 4× …× n. Таким образом, в данном примере нужно вычислить произведение. Для его вычисления существует следующее правило: перед организацией цикла необходимо задать начальное значение произведения, равное числу, не влияющему на результат умножения на первом шаге, т.е 1, а затем в цикле предусмотреть оператор, который производит накапливание произведения.

Например, 5! = 1× 2× 3× 4× 5 = 120.

Программный код

Option Explicit

Sub PR7() ’ начало процедуры

Dim F As Double

Dim i As Integer

n = Val(InputBox(" Введите n")) ‘ ввод числа n с клавиатуры

F = 1 ’ начальное значение произведения

For i = 1 To n ’ начало цикла

F = F * I ’оператор накапливания произведения

Next I ’ конец цикла

MsgBox (" Факториал числа " & n & " =" & F ’ вывод результата на экран

End Sub ’ конец процедуры

Пример 2

Вычислить y=sin0.1+sin0.2+sin0.3+…+sin10

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

Программный код

Option Explicit

Sub PR8()

Dim x As Double, y As Double, summa As Double ’описание переменных

summa = 0 ’ начальное значение суммы

For x = 0.1 To 10 Step 0.1 ’ начало цикла

summa = summa + Sin(x) ’оператор накапливания суммы

Next x ’ конец цикла

MsgBox (" Сумма=" & summa) ’ вывод результата на экран

Cells(1, 1)= " Сумма=" & summa ’ вывод результата в ячейку А1 в Excel

End Sub

Пример 3

Задан натуральный ряд чисел. Вычислить сумму нечетных чисел данного ряда.

В этой программе производится вычисление суммы (по предложенному образцу).

Кроме того, для вывода всех чисел этого ряда в Excel до организации цикла нужно задать номер строки, с которой начнется запись 1-го значения ряда, а в цикле предусмотреть оператор (счетчик), который будет переводить курсор в нижележащую ячейку для записи следующего значения ряда до тех пор, пока не будет записано последнее значение.

Программный код

Option Explicit

Sub PR10()

Dim N As Integer, I As Integer, S As Double, K As Integer

K = Val(InputBox(" Введите K")) ’ количество членов ряда

Cells(1, 1)= ”Ряд” ’ запись в ячейку А1 текста Ряд

N=2 ’ номер строки, с которой начнется запись 1-го значения

S = 0 ’ начальное значение суммы

For i = 1 To n step 2 ’ цикл для перебора нечетных чисел ряда

Cells(N, 1)= I ’ запись членов ряда, начиная с 1-го, в 1-й столбец Excel

S = S + I ’суммирование членов ряда

N = N +1 ’ счетчик строк

Next I ’ конец цикла

Cells(1, 2)= “Сумма ряда=” & S ’ запись суммы ряда в ячейку В1 Excel

MsgBox (“Сумма ряда=” & S) ’ вывод результата суммы на экран

End Sub