Циклические алгоритмы. Оператор цикла с предусловием.

Циклический алгоритм-повторяющиеся фрагменты суммы.(арифметические-кончное число повторений, итерационное- с беск)

структура цикла

1. Начало-задание нач. значений переменным цикла(переменная меняется от шага к шагу)

2. Управляющая переменная цикла(менеджер)-исп-ся в условии окончания цикла.

3. рабочая часть(тело)-повторяющая программы, вып-ся многократно.

4. условие окончания(не должно быть беск циклов)

При выполнении оператора while определенная группа операторов выполняется до тех пор, пока определенное в операторе while булево условие истинно. Если условие сразу ложно, то оператор не выполнится ни разу.

Общая форма записи следующая:

while <булево выражение> do

begin

группа операторов

end;

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

При использовании цикла с предусловием надо помнить :1.значение условия выполнения цикла должно быть определено до начала цикла;2.если значение условия истинно, то выполняется тело цикла, после чего повторяется проверка условия. Если условие ложно, то происходит выход из цикла;3.хотя бы один из операторов, входящих в тело цикла, должен влиять на значение условия выполнения цикла, иначе цикл будет повторяться бесконечное число раз.

ЗАДАЧА. Исходные данные: переменная N – кол-во чисел и сами числа. Значение очередного числа - переменная Х. Результатом работы алгоритма - сумма этих чисел( S). S=x1+x2+x3+...+xn

При вычислении суммы используем следующий прием: вначале, когда еще не задано ни одно слагаемое, сумму полагают равной нулю (S:=0), а затем, получая очередное слагаемое, прибавляют его к сумме (S:=S+x) (см. программу ниже).

Очень важное значение в операторе цикла- переменная цикла(i).С ее помощью обращаемся к пользователю за очередным числом (write (‘Введите ‘,i,’-ое число ’)),считаем количество уже введенных чисел (i:=i+1), чтобы не запросить лишнее. Одновременно переменная цикла участвует в булевом выражении (i<=N).

программа:

Program Summa;

Uses

Crt;

Var

i,N : integer; x, S : real;

Begin

ClrScr;

write (‘Сколько чисел для сложения? ‘);

readln (N);

S:=0; i:=1;

while i<=N do

begin

write (‘Введите ‘,i,’-е число ’);

readln (x);

S:=S+x;

i:=i+1;

end;

write (‘Сумма введенных чисел равна ‘,s:5:2);

readln;

End.

Условие выполняется перед циклом.