Циклические операции

Слайд 2

Цикл – повторное выполнение последовательности команд (тела цикла) по некоторому условию.

Цикл – повторное выполнение последовательности команд (тела цикла) по некоторому условию.


Для организации цикла можно использовать конструкцию ветвления c с безусловным переходом GoTo, но лучше использовать специальные операторы цикла.

X:=0;
A1: x:=x+1;
Writeln (x);
If x<10 then goto a1;
Слайд 3

1. Цикл с предусловием (цикл-пока) While Do да нет

1. Цикл с предусловием (цикл-пока) While <Условие> Do <Тело цикла>

да

нет

Слайд 4

2. Цикл с постусловием (цикл-до) Repeat Until Условие Тело цикла нет да

2. Цикл с постусловием (цикл-до) Repeat <Тело цикла> Until <Условие>

Условие

Тело цикла

нет

да

Слайд 5

3. Цикл с параметром 1) For I:= In to Ik Do

3. Цикл с параметром 1) For I:= In to Ik Do <Тело

цикла> 2) For I:= In to Ik Downto <Тело цикла>
Слайд 6

Задача: Вычислить сумму натурального ряда чисел от 1 до N. S=

Задача: Вычислить сумму натурального ряда чисел от 1 до N. S=

1+2+3+4+… +N На примере этой задачи демонстрируется использование всех трех типов циклов.
Слайд 7

Program pr; Var a, S, N: integer; Begin Write (‘N=‘); Read

Program pr;
Var a, S, N: integer;
Begin
Write (‘N=‘); Read (N);
a:=1;

S:=0;
While a<=N Do
Begin
S:=S+a;
a:=a+1
End;
WriteLn (‘Pervaya summa=‘ , S);

Цикл с предусловием

Слайд 8

a:=1; S:=0; Repeat S:=S+a; a:=a+1 Until a>N; WriteLn (‘Vtoraya summa=‘ ,

a:=1; S:=0;
Repeat
S:=S+a;
a:=a+1
Until a>N;
WriteLn (‘Vtoraya

summa=‘ , S) ;
S:=0;
For a:=1 To N Do
S:=S+a;
WriteLn (‘Tretiya summa=’ , S)
End.

Цикл с постусловием

Цикл с параметром

Слайд 9

Какие конструкции цикла удобнее использовать для решения следующих задач? За сколько

Какие конструкции цикла удобнее использовать для решения следующих задач?
За сколько лет

можно накопить сумму 700 тыс. руб на покупку автомобиля, если каждый месяц вносить в банк 30 тыс руб, а банк выплачивает 12% годовых?
Найти значение 115-ого члена прогрессии 100, 95, 90, 85,…
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал норму на 10% нормы предыдущего дня. На какой день тренировок он будет пробегать 20 км?
200-ый член арифметической прогрессии с разностью 2 равен 2000. Найти значение 10-го члена.
Напечатать столбик таблицы умножения чисел от 1 до 9 на 13.
Слайд 10

По блок-схеме сформулируйте условие задачи. Сосчитайте значение S.

По блок-схеме сформулируйте условие задачи. Сосчитайте значение S.