3. Внесите в программу предложенные изменения:

a) Как изменится результат исходной программы, если оператор S:=S + B вынести за тело цикла? Проверить результат на ЭВМ.

б) Как изменится результат выполнения исходной программы, если оператор Writeln ('S=',S) внести в тело цикла? Проверить результат на ЭВМ.

в) Как изменится результат выполнения исходной программы, если оператор В:=В+2 будет отсутствовать? Проверить результат на ЭВМ.

4. Выполните задание.

Используя цикл с параметром, написать программу и составить блок-схему нахождения разности произведения и суммы первых N нечетных чисел, кратных трем.

5. Контрольные вопросы.

1. Что такое цикл? Назовите его составные части.

2. Можно ли использовать при организации арифметического цикла шаг, отличный от 1 и –1?

3. При каких условиях происходит выход из цикла?

Тема: Цикл с предусловием.

Цель: выработать умения и навыки учащихся по использованию цикла с предусловием при решении задач.

План работы.

1. Повторить теорию.

2. Набрать заданную программу.

3. Внести предложенные изменения.

4. Выполнить задание.

5. Ответить на контрольные вопросы.

1. Теория.

Цикл с предусловием применяется при необходимости произвести какие-либо действия несколько раз до тех пор, пока выполняется некоторое условие. Тело этого цикла может не выполниться ни разу, т.к. проверка условия происходит до операторов тела цикла.

Тело цикла - это последовательность действий, которая выполняется многократно.

Начальные присваивания – это задание начальных значений тем переменным, которые используются в теле

цикла и впервые встречаются в программе справа от знака присваивания.

Условие, стоящее до тела цикла, - это условие выполнения тела цикла.

Блок схема цикла с предусловием.

Оператор цикла с предусловием на языке Паскаль имеет следующий вид:

<оператор>;

или

WHILE < U > DO Begin - тело цикла

<группа операторов>;

End;

где:

< U > - условие выполнения тела цикла. Запись "условия" очень напоминает одноименную составляющую оператора условия (только без IF).

Выполнение оператора начинается с проверки условия <U>.

Если оно справедливо, то выполняется тело цикла. Затем работа оператора цикла с предусловием продолжается до тех пор, пока условие < U > станет несправедливым. В этом случае тело цикла пропускается и управление передается оператору, следующему за оператором цикла.

Очевидно, что если условие <U> оказалось несправедливым уже при первом входе в цикл, то тело цикла не выполнится ни разу.

Замечание: Как видно из принципа работы оператора цикла с предусловием, в теле цикла должен находиться оператор, который будет непосредственно влиять на < U >, так как иначе цикл станет бесконечным (произойдет зацикливание).

2. Набрать заданную программу, которая вычисляет сумму S первых N четных чисел.

Program Summa;

var N,S,I,B : integer;

Begin

readln (N); {ввод количества чисел}

S:=0; {обнуление ячейки для суммы этих чисел}

B:=2; {задание переменной В значения первого четного числа}

I:=1; {задание счетчику I первого значения}

While I<=N do {условие выполнения тела цикла: пока

количество суммированных чисел меньше

или равно количеству искомых чисел}

Begin

S:=S+B; {нахождение суммы чисел}

B:=B+2; {нахождение следующего четного числа}

I:=I+1; {увеличение значения счетчика на 1}

End;

Writeln ('S=',S);

End.