• Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;


Иллюстрированный самоучитель по Turbo Pascal для начинающих

Прочие функции

ClrEol

Синтаксис:

procedure ClrEol;

Действие:

Очищает текущую строку (строка, в которой находится курсор), до конца строки закрашивая ее текущим цветом.

ClrSctr

Синтаксис:

procedure ClrScr;

Действие:

Очищает текущее (заданное процедурой window) окно экрана закрашивая его цветом, заданным процедурой.

Delay

Синтаксис:

proceduir Delay (Задержка: word);

Действие:

Обеспечивает задержку выполнения программы в миллисекундах.

Dispose

Синтаксис:

procedure Dispose(var p);

Действие:

Освобождает память, занимаемую динамической переменной, на которую указывает р.

Eoln

Синтаксис:

function Eoln [ (var F: text)]: boolean;

Действие:

Если при обращении к функции Eoln параметр не указан, то функция проверяет, не является ли очередной символ, читаемый из буфера клавиатуры, символом "новая строка". Если является, то функция возвращает значение true, в противном случае – false. Если параметр указан, то функция аналогичным образом проверяет очередной символ текстового файла, связанного с файловой переменной, указанной при вызове функции.

GotoXY

Синтаксис:

procedure GoToXY(x,y: byte);

Действие:

Перемещает курсор в точку экрана, имеющую координаты (х,у).

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.