Презентация на тему Циклы

с известным числом шагов
цикл с неизвестным числом шагов (цикл

параметром:
FOR … TO … DO
FOR … DOWNTO … DO
В

процедуры:
Break
Continue
Break –позволяет досрочно выйти из цикла
Continue – позволяет перейти

to
do
begin
{тело

Увеличение параметра на 1:

for <параметр цикла> := <начальное значение> downto <конечное значение> do
begin
{тело цикла}
end;

Уменьшение параметра на 1:

WriteLn(i:3,sqr(i):4, i*i*i:5);
end;
readln;
end.
Пример 1: Вывести на экран

word и т.п.)
шаг изменения переменной цикла всегда равен 1

Циклы c параметром

for i:=1 to 10 do
WriteLn(i:3,sqr(i):4, i*i*i:5);

c параметром
n := 8;
for i:=1 to n do begin

Запрещено, т.к. параметр i может не достигнуть значения n. Зацикливание

при изменении начального и конечного значения внутри цикла количество

Циклы c параметром

n := 8;
for i:=1 to n do begin
writeln('Привет');
n := n + 1;
end;

нет зацикливания

значение переменной цикла, при котором нарушено условие:
for i:=1 to

for i:=8 downto 1 do
writeln('Привет');
writeln('i=', i);

i=9

i=0

Циклы c параметром

:= a+1;
a = 4
a := 1;
for i:=3 to 1

a = 1

a := 1;
for i:=1 downto 3 do a := a+1;

a = 1

a := 1;
for i:=3 downto 1 do a := a+1;

a = 4

Определите значение переменной a

кубы нечётных целых чисел от 1 до 9.
Особенность: переменная

i mod 2 = 1

выполняется только для нечетных i

5 чисел, переменная k изменяется от 1 до 5.

i := i + 2;

i := 1;

5 чисел, переменная k изменяется от 1 до 5.

i := 2*k – 1;

i = 2k-1

простым.
Идея: Если у числа есть делители, отличные от 1

что N - простое
F := False;
Break;
ввод n
i =2,N div

i

F?

Простое

нет

да

нет

Boolean;
begin
Write(‘Введите N:’);ReadLn(N);
F := True;
for i

Программа:

совершенным. Совершенное число равно сумме своих делителей (кроме самого

:= S + i
ввод n
i =1,N div 2
i
S

Совершенное

нет

да

нет

word;
begin
Write(‘Введите N:’);ReadLn(N);
S := 0;
for i

Программа:

диапазоне от 1 до 1000

Идея: 1.Запустить цикл от 1

k: word;
Begin
k := 0;
for N :=

Программа:

(

0

0

1;
n := n div 10;
обнулить счетчик цифр
ввод

выполнять "пока n <> 0"

read(n);
count := 0;
while n 0 do

, n1: integer;

n1 := n;

n1,

выполнять "пока n <> 0"

цикла}
end;
Особенности:
можно использовать сложные условия:




если в

while (a {тело цикла}
end;

while a < b do
a := a + 1;

в цикл
если условие на входе в цикл ложно, цикл

a := 4; b := 6;
while a > b do
a := a – b;

a := 4; b := 6;
while a < b do
d := a + b;

6;
while a < b do a := a +

2 раза
a = 6

a := 4; b := 6;
while a < b do a := a + b;

1 раз
a = 10

a := 4; b := 6;
while a > b do a := a + 1;

0 раз
a = 4

a := 4; b := 6;
while a < b do b := a - b;

1 раз
b = -2

a := 4; b := 6;
while a < b do a := a - 1;

зацикливание

10 do begin
{тело цикла}
end;
i := 1;
while i

for i:=a downto b do
begin
{тело цикла}
end;

i := a;
while i >= b do begin
{тело цикла}
i := i - 1;
end;

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.

Замена цикла for на while возможна всегда.

и определить число цифр в нем.
Проблема: Как не

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

ВЫХОДА
блок "типовой процесс"
ввод n
основной алгоритм

writeln('Введите положительное число');
read(n);
until n

until n > 0;

условие ВЫХОДА

раз
после слова until ("до тех пор, пока не…") ставится

a := 4; b := 6;
repeat
d := a + b;
a := a + 1;
until a>b;

2 оператора в теле цикла.
begin и end не ставятся

6;
repeat a := a + 1; until a >

3 раза
a = 7

a := 4; b := 6;
repeat a := a + b; until a > b;

1 раз
a = 10

a := 4; b := 6;
repeat a := a + b; until a < b;

зацикливание

a := 4; b := 6;
repeat b := a - b; until a < b;

2 раза
b = 6

a := 4; b := 6;
repeat a := a + 2; until a < b;

зацикливание

7, 11, 16, …
1, 2, 4, 8, 16, 32,

an = n

a1 = 1, an+1 = an+1

a1 = 1, an+1 = an + n

an = 2n-1

a1 = 1, an+1 = 2an

b1 = 1, bn+1 = bn+1

c1 = 2, cn+1 = 2cn

которые по модулю больше 0,001:
Элемент последовательности (начиная с

b := b+1;

c := 2*c;

z := -z;

0; b := 1; c := 2; z :=

начальные значения

a := z*b/c;
b := b + 1; c := 2*c; z := -z;

первый элемент

новый элемент

изменение

a: real;
begin
S := 0; z := -1;

переход к следующему слагаемому

начальные значения

увеличение суммы

расчет элемента последовательности

Требуется вычислить среднее арифметическое четных чисел последовательности.
Особенность: Сначала определяем

:= 0;
начальные значения
S := S + X;
k

ввод n

ввод X

i =1,10

i

k = 0?

Нет четных

нет

да

нет

begin
Write(‘Введите N:’);ReadLn(N);
s := 0; k := 0;

Программа:

begin

end;

begin

end;

следует ноль. Требуется вычислить среднее арифметическое кратных 5 элементов

:= 0;
начальные значения
S := S + X;
k

Ввод x

ввод X

k = 0?

Нет четных

нет

да

нет

X <> 0?

да

нет