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

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

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

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

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

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

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

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

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

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

Программирование с использованием строк

О Т Ч Е Т

ПО ЛАБОРАТОРНЫМ РАБОТАМ

по курсу:

Quot; КОНСТРУИРОВАНИЕ ПРОГРАММ И

ЯЗЫКИ ПРОГРАММИРОВАНИЯ"

Минск - 2007

Лабораторная работа №5

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ СТРОК

Цель лабораторной работы: изучить методы программирования с использованием строк и правила работы с компонентами TListBox и TComboBox. Написать программу работы со строками.

Задание: дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести на экран числа этой строки в порядке возрастания их значений.

Листинг программы:

unit lab5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

ComboBox1: TComboBox;

procedure FormCreate(Sender: TObject);

procedure ComboBox1Click(Sender: TObject);

procedure ComboBox1KeyPress (Sender: TObject; var Key: char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

ComboBox1.Items.Add('22 32 54');

ComboBox1.Items.Add('23 11 22');

ComboBox1.Items.Add('25 6 5 7 2');

ComboBox1.Items.Add('10 8 52 13');

ComboBox1.ItemIndex: = 0;

ComboBox1Click(Sender);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

var

St: string;

i, j: integer;

buf: char;

begin

St: = ComboBox1.Items[ComboBox1.ItemIndex];

For j: = 1 to length(st)-1 do

For i: = 1 to length(st)-1 do

If st[i]> st[i+1]

then

begin

buf: =St[i];

St[i]: =St[i+1];

St[i+1]: =buf;

end; Label3.Caption: = St;

end;

procedure TForm1.ComboBox1KeyPress (Sender: TObject; var Key: char);

begin

if Key=#13 then

begin

ComboBox1.Items.Add(ComboBox1.Text);

ComboBox1.Text: ='';

end;

end;

end.

Результат выполнения программы:

Выводы: изучили методы программирования с использованием строк и правила работы с компонентами TListBox и TComboBox. Написали программу работы со строками.