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


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

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

HALT

Синтаксис:

procedure HALT [ (КодЗавершения: word) ];

Действие:

Завершает выполнение программы и передает управление операционной системе.

New

Синтаксис:

procedure New(var р);

Действие:

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

ParamCount

Синтаксис:

function ParamCount: word;

Действие:

Возвращает количество параметров командной строки.

ParamStr

Синтаксис:

function ParamStr (A/: word): string^

Действие:

Возвращает параметр командной строки, номер которого указан при обращении к функции. Значением ParamStr(O) является путь к файлу выполняемой программы и его имя (например, c:\tp\exe&tpu\myprog.exe).

ReadKey

Синтаксис:

function ReadKey: char;

Действие:

Возвращает символ, соответствующий нажатой клавише. Используя функцию Ord, можно получить код нажатой клавиши.

Если нажата служебная клавиша (например, клавиша перемещения курсора), то функция ReadKey возвращает символ с кодом 0. В этом случае для идентификации служебной клавиши следует еще раз вызвать функцию ReadKey, которая теперь вернет код служебной клавиши.

Ниже приведены коды некоторых часто используемых клавиш.

Клавиша Код
Esc 27
Backspace 8
Enter 13
Space 32
Kypcop вверх 0;72
Kypcop вниз 0;80
Kypcop влево 0;75
Kypcop вправо 0;77
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.