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

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

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

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

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

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

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

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

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

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

Программирование линейных алгоритмов

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

Пример 3.1. Вычислить значение функции ,

где x = 1-z и t = (x+1)²

Исходные и промежуточные данные, а также результаты вывести в окне сообщения.

Таблица соответствия переменных

Sub Pr3_1 ()

Dim y As Single, x As Single, a As Single

Dim t As Single, z As Single

a = InputBox(" Введи значение а")

‘a = Range(“A2”).Value

'a = Cells(2, 1).Value

z = InputBox(" Введи значение z")

x = 1 - z

t = (x + 1) ^ 2

y = x + Abs (a + 2 * t)

MsgBox " Исходные данные: " & Chr(13) & _

" a=" & CStr(a) & " z=" & CStr(z) & Chr(13) & _

" Промежуточные данные: " & Chr(13) & _

" x=" & CStr(x) & " t=" & CStr(t) & Chr(13) & _

" Результат: " & Chr(13) & " y=" & CStr(y),, " Пример"

‘Range(“B2”).Value = y

‘Cells(“2, 2”).Value = y

End Sub

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

Тесты:

Результаты работы программы с данными первого теста представлены на рис.3.2.

4. ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ

Для программирования разветвлений чаще всего используется оператор условного перехода (условный оператор) If. Он обеспечивает выполнение или невыполнение некоторого оператора, группы (блока) операторов в зависимости от заданного с помощью логического выражения некоторого условия.

В VBA существует несколько разновидностей условного оператора If:

1. Краткая форма условного оператора If < условие> Then

2. Полная форма условного оператора If с одним условием If < условие> Then … Else … EndIf

3. Проверка множественных условий If < условие> Then … ElseIf < условие> EndIf

4.1. Условный оператор If…Then

Используется для программирования краткой формы ветвления, т.е. позволяет выполнять один или несколько операторов, если логическое выражение в условии принимает значение True - Истина.

Можно использовать однострочный или блочный синтаксис.

Однострочный синтаксис:

If < условие> Then < оператор>

Например, следующие фрагменты графической схемы алгоритма программируются так:

If x> 5 Then y=3*x+1.5

If c< =a+b*x-1.2 Then MsgBox “Значение С меньше”

Если необходимо выполнить не один, а несколько операторов в случае истинности логического выражения, то можно

1. расположить их в одну строку, разделив знаком двоеточие «:»;

2. использовать блочный синтаксис оператора If … Then.

Использование второго варианта предпочтительнее, т.к. он является более наглядным.

Блочный синтаксис:

If < условие> Then

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

End If

Запрограммируем следующий фрагмент графической схемы алгоритма, используя однострочный и блочный синтаксис условного оператора If…Then:

If A> 10 Then x=A+1: y=B+2

или

If A> 10 Then

x=A+1

y =B+2

End If

4.2. Условный оператор If…Then…Else

Используется для программирования полной формы ветвления. Если логическое выражение принимает значение True – Истина, выполняется один блок операторов, в противном случае (значение логического выражения False – Ложь) – второй.Можно использовать однострочный или блочный синтаксис.

Однострочный синтаксис:

If < условие> Then < оператор> Else < оператор>

Блочный синтаксис:

If < условие> Then

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

Else

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

End If

Запрограммируем следующие фрагменты графической схемы алгоритма:

If a > 5 Then b = b + a Else b = b – a

или

If a > 5 Then

b = b + a

Else

b = b - a

End If

Первый вариант предпочтительнее.

If x> 0 Then

y=x+1

f=1

Else

f=2

End if

или If x> 0 Then y=x+1: f=1 Else f=2

Первый вариант предпочтительнее.

4.3. Условный оператор If…Then…ElseIf

Условный оператор может содержать другие условные операторы. В этом случае имеет место так называемое вложенное ветвление. Для его программирования могут использоваться операторы If … Then и If … Then … Else. Если первый блок ветки Else является вложенным ветвлением, то рациональнее использовать разновидность условного оператора If…Then…ElseIf.

Синтаксис:

if < условие_1> Then

< Блок операторов_1>

ElseIf < условие_2> Then

< Блок операторов_2>

ElseIf < условие_3> Then

< Блок операторов_3>

…

[Else

< Блок операторов> ]

End If

Например:

If g > 10 Then

z=5

ElseIf g< 5 Then

z=1

End If

If x > 5 Then

y = x + 2

f =1

Else

If x < -10 Then

y = 2 * x

f=2

Else

y = x - 5

f=3

EndIf

End If

Следующий фрагмент блок-схемы может быть запрограммирован только с помощью оператора If…Then…Else

4.4. Примеры использования оператора условного перехода If