Оператор цикла For

Циклы позволяют многократно выполнять отдельный оператор или последовательность операторов, причем при этом нет необходимости записывать в тексте программы одинаковые операторы несколько раз.

Оператор цикла For организует выполнение одного оператора (или несколько операторов) заранее известное число раз. Оператор For может быть представлен в двух форматах:

1. For <параметр цикла>:=<S1> To <S2> Do

<тело цикла>;

2. For <параметр цикла>:=<S1> DownTo <S2> Do

<тело цикла>;

<параметр цикла> - переменная цикла, которая может быть целочисленного или символьного типа. Параметр цикла изменяется, увеличиваясь до конечного значения (1 формат). Параметр цикла может изменяться в противоположном направлении - убывать (2 формат);

S1 – начальное значение параметра цикла, которое она получает при первом выполнении цикла;

S2 - конечное значение параметра цикла, достигнув которое повторение цикла прекращается;

For…Do – заголовок цикла;

< тело цикла > - оно может быть простым, состоящим из одного оператора или составным оператором.

Например:

For I:=1 To 20 Do Write(‘*’);

20 раз выведется на экран в одной строке «*»

Особенности выполнения оператора For

1. Начальное и конечное значения параметра цикла должны принадлежать к одному и тому же типу данных.

2. В операторе For не допускается изменения параметра цикла на величину, отличную от единицы.

Например:

For I:=10 To 14 Do Write(I:3); {Результат выполнения - 1011121314}

For I:=14 DownTo 10 Do Write(I:3); {Результат выполнения - 1413121110}

3. В операторе For после Do может находиться составной оператор, в теле которого запрещены операторы, меняющие значение параметра цикла.

Например:

For I:= 1 To 10 Do Begin

Rez:=A/Pi;

I:=I+1; {ошибка, попытка изменить параметр цикла}

End;

4. После нормального завершения оператора For значение параметра цикла равно конечному значению. Если оператор For не выполнялся, значение параметра цикла не определено.

5. Чтобы прервать выполнение оператора For досрочно, необходимо использовать процедуру Break, которая прерывает выполнение циклов. Процедура Continue начинает новую итерацию цикла, даже если предыдущая не была завершена.

Примеры решения задач

1. Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений.

USES Crt;

VAR

X: INTEGER; S, K, P: INTEGER; I: BYTE;

Begin

Clrscr; {чистка экрана}

P:=1; S:=0; K:=0;

FOR I:=1 TO 10 DO Begin

WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x);

IF X>0 Then P:=P*X; { произведение положительных }

IF X<0 Then Begin

S:=S+X; { сумма отрицательных }

K:=K+1; { количество отрицательных }

End;

End;

WriteLn(‘ Произведение положительных значений = ‘,p);

WriteLn(‘ Сумма отрицательных значений = ‘,s);

WriteLn(‘ Количество отрицательных значений = ‘,k);

END.

2. Из N целых чисел найти минимальное значение.

USES Crt;

VAR MI, X: INTEGER; I,N: BYTE;

BEGIN

WriteLn('Введите количество значений'); ReadLn(n);

WriteLn('Введите первое значение'); ReadLn(mi);

FOR I:=2 TO N DO Begin

WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x);

IF X<MI Then MI:=X;

End;

WriteLn(‘Минимальное значение = ‘,MI);

END.

3. Из N целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений.

USES Crt;

VAR

MI, MA, N, I, X: INTEGER; FL, FL1: BYTE;

BEGIN

Clrscr;

WriteLn('Введите количество значений'); ReadLn(N);

FL:=0; FL1:=0;

FOR I:=1 TO N DO Begin

WriteLn('Введите ',I,' значение'); ReadLn(X);

IF (FL=0) AND (X<0) Then Begin

MA:=X; FL:=1;

End;

IF (FL1=0) AND (X>0) Then Begin

MI:=X; FL1:=1;

End;

IF (X<0) AND (X>MA) Then MA:=X;

IF (X>0) AND (X<MI) Then MI:=X;

End;

IF FL=1 Then WriteLn('максимальное среди отрицательных = ',ma)

Else WriteLn('отрицательных нет');

IF FL1=1 Then WriteLn('минимальное среди положительных = ',mi)

Else WriteLn('положительных нет');

END.

Примеры для самостоятельного решения:

1. Найти среднее арифметическое минимального и максимального элементов из 10 введенных.

2. Найти сумму 2/3+3/4+…+n/(n+1).

3. Из n введенных чисел найти максимальное значение среди положительных элементов.

4. Вычислить сумму первых n слагаемых 1²+2²-3²+4²+5²-6²+…(каждое третье слагаемое берется со знаком «минус»).