Алгоритм цикла нет Условие Алгоритм при котором

Алгоритм цикла

нет Условие Алгоритм, при котором повторяются одни и те же действия, называется циклом да Действие Количество повторов зависит от условия • конечный • бесконечный • нулевой

нет Условие да да Выводданных Ввод ответов Расчет Тело цикла Действие

Цикл с предусловием Структура цикла нет Условие да While <условие> do begin <тело цикла> Тело цикла end;

Задача 1. Вычислить сумму чисел натурального ряда от 1 до N. Program summa; начало Var a, S , N: integer; N Begin write (‘N=‘); S: = 0 a: = 1 a<=N да readln (N); нет a: =1; S: =0; While a<=N do begin S: =S+a a: =a+1 S: =S+a; a: =a+1; end; Writeln(‘Сумма ’, N, ’ чисел равна ’, S); S конец end.

Цикл с постусловием Структура цикла Тело цикла нет Условие да Repeat <тело цикла> Until <условие> Repeat (повторять тело цикла) Until ( до условия)

Задача. Вычислить сумму натурального ряда чисел от 1 до N начало Program summa; Var a, S , N: integer; Begin N write (‘N=‘); S: = 0 a: = 1 readln (N); a: =1; S: =0; S: =S+а a: =a+1 нет Repeat S: =S+a; a: =a+1 a>N да S конец Until a>N; Writeln(‘Сумма равна’, S); end.

Цикл «c параметром» Параметр (i)– это простая переменная задающая количество повторов от начального(a) до конечного(b), Структура цикла i: = а to b да Тело цикла нет For i: =a to b do begin <тело цикла> end; i: =1 to N

Задача. Вычислить сумму натурального ряда чисел от 1 до N начало Program summa; N Var i, S , N: integer; Begin S: = 0 write (‘N=‘); i: = 1 to N нет readln (N); S: =0; да for i: =1 to N do S: = S + i; Writeln(‘Сумма равна’, S); end. S конец

1. Записать в тетрадь 3 адачу 1 (3 блок-схемы и программы на Паскале) 2. Построить блок-схему и написать на языке Паскаль программу в тетради к задачам 2 -4, используя любой вид цикла. Задача 2. Вычислить сумму чисел 1+1, 5+2+2, 5+…+30. Задача 3. Подсчитать целое количество отрезков длиной 1, 5 м получающиеся из бруска длиной 20 м. Задача 4. Вычислить N! (N факториал).