Оператор цикла в Паскале

Лабораторная работа №6 Тема: Операторы цикла.

Операторы цикла задают повторное выполнение определенных операторов.

Если число повторений заранее известно, то подходящей конструкцией является оператор for. В противном случае следует использовать операторы while или repeat.

Операторы цикла с предварительным условием.

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

while выражение do

begin

Внутренний оператор;

end;

Выражение, с помощью которого производится управление повторением оператора, должно иметь булевский тип. Вычисление его производится до того, как внутренний оператор будет выполнен. Внутренний оператор выполняется повторно до тех пор, пока выражение принимает значение True. Если выражение с самого начала принимает значение False, то оператор, содержащийся внутри оператора цикла while, не выполняется ни разу.

Примерами оператора цикла while могут служить:

а) while Data[I] X do

I:=I + 1;

б) while I 0 do

begin

if Odd(I) then Z:=Z * X;

I:=I div 2;

X:=Sqr(X);

end;

в) while not Eof(InFile) do

begin

Readln (InFile, Line);

Process (Line);

end;

Операторы цикла с последующим условием.

В операторе цикла repeat выражение, которое управляет повторным выполнением последовательности операторов, содержится внутри оператора repeat.

repeat

Внутренний оператор;

until логическое выражение;

Результатом выражения должен быть результат булевского типа.

Операторы, заключенные между ключевыми словами repeat и until, выполняются последовательно до тех пор, пока результат выражения не примет значения True. Последовательность операторов выполняется по крайней мере один раз, поскольку вычисление выражения производится после каждого выполнения последовательности операторов.

Приведем примеры оператора repeat:

1) repeat

K:=I mod J;

I:=J;

J:=K;

until J=O;

2) repeat

Write (‘введите значение (0..9):’);

Readln (I);

until (I =0) and (I

Операторы цикла с параметром.

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

For параметр:= начальное значение to конечное значение do оператор

Если параметр пробегает значения от большего значения к меньшему, то форма записи имеет вид:

For параметр:= начальное значение downto конечное значение do оператор

В качестве параметра должен использоваться идентификатор переменной, который обозначает переменную, объявленную локальной в блоке, в котором содержится оператор for. Начальное и конечное значения должны иметь тип, совместимый по присваиванию с этим порядковым типом.

Когда начинает выполняться оператор for, начальное и конечное значения определяются один раз, и эти значения сохраняются на протяжении всего выполнения оператора for.

Оператор, который содержится в теле оператора for, выполняется один раз для каждого значения в диапазоне между начальным и конечным значением. Когда оператор for использует ключевое слово to, значение параметра увеличивается при каждом повторении на единицу. Если начальное значение превышает конечное значение, то содержащийся в теле оператора for оператор не выполняется.

Когда в операторе цикла используется ключевое слово downto, значение параметра уменьшается при каждом повторении на единицу. Если начальное значение в таком операторе меньше, чем конечное значение, то содержащийся в теле оператора цикла оператор не выполняется.

Если оператор, содержащийся в теле оператора for, изменяет значение параметра, то это является ошибкой. После выполнения оператора for значение параметра становится неопределенным, если только выполнение оператора for не было прервано с помощью оператора перехода.

Пример оператора цикла for:

for I:=2 to 63 do

if Data[ I ] Max then Max:=Data[ I ];

Задания к лабораторной работе № 6_1

I. ЦИКЛ С ПРЕДУСЛОВИЕМ.

1. Дана последовательность операторов:

a := 1; b := 1;

while a + b

s := a + b

Сколько раз будет повторен цикл и какими будут значения переменных a, b и s после завершения этой последовательности операторов?

2. Какими будут значения переменных a и b после выполнения операторов:

a := 1; b := 1;

While a

3. Определить значение переменной s после выполнения следующих операторов:

1) s := 0; i := 0; While i

2) s := 0; i := 1; While i1 Do Begin s := s + 100 Div i; dec(i) End;

Написать программу:

1. Найти сумму цифр числа.

2. Найти первую цифру числа.

3. Приписать по 1 в начало и в конец записи числа n. Например, было n=3456, стало n=134561.

4. Найти сумму цифр целого числа, больших 5.

3