Цикл с параметром «Для»

Возьмем очень простой пример - таблицу умножения: число 2 умножаем на числа от 1 до 10 и печатаем ответ. Какие действия повторяются? Повторяются действия умножения и вывод значения произведения на экран. При этом заметим, что второй сомножитель увеличивается при каждом действии на единицу, и операция умножения повторяется заданное количество раз. Как мы видим, в этом случае процесс вычислений носит циклический характер, причем число повторений цикла известно к началу его выполнения, управление циклом осуществляется с помощью переменной (счетчик цикла), которая в этом циклическом процессе принимает последовательное значение от заданного начального значения до заданного конечного значения.

Значение таблицы умножения на 2 можно записать так:

2 х i = а, где i изменяется от 1 до 10, а - от 2 до 20.

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

FOR K:=M1 TO M2 DO

оператор1

FOR K:=M1 TO M2 DO

BEGIN

оператор1;

.......................

оператор n;

END;

FOR K:=M1 DOWNTO M2 DO

BEGIN

операторы циклической части

END;

ГДЕ К - параметр цикла, М1 и М2 - начальное и конечное значение параметра цикла. DOWNTO изменяет параметр с шагом -1.

Внимание!

1) Счетчик изменяется на единицу при каждом следующем исполнении оператора цикла.

2) Не забывайте, что счетчику присваивается начальное значение, т.е. K= начальное значение.

3) Если начальное значение совпадает с конечным значением, то операторы цикла (еще говорят «тело цикла») выполняются один раз.

4) Если начальное значение счетчика больше конечного значения, то тело цикла не выполняется ни разу.

5) При выходе из цикла значение счетчика совпадает с конечным значением, т.е. К=M2

Блок-схема цикла «FOR» k=M1, M2 Операторы тела цикла

Пример 1: Вывести на экран квадраты натуральных чисел от 10 до 20.

PROGRAM N1;

VAR i: integer; {счетчик цикла}

a: integer;

BEGIN

FOR i:=10 TO 20 DO

BEGIN

a:=i*i;

writeln(‘квадрат числа’,i,’=’,a);

END

END.

Начало i=10, 20 a=i*i ‘Квадрат числа’,i,’=’.a конец

Или

FOR i:=10 TO 20 DO writeln(‘квадрат числа’,i,’=’,i*i);

Пример 2. Вывести на экран натуральные числа от 40 до 10.

PROGRAM N2;

VAR i: integer; {счетчик цикла}

BEGIN

FOR i:=40 DOWNTO 10 DO

write(i,’ ’)

END.