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

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



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

Циклы: Инструкция FOR. Инструкция REPEAT. Инструкция WHILE. Безусловный переход: Инструкция GoTo.

Вариант 1 (с увеличением счетчика):

for Счетчик: = НачальноеЗначение to КонечноеЗначение do begin
{ Инструкции }
end;

Инструкции между begin и end выполняются [{КонечноеЗначение -НачальноеЗначение) + 1] раз.

Если НачальноеЗначение больше, чем КонечноеЗначение, то инструкции между begin и end не выполняются.

Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать
.

Вариант 2 (с уменьшением счетчика):

for Счетчик: = НачальноеЗначение downto КонечноеЗначение do begin
{ Инструкции }
end;

Инструкции между begin и end выполняются [{НачальноеЗначение – КонечноеЗначение) +1] раз.

Если НачальноеЗначение меньше, чем КонечноеЗначение, то инструкции между begin и end не выполняются.

Инструкция REPEAT

repeat
begin
{ Инструкции } end
until Условие;

Выполняются инструкции, находящиеся между begin и end (инструкции цикла), после этого проверяется значение выражения Условие. Если оно равно False (т. е. условие не выполняется), то инструкции цикла выполняются еще раз. И так продолжается до тех пор, пока Условие не станет истинным.

Таким образом, после слова until записывается условие завершения цикла.

Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать
.

Инструкция WHILE

while Условие do begin
(Инструкции }
end;

Проверяется значение выражения Условие, если оно равно True (условие выполняется), то выполняются инструкции, находящиеся между begin и end (инструкции цикла). Затем снова проверяется значение выражения Условие, и так продолжается до тех пор, пока значение выражения Условие не станет равным False.

Таким образом, после слова while записывается условие выполнения инструкций цикла.

Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать
.

Безусловный переход. Инструкция GoTo.

GoTo Метка;

Осуществляется переход к инструкции, перед которой указана метка, объявленная в разделе label.

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