Справочник функций и процедур Delphi: Until

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

|  Аренда и прокат аттракционов: аренда аттракционов для тимбилдинга www.art-active.ru.  |

Until
Ключевое слово
Заканчивает управляемый цикл Repeat unit
  
Repeat
   Statement1;
  {Statement2;
   ...}
Until Expression

Google  
 
Описание
Ключевое слово Until заканчивает управляемый цикл, который всегда выполняется не менее одного раза, и который заканчивается, когда выражение(Expression) удовлетворено (возвращает True).

Нет никакой потребности в маркерах Begin и End - ключевые слова Repeat и Until выполняют эту задачу.

Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза.
Примечания
Не обязательно ставить признак конца ';' после последнего оператора.
Похожие команды
Begin  Ключевое слово, которое начинает операторный блок

Boolean  Позваляет принимать только True и False значения

Do  Определяет начало некоторого управляемого действия

End  Ключевое слово, которое заканчивает операторные блоки

For  Начинает цикл, который выполняется конечное число раз

Repeat  Повторяет инструкции, пока не выполнится условие завершения

While  Повторяет инструкции, пока выполнится условие продолжения

 
Пример кода : Отображение целых квадратов до тех пор пока мы не достигли или превысили 100
var
  num, sqrNum : Integer;

begin
  num := 1;
  sqrNum := num * num;

  // Показ квадратов целых чисел, пока мы не достигли значения 100
  Repeat
    // Показ квадрата числа
    ShowMessage('Квадрат '+IntToStr(num)+' = '+IntToStr(sqrNum));

    // Приращение числа
    Inc(num);

    // Возведение в квадрат
    sqrNum := num * num;
  Until sqrNum > 100;
end;
Квадрат 1 = 1
Квадрат 2 = 4
Квадрат 3 = 9
Квадрат 4 = 16
Квадрат 5 = 25
Квадрат 6 = 36
Квадрат 7 = 49
Квадрат 8 = 64
Квадрат 9 = 81
Квадрат 10 = 100
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook