Программирование циклов

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

ОПЕРАТОРЫ ЦИКЛА
Цикл с предусловием (цикл - пока)
While <условие> do <тело цикла>;
Цикл с постусловием (цикл - до)
Repeat <тело цикла> until <условие>;
Цикл с параметром (цикл - для)
for i:=In to Ik do <тело цикла>;
for i:=In downto Ik do <тело цикла>;

ЦИКЛ С ПРЕДУСЛОВИЕМ
(ЦИКЛ - ПОКА)
While <условие> do <тело цикла>;
Пока условие – истинно, выполняется тело цикла. Тело цикла может быть простым или составным оператором.
условие
да
нет
тело цикла

ЦИКЛ С ПОСТУСЛОВИЕМ
(ЦИКЛ - ДО)
Repeat <тело цикла> until <условие>;
Повторяется выполнение тела цикла до истинности условия. Тело цикла с постусловием выполняется хотя бы один раз.
тело цикла
условие
да
нет

ЦИКЛ С ПАРАМЕТРОМ
(ЦИКЛ - ДЛЯ)
for i:=In to Ik do <тело цикла>; for i:=In downto Ik do <тело цикла>;
i – параметр цикла – простая переменная порядкового типа;
In – выражение того же типа, определяющее начальное значение параметра;
Ik – выражение того же типа, определяющее конечное значение параметра;
Цикл повторяется, пока значение параметра лежит в интервале между In и Ik.
тело цикла
i:=In, Ik

СКОЛЬКО РАЗ ВЫПОЛНИТСЯ
ТЕЛО ЦИКЛА?
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;
Ответ:
ни разу

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

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

СКОЛЬКО РАЗ БУДЕТ ПОВТОРЕН ЦИКЛ, ЧЕМУ БУДУТ РАВНЫ 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

ОПРЕДЕЛИТЕ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ S ПОСЛЕ ВЫПОЛНЕНИЯ ПРОГРАММЫ:
Var a,S: integer;
Begin
S:=0;
For a:=5 downto 1 do
S:=s+2*a;
Writeln('S=', S);
End.
Ответ:
S=30

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 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
да
нет

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 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
да
нет

ВЫЧИСЛИТЬ СУММУ НАТУРАЛЬНОГО РЯДА ЧИСЕЛ ОТ 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

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

ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ
Найти сумму квадратов от 1 до N.
(S = 1 + 4 + 9 + … + n2)
Найти произведение 1 ∙ 2 ∙ 3 ∙ … ∙ n.
Найти сумму 1! + 2! + 3! +…+ n!
(n!= 1 ∙ 2 ∙ 3 ∙ … ∙ n)