• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Работа С Циклами

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,163
Симпатии
222
Баллы
155
VK
Циклы можно использовать для повторного выполнения блока кода в случае соблюдения определенного условия (или до тех пор, пока условие не соблюдается. В Delphi существуют следующие конструкции циклов: for, while..., repeat...until. Ниже рассмотрим их более подробно.

Конструкция цикла for удобна, когда заранее точно известно, сколько раз будет выполняться цикл. Рассмотрим пример:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
    i,p: Integer; {объявляем переменные типа Integer}
begin
p:=0;
   for i:=0 to 100 do     {организовываем цикл повторений равный 100}
      begin
        p:=p+1;  {при каждом выполнении переменная p будет увеличиваться на 1}
      end;
   ShowMessage(inttostr(p));  {результат равен 101}
end;
Цикл также может организовываться от большего к меньшему:
for i:=100 downto 0 do
Конструкция цикла while повторяет оператор или группу операторов, пока определенное условие не нарушится. Цикл while должен использоваться, когда неизвестно, сколько раз должен использоваться цикл.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer; {объявляем переменную типа Integer}
begin
i:=0;
{организовываем цикл с условием выполнения пока i не будет равно 100}
   while i <> 100 dobegin
        i:=i+1; {при каждом выполнении переменная i будет увеличиваться на 1}
      end;
   ShowMessage(inttostr(i));  {результат равен 100}
end;
Цикл repeat...until используется для организации циклического выполнения совокупности операторов, до тех пор, пока не выполнится некоторое условие.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer; {объявляем переменную типа Integer}
begin
i:=0;
{организовываем цикл с условием выполнения пока i не будет равно 100}  
repeat
begin
{при каждом выполнении переменная i будет увеличиваться на 1}
        i:=i+1;end;
   until i=100;
   ShowMessage(inttostr(i));  {результат равен 100}
end;
 
Вверх Снизу