Стр. 334 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
334
Timer1.Enabled:=False;
end;
lb_Summ.Caption:=lb_Summ.Caption + ‘,’ + IntToStr(a);
end;
Первая процедура обрабатывает событие – щелчок на кнопке Pusk.
Включается таймер Timer1 и его интервал устанавливается равным 100
миллисекунд.
Вторая процедура определяет работу этого таймера. В разделе объявления
переменных объявляются переменные i и а целого типа.
Переменная i служит счетчиком цикла. Переменной a присваивается пер-
воначальное значение 4. Переменная i изменяется от 3 до 1 с шагом 1. На
уменьшение переменной i указывает зарезервированное слово downto.
В теле цикла выполняются следующие операторы.
Первая инструкция присваивает свойству Caption – Заголовок метки
lb_Summ значение, равное его предыдущему значению плюс вычисленное зна-
чение.
Вторая инструкция присваивает переменной a значение, равное сумме
предыдущего значения переменной а и текущего значения переменной i.
Третья инструкция выключает таймер. После цикла записывается опера-
тор, добавляющий к записи в свойстве Caption последнюю вычисленную сум-
му.
else – иначе
Зарезервированное слово else применяется в инструкции if…then…else...
– если...то...иначе.... После if записываются некоторые условия. Если условия
выполняются, то реализуются операторы, которые пишутся после слова then .
Если условия не выполняются, то реализуются операторы, которые пишутся
после слова else. Перед зарезервированным словом else знак точка с запятой не
ставится.
Пример:
procedure TForm1.bt_OpenClick(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer1.Interval:=200;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
s:integer;
begin
s:=random(5);
if s=1 then