Delphi - Циклы while

var

index:integer;

begin index:=0;

while index<10 do index:=index+l;

end;

В этом примере мы объявляем переменную index. В первой строке кода при­сваиваем ей 0. После этого запускается цикл. В условии записан код— index<10. Это значит, что будет выполняться следующее действие (index: =index+i), пока переменная index меньше 10.

В данном случае в качестве счетчика используется переменная index и цикл вы­полняется, пока верно условие. В отличие от цикла for, этот цикл не увеличивает автоматически счетчик, поэтому мы должны это сделать самостоятельно.

В цикле while также выполняется только одно действие. Если вы захотите вы­полнить в цикле сразу два действия, то должны заключить их в операторные скоб­ки begin И end.

procedure TFormi.CalculateButtonclick(Sender: TObj ect); var

index,sum,EndCount:Integer;

begin Sum: =0; index:=0;

EndCount:=StrToInt(EndEdit.Text);

while index<EndCount do begin

Sum: = Sum+index;

index:=index+l; end;

ResuitEdit.Text:=IntToStr(Sum); end;

В данном примере надо обнулять не только переменную sum, но и index, чтобы начальное значение было равно нулю, и цикл шел от нуля до введенного значения. Обратите также внимание на то, что здесь нужно самостоятельно увеличивать пе­ременную index (index: =index+i). Для этого данная строка добавлена в цикл. Она объединена с расчетом суммы при помощи операторных скобок begin и end.