Реализация циклического алгоритма в среде Turbo Pascal

Цикл – от греч. kyklos - круг
(синонимы - период, итерация, повторение, круговорот)
ЦИКЛ – это многократное выполнение одинаковой последовательности действий, которая называется
телом цикла.
ОСНОВНЫЕ ТИПЫ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ
Цикл с известным числом шагов
(цикл с параметром; синонимы: цикл For, цикл Для, цикл со счетчиком )
Цикл с неизвестным числом шагов (цикл с условием)
цикл While (синонимы: цикл Пока, цикл с предусловием)
цикл Repeat (синонимы: цикл До тех пор, Пока Не, цикл с постусловием)

Задача.
Построить фигуру “мишень”из 5-ти концентрических окружностей
Особенность: одинаковые действия,
построение окружности
выполняются 5 раз.
Можно ли построить это изображение, не используя цикл?
Алгоритм построения изображения
с использованием цикла
начало
конец
нет
да
i <= 5?
i := 1;
i := i + 1;
Circle(X, Y, R)
задать начальное значение параметра цикла
Нужно нарисовать ещё 1окружность?
Рисуем окружность
Увеличиваем радиус
перейти к следующему i
R:=R+10
X:=320;
Y:=240;
R := 20;
задать входные данные: координаты центра и радиус меньшей окружности
1
2
3
4
5

Блок-схема с использованием блока
“модификатор цикла”
начало
конец
блок "модификатор цикла"
тело цикла
X:=320;
Y:=240;
R := 20;
да
Circle(X, Y, R)
R:=R+10
нет
Фрагмент
программы
Begin
........................
X:=320;
Y:=240;
R := 20
for i:=1 to 5 do
begin
Circle(X, Y, R);
R:=R+10;
end;
End.
параметр цикла
начальное значение
конечное значение
тело цикла
оператор цикла

for <параметр> := <начальное значение> to
<конечное значение> do begin
{тело цикла}
end;
Увеличение параметра на 1:
for <параметр> := <начальное значение> downto
<конечное значение> do begin
{тело цикла}
end;
Уменьшение параметра на 1:
ФОРМАТ ОПЕРАТОРА ЦИКЛА С ПАРАМЕТРОМ
Параметр цикла – переменная, определяющая число повторений.

переменная цикла может быть только целой (integer)
шаг изменения переменной цикла всегда равен 1 (to) или -1 (downto)
если в теле цикла только один оператор, слова begin и end можно не писать
если конечное значение меньше начального, цикл (to) не выполняется ни разу (проверка условия в начале цикла, цикл с предусловием)
в теле цикла не разрешается изменять переменную цикла
в цикле с параметром всегда известно количество повторений, “зацикливание” невозможно
Особенности цикла с параметром

РЕШЕНИЕ ЗАДАЧ
R=50
X=50
Y=240
Какие действия включает в себя тело цикла при построении данного изображения?
Как изменяются координаты центра окружностей?
Чему равно начальное и конечное значение параметра цикла?
R=50
X=150
Y=240
R=50
X=250
Y=240
R=50
X=350
Y=240
R=50
X=450
Y=240
X:=X+2*R
1
2
3
4
5
Вариант 1

РЕШЕНИЕ ЗАДАЧ
Вариант 2
R=50
X=50
Y=50
Какие действия включает в себя тело цикла при построении данного изображения?
Как изменяются координаты центра окружностей? Как организовать такое изменение?
Чему равно начальное и конечное значение параметра цикла?
R=50
X=100
Y=100
R=50
X=150
Y=150
R=50
X=200
Y=200
R=50
X=250
Y=250
X:=X+R
Y:=Y+R

РЕШЕНИЕ ЗАДАЧ
Вариант 3
R=50
X=50
Y=50
C:=1
Какие действия включает в себя тело цикла при построении данного изображения?
Какие параметры окружностей изменяются? Как организовать такое изменение?
Чему равно начальное и конечное значение параметра цикла?
R=50
X=100
Y=100
C:=2
R=50
X=150
Y=150
C:=3
R=50
X=200
Y=200
C:=4
R=50
X=250
Y=250
C:=5
X:=X+R
Y:=Y+R
C:=C+1

РЕШЕНИЕ ЗАДАЧ
Вариант 4
R=200
X=320
Y=240
C:=1
Какие действия включает в себя тело цикла при построении данного изображения?
Какие параметры окружностей изменяются? Как организовать такое изменение?
Чему равно начальное и конечное значение параметра цикла?
X:=X+
C:=C+1
R/2