Циклы

[Ford]

Внимание! Код ориентирован для новичков. Поэтому содержит комментарии, которые могут показаться ненужными обычным пользователям
Цикл это конструкция для многократного выполнения тех или иных задач. Например нужно написать от 0 до 1000 цифры.
Примеры:
Цикл типа FOR своими руками:

program Test;//Название любое 
var i:integer;//Переменная для тела цикла 
var done:boolean;//Переменная отвечающая за завершение цикла 
begin//Показ программы 
done := true;//Изначально цикл работает 
while done do//Делать пока done равняется true 
begin//Вход в тело цикла 
i:=i+1;//Прибавляем к I по 1 
writeln(i);//Пишем пользователю, чему на данный момент равняется I 
if i = 1000 then done := false;//Если I равна 1000 - прекращаем цикл. 
end;//Выход из тела цикла 
readln;//Ждём нажатия enter 
end.//Выход из программы

То же самое только с помощью оператора GOTO:

program Test;//Название любое  
var i:integer;//Переменная для тела цикла  
var done:boolean;//Переменная отвечающая за завершение цикла  
label one;//Метка к которой будем переходить. Начало цикла 
begin//Показ программы  
one://Тело цикла 
if i <> 1000 then//Цикл пока i не будет равняться 1000 
begin//Начало цикла 
i:=i+1;//Прибавляется i 
writeln(i);//Пишем результат 
goto one;//Начинаем заново 
end;//Происходит когда i будет равняться 1000 
readln;//Ждём нажатия enter  
end.//Выход из программы

То же самое только с циклом FOR:

program Test;//Название 
var i:integer;//Переменная в которую будет вестись запись 
begin//Начало программы 
for i:=0 to 1000 do//Цикл работает пока I не будет равно 1000 
begin//Тело цикла 
writeln(i);//Показ значения I 
end;//Выход из тела цикла 
readln;//Ожидаем ENTER 
end.//Конец программы

Как мы видим, результат один. Но самописный код будет более управляем. А for - компактней.