Циклы

[NDR777]

Уважаемые форумчане, напишите мне хоть один пример одного или всех этих циклов: while ... do; repeat ... until;for ... do;
Заранее спасибо.

[r9m]

var
i:integer;
qwe:integer;
begin
for i:=0 to 10 do
begin
 inc (qwe);
end

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
qwe:integer;
begin
while qwe<>10 do
begin
 inc (qwe);
end
end;

[Crivel]

Пример цикла repeat:

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
i := 0;
repeat
inc (i);
until i = 100;
end;

[DeKot]

Смысл этих циклов. У Вас есть игровая прога, где персонаж двигается по
форме.Если Вы знаете сколько шагов он должен пройти (или хотите задать это количество шагов - скажем 10) следует применять цикл

for i:= 1 to 10 do  //  явно задали 10 шагов
 x:= x + 1;  //  даем приращение координаты для перемещения 
                // аналогично  Inc(x);

Случай, когда Ваш персонаж просто шагает, но может упереться в стенку с координатой ХS.Значит нужно на каждом шаге проверять дошел
ли персонаж до стенки.Применяем цикл с проверкой условия до шага (цикл с предусловием)

wile x <> XS do   // если координата персонажа не совпадает с
                                  //  с координатой стенки
  begin
     x:= x + 1;  // делаем очередной шаг
  end
  else  STOP   //  если условие x<>XS неверно(дошагали до стенки) - стоим

Такую же проверку можно делать в цикле Repeat ... until.Только здесь сначала выполняем оператор (в нашем случае делаем шаг), а затем проверяем условие на совпадение x = XS. Это цикл с постусловием

repeat
  x:= x + 1;  // сделали шаг
 until  x = XS; // проверка совпадения координат

Кстати в последнем операторе после repeat операторские скобки begin ...end не ставятся.

[puporev]

Ну а в случае с while зачем begin ... end;?

[r9m]

хороший тон? Привычка? На всякий случай?

[puporev]

Почему тогда в цикле с for этого нет?

[UnChanter]

Сообщение от puporev

Почему тогда в цикле с for этого нет?

поставь!!, если хочешь

[DeKot]

Учту замечания профессионала.
Не думаю, что здесь найдется много людей не знающих основных понятий языка и в том числе, что такое операторские скобки или составной оператор.Это я добавляю к следующему посту от puporev.

[puporev]

Просто скобки begin ... end; нужны когда внутри них выполняеися более одного действия, например

wile (x <> XS) or (y<>YS) do   // если координата персонажа не совпадает с
                                  //  с координатой стенки
  begin
     x:= x + 1;  // делаем очередной шаг
     y:=y-1;
  end
  else  STOP   //  если условие x<>XS неверно(дошагали до стенки) - стоим