Циклические алгоритмы

Циклическими называются алгоритмы, в которых повторяется определенная последовательность действий (тело цикла). Определение

Циклические алгоритмы делятся на: циклы с параметром (со счетчиком) ; циклы по условию: – с предусловием; – с постусловием. Типы циклов

Когда число повторений известно, для циклической обработки информации применяется цикл с параметром (или со счетчиком). Цикл параметром с

Для I:=In до Ik команда_1 команда_2 команда_N Блок-схема цикла с параметром Блок-схема

Формат оператора FOR …DO Оператор

For I:=In to Ik do ; (In

For I:=In to Ik do ; (InIk, изменение параметра на -1) Формат оператора FOR …DO Оператор

For I:=In to Ik do ; (InIk, изменение параметра на -1) For I:=In to Ik do Begin ; … end; Формат оператора FOR …DO Оператор

Разбор типовых задач Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Задача 1. Найти сумму первых N натуральных чисел. Задача 1. Найти сумму первых N натуральных чисел. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Program Task_1; Var I, N: Integer; Sum: Real; Begin Write (Уточните количество чисел ); readln(N); Sum:=0; For I:=1 to N do Sum:=Sum+I; Writeln(Сумма чисел =, Sum:6:0); End. Задача 1. Найти сумму первых N натуральных чисел. Задача 1. Найти сумму первых N натуральных чисел. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Задача 2. Найти N! (N-факториал, т.е. найти произведение чисел 1*2*3*4*…*N). Задача 2. Найти N! (N-факториал, т.е. найти произведение чисел 1*2*3*4*…*N). Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Program Task_2; Var I, N: Integer; Pr: Real; Begin Write (Уточните количество чисел ); readln(N); Pr:=1; For I:=1 to N do Pr:=Pr*I; Writeln(N,!=,Pr:6:0); End. Задача 2. Найти N! (N-факториал, т.е. найти произведение чисел 1*2*3*4*…*N). Задача 2. Найти N! (N-факториал, т.е. найти произведение чисел 1*2*3*4*…*N). Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Задача 3. Найти сумму N чисел, введенных с клавиатуры. Задача 3. Найти сумму N чисел, введенных с клавиатуры. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Program Task_3; Var I, N: Integer; X, Sum: Real; Begin Write (Уточните количество чисел); readln(N); Sum:=0; For I:=1 to N do begin write(Введите значение числа); readln(X); Sum:=Sum+X end; Writeln(Сумма введенных чисел =, Sum:5:2); End. Задача 3. Найти сумму N чисел, введенных с клавиатуры. Задача 3. Найти сумму N чисел, введенных с клавиатуры. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Задача 4. Найти сумму первых четных натуральных чисел, не превышающих заданное число М. Задача 4. Найти сумму первых четных натуральных чисел, не превышающих заданное число М. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Program Task_4; Var I, M: Integer; Sum: Real; Begin Write (Уточните значение числа М ); readln(M); Sum:=0; For I:=2 to M do if I mod 2=o then Sum:=Sum+I; Writeln(Сумма чисел =, Sum:5:0); End. Задача 4. Найти сумму первых четных натуральных чисел, не превышающих заданное число М. Задача 4. Найти сумму первых четных натуральных чисел, не превышающих заданное число М. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Задача 5. Найти произведение первых нечетных натуральных чисел, не превышающих заданное число М. Задача 5. Найти произведение первых нечетных натуральных чисел, не превышающих заданное число М. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

Program Task_5; Var I, M: Integer; Pr: Real; Begin Write (Уточните значение числа М ); readln(M); Pr:=1; For I:=1 to M do if I mod 20 then Pr:=Pr*I; Writeln(Произведение чисел =, Pr:5:0); End. Задача 5. Найти произведение первых нечетных натуральных чисел, не превышающих заданное число М. Задача 5. Найти произведение первых нечетных натуральных чисел, не превышающих заданное число М. Задача 1 Задача 2 Задача 3 Задача 4 Задача 5

ГБОУ Центр образования 953 автор работы: учитель информатики и ИКТ Рябова Елена Васильевна 2010 год