6 урок

Программирование циклов

Цикл «ПОКА»

Угловые скобки в формате указывают на то, что ложно изначально, то тело цикла не будет выполнено ни разу. Если условие изначально истинно и в теле цикла нет действий, влияющих на истинность этого условия, то тело цикла будет выполняться бесконечное количество раз. Такая ситуация называется "зацикливанием". Прервать зациклившуюся программу может либо оператор (нажав Ctrl+C), либо аварийный останов самой программы, в случае переполнения переменной, деления на ноль и т.п., поэтому использовать структуру цикла следует с осторожностью, хорошо понимая, что многократное выполнение должно когда-нибудь заканчиваться.

На языке Pascal структура цикла "Пока" записывается следующим образом:

While <условие> Do <оператор>;

Правда, лаконично? По-русски можно прочитать так: "Пока истинно условие, выполнять оператор". Здесь, так же как в формате условного оператора, подразумевается выполнение только одного оператора. Если необходимо выполнить несколько действий, то может быть использован составной оператор. Тогда формат оператора принимает такой вид:

While <условие> Do

Begin

<оператор #1>;

<оператор #2>;

<оператор #3>;

. . .

End;

Пример. Найти сумму квадратов всех натуральных чисел от 1 до 100.
Решим эту задачу с использованием всех трех видов циклов.

I. С использованием цикла "Пока".
Program Ex1;
Var
A: Integer;
S: Longint;
Begin
A:=1; S:=0;
While A<=100 Do
Begin
S:=S+A*A;
A:=A+1;
End;
Writeln(‘S=’, s)
End.

Алгоритмический язык	Язык Pascal
нц  пока условие тело цикла кц	while условие  do begin тело цикла end;

Практические задания

1. Что выдаст программа?

s:=0;
i:=0;
while i<5 do
begin
i:=i+1;
s:=s+1;
end;

2. Запишите на языке Паскаль фрагмент программы.