Delphi/Цикл: различия между версиями
Содержимое удалено Содержимое добавлено
ВикиРин (обсуждение | вклад) Новая страница: «'''Цикл''' - это многоповторяющееся участок кода программы. Циклы бывают разные. ==Цикл "Дел…» |
ВикиРин (обсуждение | вклад) Нет описания правки |
||
Строка 8:
end;
</source>
Программа "вертится" по кругу. Но бесконечно цикл идти не может, если условие будет неверное, цикл остановится. Давайте напишем программу с циклом.
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=1;
while a=50 do
begin
a:=a+1;
Label1.Caption:=IntToStr(a);
end;
end;
</source>
Почему Label показывает нам сразу сотню? Дело в том, что цикл идет на столько быстро, что наш глаз не успевает заметить как меняются числа: 1..10..20...
| |||