Команда продолжения цикла в Delphi

В Delphi есть процедура позволяющая продолжить выполнение цикла пропустив оставшиеся операторы в теле цикла. Эта процедура записывается так:

Continue;

Команда Continue осуществляет переход на следующую итерацию цикла (выходит из текущего витка цикла). Необходимо обратить внимание на то, что инструкция Continue переходит только к началу текущего цикла. Можно считать эквивалентом передачи управления в самый конец циклического оператора.

Разберем пример, где нам необходимо высчитать сумму четных чисел от 1 до 30.

На форме разместим кнопку и компонент Label, который укажет нам необходимую сумму.

procedure TForm1.Button1Click(Sender: TObject);
var
  I, SUM : integer;
begin
  SUM := 0;
  I := 0;
  repeat
    I := I + 1;
    if ((I mod 2) > 0) then Continue;
    SUM := SUM + I;
  until I = 30;
  Label1.Caption := IntToStr(SUM);
end;

Переменная I это счетчик который будет менять значения от 1 до 30, SUM - сумма. Первоначально мы задаем переменным нулевое значение. Условный оператор if проверяет есть ли в остатке деления на 2 значение больше нуля и если есть (для нечетных чисел) суммирование не происходит, переменная I увеличивается на единицу то есть цикл продолжается.

Итог: в данной статье мы познакомились с командой продолжения цикла continue.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>