Поначалу я думал что циклы-нечто страшное, непонятное для человеческого разума и ими особо не занимался. А тут нужда в них прижала. Оказывается крайне легкие и полезные штуки! Что такое циклы наверное слышали. Ну а если не слышали то говорю: это повторение какого-либо действия n раз. Существует 3 типа циклов:
Цикл с заданным условием продолжения работы.
while условие do что делать
Например если нам надо чтобы у переменной А было значение больше нуля. Значит надо написать.
while A<0 do read A;
То есть если А меньше или равно нулю то еще раз читаем А если опять ввели меньше нуля то опять читаем и т.д Вообще с циклами нужно быть осторожным иначе программа может зациклиться. От этого компьютер начинает страшно глючить. Многие сразу же жмут перезагрузку. А если там оооооочень большой код? Заново переписывать? На этот случай Билл Гейтз придумал сочетание клавиш CTRL+BRAKE. Так можно безопасно остановить программу без потери данных. Если же нам надо выполнить целую программу если А меньше нуля? Без проблем. Все что идет в цикле после begin называется ТЕЛОМ цикла. Если есть begin должен быть и end (БЕЗ ТОЧКИ!). Цикл может стоять в любом месте программы.
while A<0 do begin ТЕЛО ТЕЛО ТЕЛО end ПРОГРАММА ПРОГРАММА ПРОГРАММА
Цикл с заданным числом повторений.
Есть такой полезный цикл с поочередным изменением значения переменной. Пример
for i:=1 to 10
У такого цикла тело как правило небольшое. В нем значение i будет меняться от 1 до 10. Чтобы закрыть цикл в других языках надо писать next i а тут ничего не надо. Вот пример цикла
var i:integer; begin for i:=1 to 10 do begin write (' ',i); read; end; write ('Выход из цикла'); end.
Вместо i может быть любая переменная.
Цикл с заданным условием завершения работы.
Есть такой цикл repeat-until и он полностью обратный while-do В него я въехал не сразу.
var i:integer; begin repeat read (i); until i=5; write ('exit'); end.
Тут сначала выполняется цикл а только ПОТОМ проверяется условие. Тоже полезный цикл. Если разбирать на русский то получиться:
Начало цикла Введите i Если i=5 выйти из цикла
| 
