Программирование циклов Операторы цикла

Содержание

Слайд 2

ВОПРОСЫ ДЛЯ ПОВТОРЕНИЯ Какая геометрическая фигура обозначает в блок-схеме действие? Прямоугольник

ВОПРОСЫ ДЛЯ ПОВТОРЕНИЯ

Какая геометрическая фигура обозначает в блок-схеме действие?
Прямоугольник
Какая геометрическая фигура

обозначает в блок-схеме условие?
Ромб
Какой оператор описывает в программе ввод данных?
Read, readln
Какой оператор описывает в программе вывод данных?
Write, writeln
Слайд 3

ОПЕРАТОРЫ ЦИКЛА Цикл с предусловием (цикл - пока) While do ;

ОПЕРАТОРЫ ЦИКЛА

Цикл с предусловием (цикл - пока)
While <условие> do <тело цикла>;
Цикл

с постусловием (цикл - до)
Repeat <тело цикла> until <условие>;
Цикл с параметром (цикл - для)
for i:=In to Ik do <тело цикла>;
for i:=In downto Ik do <тело цикла>;
Слайд 4

ЦИКЛ С ПРЕДУСЛОВИЕМ (ЦИКЛ - ПОКА) While do ; Пока условие

ЦИКЛ С ПРЕДУСЛОВИЕМ (ЦИКЛ - ПОКА)

While <условие> do <тело цикла>;
Пока условие –

истинно, выполняется тело цикла. Тело цикла может быть простым или составным оператором.

условие

да

нет

тело цикла

Слайд 5

ЦИКЛ С ПОСТУСЛОВИЕМ (ЦИКЛ - ДО) Repeat until ; Повторяется выполнение

ЦИКЛ С ПОСТУСЛОВИЕМ (ЦИКЛ - ДО)

Repeat <тело цикла> until <условие>;
Повторяется выполнение тела

цикла до истинности условия. Тело цикла с постусловием выполняется хотя бы один раз.

тело цикла

условие

да

нет

Слайд 6

ЦИКЛ С ПАРАМЕТРОМ (ЦИКЛ - ДЛЯ) for i:=In to Ik do

ЦИКЛ С ПАРАМЕТРОМ (ЦИКЛ - ДЛЯ)

for i:=In to Ik do <тело

цикла>;
for i:=In downto Ik do <тело цикла>;
i – параметр цикла – простая переменная порядкового типа;
In – выражение того же типа, определяющее начальное значение параметра;
Ik – выражение того же типа, определяющее конечное значение параметра;
Цикл повторяется, пока значение параметра лежит в интервале между In и Ik.

тело цикла

i:=In, Ik

Слайд 7

СКОЛЬКО РАЗ ВЫПОЛНИТСЯ ТЕЛО ЦИКЛА? 1) x:=5; for i:=-1 to 5

СКОЛЬКО РАЗ ВЫПОЛНИТСЯ ТЕЛО ЦИКЛА?

1) x:=5;
for i:=-1 to 5 do
x:=x+1;
Ответ:
7
2) s:=0;
for

i:=4 to 1 do
s:=s+1;
Ответ:
ни разу
Слайд 8

КАКОЕ ЗНАЧЕНИЕ ПРИМЕТ ПЕРЕМЕННАЯ Х В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ АЛГОРИТМА: x:=3; while x x:=x+3; x:=x+1; Ответ: 13

КАКОЕ ЗНАЧЕНИЕ ПРИМЕТ ПЕРЕМЕННАЯ Х В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ АЛГОРИТМА:

x:=3;
while x<10

do
x:=x+3;
x:=x+1;
Ответ:
13
Слайд 9

КАКОЕ ЗНАЧЕНИЕ ПРИМЕТ ПЕРЕМЕННАЯ Х В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ АЛГОРИТМА: x:=3; while

КАКОЕ ЗНАЧЕНИЕ ПРИМЕТ ПЕРЕМЕННАЯ Х В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ АЛГОРИТМА:

x:=3;
while x<10

do
begin
x:=x+3;
x:=x+1;
end;
Ответ:
11
Слайд 10

СКОЛЬКО РАЗ БУДЕТ ПОВТОРЕН ЦИКЛ, ЧЕМУ БУДУТ РАВНЫ S, A, B?

СКОЛЬКО РАЗ БУДЕТ ПОВТОРЕН ЦИКЛ, ЧЕМУ БУДУТ РАВНЫ S, A, B?

a:=1;

b:=1;
While a+b < 8 do
begin
a:=a+1;
b:=b+2;
end;
S:=a+b;
Ответ:
2 раза
S=8, a=3, b=5
Слайд 11

ОПРЕДЕЛИТЕ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ S ПОСЛЕ ВЫПОЛНЕНИЯ ПРОГРАММЫ: Var a,S: integer; Begin

ОПРЕДЕЛИТЕ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ S ПОСЛЕ ВЫПОЛНЕНИЯ ПРОГРАММЫ:

Var a,S: integer;
Begin
S:=0;
For a:=5 downto

1 do
S:=s+2*a;
Writeln('S=', S);
End.
Ответ:
S=30
Слайд 12

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 1 ДО N Program summa1;

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 1 ДО N

Program summa1;
Var N,i,S:

integer;
Begin
Write('N='); readln(N);
S:=0; i:=1;
While i<=N do
begin
S:=S+i;
i:=i+1;
end;
Writeln('S=', S);
End.

начало

конец

ввод N

S:=0; i:=1

i<=N

S:=S+i;
i:=i+1

Вывод S

да

нет

Слайд 13

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 1 ДО N Program summa2;

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 1 ДО N

Program summa2;
Var N,i,S:

integer;
Begin
Write('N='); readln(N);
S:=0; i:=1;
Repeat
S:=S+i;
i:=i+1;
Until i>N;
Writeln('S=', S);
End.

начало

конец

ввод N

S:=0; i:=1

i>N

S:=S+i;
i:=i+1

Вывод S

да

нет

Слайд 14

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 1 ДО N Program summa3;

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 1 ДО N

Program summa3;
Var N,

i, S: integer;
Begin
Write('N='); readln(N);
S:=0;
For i:=1 to N do
S:=S+i;
Writeln('S=', S);
End.

начало

конец

ввод N

S:=0;

i:=1, N

S:=S+i;

Вывод S

Слайд 15

КОМПЬЮТЕРНЫЙ ТЕСТ Мультимедийный тест по информатике "Язык программирования Pascal. Циклы"

КОМПЬЮТЕРНЫЙ ТЕСТ

Мультимедийный тест по информатике "Язык программирования Pascal. Циклы"

Слайд 16

ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ Найти сумму квадратов от 1 до N.

ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ

Найти сумму квадратов от 1 до N. (S

= 1 + 4 + 9 + … + n2)
Найти произведение 1 ∙ 2 ∙ 3 ∙ … ∙ n.
Найти сумму 1! + 2! + 3! +…+ n!
(n!= 1 ∙ 2 ∙ 3 ∙ … ∙ n)