Паскаль. Циклы. Решение задач с помощью циклов

называется циклом

Количество повторов зависит от условия

конечный
бесконечный
нулевой

While (с предусловием);
Цикл Repeat (с постусловием).

выполнится не разу.
Выполняется пока условие истинно.

WHILE – пока
DO – выполнять

ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ
НАЧАЛО
действие1;
действие2;
КОНЕЦ;

Виды циклов. 6

"истина" или "ложь".
Если в теле цикла несколько операторов, то их нужно объединить программными скобками begin – end.

выполняется, затем условие проверяется снова, и процесс повторяется. Тело цикла выполняется каждый раз, когда проверка условия дает "истину".

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

ИСТИННО) DO
действие1;
действие2;

условие

Действие 1

Действие 2

да

нет

Действие циклов (когда отсутствуют операторные скобки begin end и наоборот). 7

Обратите внимание, что Действие 2 в одном случае является командой цикла, а в другом нет.

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

проверьте работу данной программы, то что в фигурных скобках набирать не надо, это комментарий для понимания программы)

a<=N

S:=S+a
a:=a+1

да

нет

S:= 0
a:= 1

Program summa;
Var a, S , N: integer;{S-сумма, N-конечное число, a- очередное число меняющееся от 1 до N}
Begin
write (‘N=‘); readln (N);
a:=1; S:=0; {начальные значения первого числа и суммы}
While a<=N do {пока число не больше N повторять}
begin
S:=S+a;
a:=a+1;
end;
Writeln(‘Сумма ’,N,’ чисел равна ’,S);
end.