"Эверест" - Центр Практической Информатики

представляет вводный курс

"Delphi для чайников"

Здравствуйте, уважаемые подписчики!

Мы начинаем вторую часть нашего курса "Создаем свою первую игру в Delphi".

Данный курс рассчитан на людей уже попробывавших свои силы в этой системе программирования и знакомого с простейшими операциями.

Тем же, кто еще не работал в Delphi или не пробовал писать игры, я рекомендую нашу рассылку, вернее ее первую часть по адресу: http://umnik.rikt.ru/everest/distant/delphi.htm

Наша задача: научиться использовать в своих программах циклы и массивы, научиться писать небольшие игрушки с использованием этих конструкций.

Урок 2. Циклический алгоритм.

Операторы цикла в Delphi - циклы While и Repeat.

Для программирования повторяющихся алгоритмов в Delphi предусмотрено аж 3 различных оператора: цикл for (с известным числом повторений), цикл while (с предусловием) и цикл repeat (с постусловием)

Сегодня разберемся с первым.

1. Оператор WHILE (пока). (Проверь - потом сделай).
Структура оператора WHILE:
WHILE <условие> DO (выполнять)
BEGIN
Операторы (тело цикла)
END

Оператор цикла действует следующим образом. Каждый раз предварительно проверяется условие. Если оно истинно, то выполняются операторы тела цикла. Если выражение
ложно, то происходит выход за пределы цикла.

Например.
В. Драгунский написал "Денискины рассказы". В одном из них Дениска сел на чужой мопед, завёл его и поехал. А как остановиться - не знает. Ребята ему посоветовали:
- Катайся, пока бензин не кончится!

Для кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
while button1.Left<450 do // пока кнопка по горизонали не сместится на 450 пикселов, выполняй
begin
button1.Left:= button1.Left+50;
sleep(250);
application.ProcessMessages();
end;
end;

3. Оператор Repeat (Повторить) (Сначала сделай - потом проверяй).

Структура оператора:
Repeat
Операторы
Until < условие>

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

Для кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
button1.Left:= button1.Left+50;
sleep(250);
application.ProcessMessages();
until button1.Left>450;
end;

Сравнительная характеристика операторов цикла.

В качестве примера возьмем человека прыгающего со скакалкой.

В зависимости от условий задачи, можно использовать один из следующих циклов.

Цикл WHILE Цикл REPEAT Цикл FOR

While силы есть? do
begin

прыгаю

end;

Repeat

прыгаю

Until устал?
end;

For n:=1 to 10 do
Begin

прыгаю (10раз)

end;

Подытожим. Цикл можно реализовать тремя операторами:

a) оператор while (пока). Он используется, если число повторений заранее не известно Проверка условия выполнения тела цикла производится в самом начале оператора.
b) оператор repeat (повторять) - until. Он используется, если число повторений заранее не известно, но проверка условия выполнения тела цикла производится в самом конце оператора.
c) Оператор for (для). Он используется, если число повторений заранее известно. Счётчик циклов должен быть типа Integer.

Задание. Придумать задачи и реализовать их с помощью циклов.

Скачать этот урок в формате Word и посмотреть архив данной рассылки, Вы сможете на нашем сайте по адресу: http:// umnik.rikt.ru/everest/distant/delphi.htm