Иллюстрированный самоучитель по 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, чтобы сообщить об этом редактору.