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

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

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

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

Delphi Sources

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

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

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

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

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

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

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

Until  Заканчивает управляемый цикл 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
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте