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

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

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

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

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

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

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

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

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

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

Частина 4

16. Завдання на створення запиту СУБД MS Access.

1) Відкриємо файл бази даних Розклад руху літаків.mdb.

2) Додамо таблицю Рейси у вікно конструктора запитів.

3) Перетягнемо поля Рейс, Напрям, Відліт, Прибуття, Дні в нижню частину бланка запиту

(рис. а).

4) Для відбору рейсів, які здійснюються щоденно, встановимо на значення поля Дні умову

відбору «ЩДН» в рядку Условие отбора (Умова відбору).

5) Знімемо прапорець у рядку Вывод на экран (Ви-

ведення на екран) у нижній частині бланка

запиту в полі Дні.

6) Збережемо запит.

У режимі перегляду таблиці запит має ви-

гляд, як показано на рис. б.

17. Для виконання завдання можна скористатися такими посиланнями:

• https://www.furshet.ua/ua/ — супермаркет «Фуршет», м. Київ.

• https://zakaz.furshet.ua/ru/ — група товарів: солодощі, чипси, снеки → тістечка.

• https://furshet.zakaz.ua/ru/store/#! a=category: 0: напитки — група товарів: напої → сік.

• https://furshet.zakaz.ua/ru/store/#! q=мороженое — група товарів: морозилка → морозиво.

• https://megamarket.ua/ — супермаркет «Мегамаркет», м. Київ.

• https://megamarket.ua/catalog/search.php? s=тістечка& g=0 — група товарів: кондитерські ви-

роби → тістечка.

• https://megamarket.ua/catalog/bezalkogoln_napoyi/napoi_skovmsn_soki_morsi_nektari/ —

група товарів: безалкогольні вироби → напої, соки.

• https://megamarket.ua/catalog/zamorozhen_produkti/morozivo/ — група товарів: заморожені

продукти → морозиво.

• https://veselyj-kloun.prom.ua/ — супермаркет «Веселий Клоун», м. Київ.

• https://veselyj-kloun.prom.ua/p305686-kakoj-prazdnik-bez.html — дитячий день народження

з повітряними кульками.

18. Задача на програмування мовою Delphi.

Встановити в Інспекторі об’єктів для об’єкта Form значення Caption — Змінюємо колір кноп-

ки. Змінити колір кнопки Button, BitBtn не можна, тому що їх малює Windows, у них використову-

вати колір дозволяє компонент ColorBtn. Тому з палітри компонентів (вкладка Additional) вибираємо

компонент TSpeedButton, на який можна розмістити малюнок. Готуємо у графічному редакторі

а

б

www.e-ranok.com.ua

Варіант 3 13

малюнки white.bmp і yellow.bmp (прямокутники білого й жовтого кольорів). При наведенні миші

на кнопку завантажується малюнок із жовтим прямокутником, при переміщенні на форму — ма-

люнок із білим прямокутником. Встановлюємо властивості об’єкта SpeedButton: розмір 225 × 120,

за допомогою властивості Glyph завантажуємо малюнок white.bmp на кнопку, властивість Caption

встановлюємо «колір кнопки — білий», властивість Layout встановлюємо blGlyphTop (заголовок на

кнопці знаходитиметься під малюнком, ми його будемо бачити).

unit Unit1;

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:

Integer);

private

{ private declarations }

public

{ public declarations }

end;

var Form1: TForm1;

f: boolean=false;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Begin