Тема 2.3. Часть 2. Управляющие операторы. Операторы цикла

1.

ТЕМА 2.3. ЧАСТЬ 2
УПРАВЛЯЮЩИЕ ОПЕРАТОРЫ.
ОПЕРАТОРЫ ЦИКЛА

2.

ЦИКЛ С ПОСТУСЛОВИЕМ

3.

Repeat
<оператор1>;
<оператор2>;
…
<операторN>
Until S;

4.

ОПРЕДЕЛИТЬ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ S ПОСЛЕ
ВЫПОЛНЕНИЯ СЛЕДУЮЩИХ ОПЕРАТОРОВ
S:=0;
i:=1;
Repeat
S:=s+5 div i;
i:=i+1
Until i<=10;

5.

ЗАДАЧА
НАЙТИ СУММУ ЧИСЕЛ ОТ 1 ДО 100
Program a;
Var s, i: integer;
Begin
S:=0; i:=1;
Repeat
S:=s+I;
i:=i+1
Until i>100;
Writeln (‘сумма чисел равна ‘,s)
end.

6.

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

7.

While S do
<оператор1>;

8.

ЗАДАЧА
Дана последовательность операторов:
A:=1; b:=1;
While a+b<8 do
Begin a:=a+1; b:=b+2 end;
S:=a+b
Сколько раз будет повторен цикл и какими будут значение
переменных a, b, s после завершения этой последовательности
операторов?

9.

ЗАДАЧА
Какими будут значения переменных a и b после
выполнения операторов:
A:=1; b:=1;
While a<=3 do a:=a+1; b:=b+1

10.

ЗАДАЧА
НАЙТИ СУММУ ЧИСЕЛ ОТ 1 ДО 100
Program a;
Var s, i:integer;
Begin
S:=0; i:=1;
While i<=100 do
begin
S:=s+i; i:=i+1
End;
Writeln(‘сумма чисел равна ‘, s)
End.

11.

ЦИКЛ С ПАРАМЕТРОМ FOR

12.

СИНТАКСИС ОПЕРАТОРА FOR
For i:=i1 to i2 do
<оператор1>;

13.

For i:=i1 downto i2 do
<оператор1>;

14.

СКОЛЬКО РАЗ БУДУТ ВЫПОЛНЕНЫ ОПЕРАТОРЫ
ИЗ ТЕЛА ЦИКЛОВ:
For k:=-1 to 1 do…
For k:=10 to 20 do…
For k:=20 to 10 do…
k:=5; r:=15;
For i:=k+1 to r-1 do…

15.

ОПРЕДЕЛИТЬ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ S ПОСЛЕ
ВЫПОЛНЕНИЯ СЛЕДУЮЩИХ ОПЕРАТОРОВ:
S:=0;
N:=10;
For i:=2 to N do
S:=S+10 div i;

16.

ЗАДАЧА
НАЙТИ СУММУ ЧИСЕЛ ОТ 1 ДО 100.
Program a;
Var s, i:integer;
Begin
S:=0;
For i:=1 to 100 do
S:=s+i;
Writeln(‘сумма чисел равна ‘, s)
End.