Презентация на тему Циклы. Методы решения задач

оператор цикла с предусловием
while

2) оператор цикла с параметром

for..to/downto

3) оператор цикла с последующим условием
repeat….until

многократное повторение одних и тех же действий

S=1+2+3+4+5+6+7+8+9+10
Program Summa;
Var S: integer;
Begin
S:=1+2+3+4+5+6+7+8+9+10;
Writeln(S);
End.
Что необходимо изменить

для получения суммы 100 первых чисел?

: S=1+2+3+4+5+6+7+8+9+10
Алгоритм:
Присвоить переменной S значение, равное 0 (S:=0).
Присвоить

переменной i (слагаемое) значение, равное 1 (i:=1).

Добавить к сумме значение
слагаемого i (S:= S+i).
Увеличить i на 1 (i:=i+1).
Повторить шаги 3 и 4.

S:=0; {начальная сумма}
i:=1;
while i<=10 do
begin
S:=S+i;
i:=i+1;
end;
writeln(S); {распечатка найденной суммы}

до n. S=1+2+3+4+…+n Решение:
Program Summa;
Var i, n, S : integer;
Begin

readln(n);
S:=0; {начальная сумма}
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln(S); {распечатка найденной суммы}
end.

Что изменится, если надо найти произведение?

P:=1;

P:=P*i;

до n. S=1+2+3+4+…+n Блок-схема:
Program Summa;
Var i, n, S : integer;
Begin

readln(n);
S:=0;
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln(S);
end.

i:= 1

i<= n

S:=S+i

i:=i+1

Нет

S:= 0

Начало

Вывод S

Конец

Да

Ввод n

S : integer;
Begin
readln(n);
S:=0;

{начальная сумма}
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln(S); {распечатка найденной суммы}
end.

11

55

0

с параметром


for i:= imin to imax

do
begin
операторы (тело цикла);
end;



Примечание. Параметр цикла i изменяется от минимального до максимального с шагом равным 1.

Блок-схема цикла с параметром

i:= i min

i<= i max

Тело цикла

i:=i+1

Да

Нет

присваивается значение imin ;
i:= i min
i

цикла

i:=i+1

Нет

Проверяется условие i<=imax.
Если да , то выполнится оператор, стоящий после слова do (т.е. выполняется тело цикла).
Значение параметра i увеличивается на 1 .

Снова проверяется условие i<=imax.. и т. д.

Когда условие i<=imax не соблюдается - выход

Блок-схема цикла с параметром

команды в цикле ?

for i:= 1 to

10 do

for i:= 5 to 10 do

for i:= 7 to 14 do

for i:= 3 to 12 do


Примечание. Параметр цикла i изменяется от минимального до максимального с
шагом равным 1.

10

6

8

10

с параметром


for i:= imax downto imin

do
begin
операторы (тело цикла);
end;



Примечание. Параметр цикла i изменяется от максимального до минимального с шагом равным -1.

Блок-схема цикла с параметром

i:= i max

i>= i min

Тело цикла

i:=i-1

Да

Нет

присваивается значение imax;
Проверяется условие i>=imin.
Если да , то выполнится

оператор, стоящий после слова do (т.е. выполняется тело цикла).
Значение параметра i уменьшается на единицу.
Снова проверится условие i>=imin и т. д.

Блок-схема цикла с параметром

i:= i max

i>= i min

Тело цикла

i:=i-1

Нет

команды в цикле ?


for i:=10 downto 1 do

for i:= 9 downto 5 do

for i:= 7 downto 1 do

for i:= 11 downto 3 do


Примечание. Параметр цикла i изменяется от минимального до максимального
с шагом равным -1.

10

5

7

9

в теле цикла с помощью команды присваивания. Это может

привести к «зацикливанию» программы (бесконечному повторению тела цикла) либо к неверным результатам выполнения программы.
Если в заголовке оператора for..to начальное значение переменной цикла больше конечного значения, то тело цикла не выполнится ни разу.
Если в заголовке оператора for..downto начальное значение переменной цикла меньше конечного значения, то тело цикла не выполнится ни разу.
При выходе из цикла текущее значение переменной цикла равно конечному значению в операторе for..to и наоборот в операторе for..downto.
Телом цикла может быть не один оператор, а группа операторов (составной оператор), которую обязательно надо заключать в операторные скобки begin… end.

до n. S=1+2+3+4+…+n Решение:
Program Summa;
Var i, n, S : integer;
Begin

readln(n);
S:=0; {начальная сумма}
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln(S); {распечатка найденной суммы}
end.

For i:=1 to n do
begin
S:=S+i;
end;

For i:=1 to n do S:=S+i;

integer;
Begin
Readln (n);
S:=0;

{начальная сумма}
For i:=1 to n do {нахождение суммы в цикле}
begin
S:=S+i; {тело цикла - нахождение суммы}
end;
Writeln (S); {распечатка найденной суммы}
End.

i:= 1

i<= n

S:=S+i

i:=i+1

Нет

S:= 0

Начало

Вывод S

Конец

Да

Ввод n

S:=0; {начальная сумма}
For i:=1 to n do

begin
S:=S+i;
end;
Writeln (S); {распечатка найденной суммы}
End.

Выполнение программы при n=10

1

3

6

10

15

21

28

36

45

55

1

2

3

4

5

6

7

8

9

10

7, 8, 9.
program z;
var i:integer; {i – переменная цикла

и в то же время выводимое число}
begin
for i:=5 to 9 do {переменная i (счетчик цикла) меняется от 5 до 9 с шагом 1}
begin
writeln(i); {вывод очередного числа – тело цикла}
end;
end.

Результат выполнения программы:
5
6
7
8
9

n до m (n

Begin
readln (n, m);
for i:=n to m do
begin
writeln(i);
end;
end.

i:= n

i<= m

Вывод i

i:=i+1

Нет

Начало

Конец

Да

Ввод n, m

for?
Какие формы оператора for вы знаете?
Чем отличается формы «to»

и «downto» оператора for ?
Можно ли изменять переменную-параметр цикла в теле цикла?
Какой тип данных может иметь переменная цикла?

6 do
begin
write (’*’);
end;

2. Что

будет выведено на экран монитора в результате выполнения цикла:
For i:=1 to 5 do
begin
writeln (i);
end;

3. Какая будет печать? (в строчку или в столбик?)

(For15)
Задача For5 (For16)

задачи:
Вывести на экран N

первых натуральных чисел