Презентация "Алгоритм цикла"

Подписи к слайдам:
Алгоритм цикла
  • Условие
  • Действие
  • да
  • нет
  • Алгоритм, при котором повторяются одни и те же действия, называется циклом
  • Количество повторов зависит от условия
  • конечный
  • бесконечный
  • нулевой
  • Условие
  • да
  • нет
  • Ввод данных
  • Расчет
  • Вывод ответов
  • Условие
  • Действие
  • да
  • нет
  • Действие
  • Действие
  • Тело цикла
Цикл с предусловием
  • Условие
  • Тело цикла
  • да
  • нет
  • Структура цикла
  • While <условие> do
  • begin
  • <тело цикла>
  • end;
  • Задача 1. Вычислить сумму чисел натурального ряда от 1 до N.
  • a<=N
  • S:=S+a
  • a:=a+1
  • да
  • нет
  • S:= 0
  • a:= 1
  • N
  • начало
  • S
  • конец
  • Program summa;
  • Var a, S , N: integer;
  • Begin
  • write (‘N=‘);
  • readln (N);
  • a:=1; S:=0;
  • While a<=N do
  • begin
  • S:=S+a;
  • a:=a+1;
  • end;
  • Writeln(‘Сумма ’,N,’ чисел равна ’,S);
  • end.
Задача 2. Вычислить сумму чисел 1+1,5+2+2,5+…+30. Задача 3. Подсчитать целое количество отрезков длиной 1,5м получающиеся из бруска длиной 20м. Задача 4. Вычислить N! (N факториал). Цикл с постусловием
  • Условие
  • Тело цикла
  • да
  • нет
  • Структура цикла
  • Repeat
  • <тело цикла>
  • Until <условие>
  • Repeat (повторять тело цикла)
  • Until ( до условия)
Задача. Вычислить сумму натурального ряда чисел от 1 до N
  • Program summa;
  • Var a, S , N: integer;
  • Begin
  • write (‘N=‘);
  • readln (N);
  • a:=1; S:=0;
  • Repeat
  • S:=S+a;
  • a:=a+1
  • Until a>N;
  • Writeln(‘Сумма равна’,S);
  • end.
  • a>N
  • S:=S+а
  • a:=a+1
  • да
  • нет
  • S:= 0
  • a:= 1
  • N
  • начало
  • S
  • конец
  • Цикл «c параметром»
  • Параметр (i)– это простая переменная задающая количество повторов от начального(a) до конечного(b),
  • Структура цикла
  • For i:=a to b do
  • begin
  • <тело цикла>
  • end;
  • i:=1 to N
  • Тело цикла
  • да
  • нет
  • i:= а to b
  • Задача. Вычислить сумму натурального ряда чисел от 1 до N
  • S:= 0
  • N
  • начало
  • S:= S + i
  • да
  • нет
  • i:= 1 to N
  • S
  • конец
  • Program summa;
  • Var i, S , N: integer;
  • Begin
  • write (‘N=‘);
  • readln (N);
  • S:=0;
  • for i:=1 to N do
  • S:= S + i;
  • Writeln(‘Сумма равна’,S);
  • end.