Циклы

[Sascha]

Цикл — это многократно повторяющаяся последовательность действий. Первый цикл, с которым мы познакомимся в этом уроке называется While…Do (делай пока верно условие).

Сейчас мы разберем цикл while…do
Чтобы понять как это работает, откроем Delphi, создадим новый проект, и кинем на форму Edit1 и Button1.


Создаем на кнопке процедуру OnClick и первое, что нам надо сделать — это ввести переменную A типа Integer:

Теперь между ключевыми словами begin и end установим значение переменной A равное 1:

A:=1;

И сейчас мы напишем сам цикл, с условием A<>50, то есть пока A не равно 50 будет выполняться цикл.
Если же А = 50 — цикл остановится:

While A<>100 do
begin
//Тело цикла
end;

Теперь мы будем увеличивать значение А например на 1. Это будет выглядеть так:

A:=A+1;
Edit1.Text:=IntToStr(A);

Компилируем программу, нажимаем на кнопку, и видим , что в Edit1 появилось число 100. Почему сразу 100? А не 1,2,3,4…100? Дело в том, что программа на столько быстро выполнила условие, и цикл закончился, выдав конечный результат.

Вот и все, теперь мы можем наблюдать за процессом выполнения условия 🙂

Цикл со счетчиком For…To…Do
Вид данного цикла таков:

For переменная счетчик:=Выражение №1 To выражение №2 Do

begin
//тело цикла
end;

Этот цикл называется со счетчиком, потому что он сам увеличивает переменную счетчик на единицу.
Первым делом нам нужно добавить переменную S типа Integer.

For A:=1 to 50 do
begin
//Тело цикла
end;

В тело цикла мы запишем:

S:=s+a;

Программа будет считать сумму чисел от 1 до 50, прибавляя к переменной S переменную счетчик A.
И после цикла выводим результат в Edit1.

Edit1.Text:=StrToInt(S);

Рассмотрим цикл Repeat

Repeat
//Тело цикла
Until условие;

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

Стираем цикл For в нашей программе и пишем цикл Repeat:

var A, S:integer;
begin
S:=0; //Присваеваем ноль
a:=0;
Repeat
a:=a+1;
S:=s+a; //Вычисления
Until a=100; //цикл будет выполняться пока a не достигнет 100
Edit1.Text:=IntToStr(S);
end;

Эта программа выполнит тоже самое что и предыдущая.